Excel Forum

งั้นมีข้อจำกัดว่าไม่เกิน 65K สินะครับ
จริงๆก็อยากใช้ sql แต่บริษัทนี้ไม่มี server จึงจะใช้ onedrive เป็นที่เก็บฐานข้อมูลทดแทนไปก่อนน่ะครับ

อ้อ ขออีกอย่างครับ ตรง Code SQL (strSQL)
สมมติผมอ้างอิงข้อมูลจาก สองหรือสามไฟล์ สามารถเขียนให้ join กันมากกว่าหนึ่งไฟล์ได้หรือเปล่าครับ หรือว่าหากจะ join กันข้อมูลต้องอยู่ในไฟล์เดียวกันเท่านั้น

จากไฟล์ตัวอย่าง สมมติข้อมูลมีสัก 100000 บรรทัด (ผมใส่ไปแค่ 12 เพราะหากใส่ถึงแสนไฟล์จะใหญ่เกิน 500 kb)
และผม query ด้วยโค้ดดังข้างล่าง แต่มันลิมิตที่ไม่เกิน 65536 บรรทัด อยากรู้ว่ามีวิธี query จาก excel ไฟล์ตนเอง หรือ ไฟล์อื่น ให้ข้อมูลมากกว่า 65536 บรรทัดหรือเปล่าครับ


Sub SQL()
Sheet2.[2:1000000 ...

มั่วไปมั่วมาได้ละครับ แต่คราวนี้มีปัญหาว่าใช้ slicer ไม่ได้ มีวิธีให้ใช่ pivot slicer ได้มั้ยครับ
Sub CreatePivotTable2()

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Dim splitsql As Variant

strFile = "D:/test Query.xlsx"
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ...

โจทย์ที่ต้องการคือ มีข้อมูลอยู่ใน excel อีกไฟล์ ซึ่งข้อมูลมีหลายล้าน row จึงต้องการนำข้อมูลเหล่านั้นมา pivot ในไฟล์เดียวด้วย VBA
เขียนโค้ดดึงข้อมูลมาได้ แต่ไม่รู้ว่าจะ pivot โดยไม่วางบนตารางเอกเซลยังไง ไม่รู้ว่าต้องประกาศ object อะไรเพิื่อเก็บค่านั้นมา pivot น่ะครับ

ผมได้แนบไฟล์ 2 ไฟล์
1 test ...

ขอบคุณครับ ขนาดอ.ยังบอกว่าไม่ง่าย ถ้างั้นผมใช้วิธีเก็บโค้ดในเซลดีกว่า ถ้าเข้าใจมากขึ้นอาจเห็นทางที่ดีกว่าเดิม

ผมอยากเปลี่ยน sub Insertthissub() เป็น
msgbox "Complete"
โดยที่แก้ไขแค่ภายใน sub Insertthissub() ที่เดียวแล้วโค้ดก็ไปเพิ่มในอีกไฟล์นึง โดยไม่ลบโค้ดของไฟล์เดิมด้วยน่ะครับ หรือว่าการอ้างอิงแบบนี้ไม่สามารถทำได้ใน vba ครับ

แล้วถ้าผมเปลี่ยนโค้ด vba ภายใน sub Insertthissub( )
ผมก็ต้องไปแก้โค้ดใน sub TestVBA ( ) ด้วยหรือเปล่าครับ

ผมไม่อยากต้องแก้สองจุดน่ะครับ

ตอนนี้ผมเพิ่ม Code VBA จากไฟล์ VBACreator1.xlsm ไปยังไฟล์ CopyVBA1.xlsm ด้วยโค้ดนี้ครับ
Sub TestVBA()
'ActiveWorkbook.VBProject.VBComponents("module1").Export ("D:\Test Excel\mymod.bas")
Dim PD As CodeModule
Set PD = Workbooks("CopyVBA1.xlsm").VBProject.VBComponents("module1").CodeModule
With ...

ยังไงก็ยังมีปัญหาเรื่องคนต่องานสินะครับ ไม่เหมือนโปรแกรม ที่หาคนต่องานง่าย

อ้อ แล้วประเด็นเรื่อง การหาคนมาต่องานที่คุณ parakorn ชี้ขึ้นมาล่ะครับ
อาจารย์มีความเห็นเรื่องนี้ยังไงบ้าง การทำเทมเพลตจะหาคนมาต่องานได้ยากจริงหรือเปล่า หรือว่าการหาคนที่พอทำ vba เป็น แล้วเอามาฝึกเพิ่ม ก็สามารถ maintainance ได้แล้ว ไม่ใช่เรื่องยากอย่างที่กังวล

ง่ายยังงี้เชียว สรุปว่าล็อคไฟล์เป็นทางเลือกที่ปลอดภันสุดสินะครับ แบบนี้พวกพาสเวิร์ดเข้าเซอร์เวอร์ก็เก็บไว้ในนี้ไม่ได้เลย

คุณ menem ของผมไม่ค่อยห่วงไอทีไม่พัฒนาต่อหรอกครับ ยังไงเทมเพลทผมส่วนใหญ่ user แค่คลิกปุ่ม เลือกไฟล์ จบ ไอทีพัฒนาไปก็ลดขั้นตอนการทำงานของ user ลงแทบไม่ได้แล้ว แต่ห่วงไอทีจะเสนอโปรแกรมฟังดูไฮโซ แต่พัฒนาเป็นปีก็ไม่เสร็จมากกว่า ส่วนตัวไม่สนใจเรื่องตำแหน่งอยุ่แล้ว ขอให้ทำผลงานที่ใช้ได้จริงก็พอ

อาจารย ...

เรื่อง security ก็สามารถคอนโทรลได้ครับ เพราะเก็บทุกอย่างไว้บนเซอร์เวอร์ และตัวมาโครมีการล็อคพาสเวิร์ดไว้อยู่แล้ว ทำให้ไม่สามารถเปิดไปแกะโค้ดได้ (ไม่ทราบว่าตอนนี้มีวิธีแฮคไฟล์ที่ protect มาโครได้ เหมือนที่แฮค protect sheet หรือเปล่า )

ส่วนเรื่องการหาคนมาต่องาน อันนี้ก็เป็นประเด็นหลักอย่างนึงจร ...

คิดว่าหัวข้อนี้น่าจะอยู่ในหมวดเอกเซล ถ้าผิดขออภัยครับ จะตั้งกระทู้ใหม่ให้

ขออนุญาติเล่าเรื่องท้าวความก่อนครับ ผมรู้สึกว่าฝ่ายไอทีจะไม่ค่อยยอมรับเท่าไรกับการใช้เอกเซลสร้างโปรแกรมให้ user ใช้ (จริงๆตอนนี้ผมก็อยู่ไอที)
ณ ตอนนี้ผมสร้างไฟล์เอกเซลที่แทบจะทำได้ทุกอย่างที่โปรแกรมทำได้ ไม่ว่าจะดึงหรือเพิ่มข ...

ไม่เป็นไรครับ ผมเข้าใจการทำงานเรื่องพศ. และคศ.แล้วล่ะครับ แต่การอธิบายด้วยภาษาพูดอาจจะทำให้งง เพราะมันไม่ชัดเจนเหมือนภาษาคอมน่ะครับ
ซึ่งผมอธิบายสิ่งที่เข้าใจ ให้ใช้คำตรงกันไม่ถูกเหมือนกัน ขอบคุณอาจารย์มากๆครับ

อ่านแล้วยังงงอยู่ดี ผมว่าเข้าใจตรงกันแหละครับ
แต่น่าจะตีความจากภาษาไม่เหมือนกัน คศ. พศ. ทำให้ผมอ่านแล้วนึกว่าว่าคุณ snasui เขียน พศ. กับคศ.สลับกัน

snasui wrote: เข้าใจได้ถูกต้องแล้วกรณีของการเขียนวันที่ในรูปแบบของ String หมายถึง คีย์เป็น พ.ศ. ไม่ว่า System ใด มันก็อ่านเป็น พ.ศ. ครับ

Sytem อ่านเป็น คศ. ไม่ใช่เหรอครับ

แปลว่า การแปลงวันที่เป็นตัวเลขแบบนี้ ไม่ขึ้นกับ language เครื่องสินะครับ ไม่ว่าจะเซตไว้ยังไงเอกเซลก็มองเป็นคศ. อยู่ดี ผมจะเขียนสูตรเกี่ยวกับวันที่แต่เกรงว่าคนเอาไปใช้ จะเซต default เครื่องเป็นไทย และจะทำให้ผลลัพธ์เพี้ยนนะครับ

ถ้าหาก excel ถูกตั้ง Default เป็น พศ.
และเราพิมพ์ว่า ="1 june 2560"+0
คำตอบที่ได้จะเป็นตัวเลข 42918 หรือว่า 241215 ครับ