การเชื่อมข้อมูลระหว่าง 2 ไฟล์ โดยอัตโนมัติ โดยใช้ VBA

[wutthichai_meekhun]

สวัสดีครับอาจารย์ ผมอยากจะสอบถามว่า ถ้าผมมีไฟล์อยู่ 2 ไฟล์ คือ ไฟล์ CopyData.xlsm และ ไฟล์ PasteData.xlsm ผมอยากทราบว่า เมื่อผมทำการแก้ไข เพิ่ม หรือ ลบ ข้อมูลที่อยู่ภายในไฟล์ CopyData.xlsm พอกด Save เเล้วให้ข้อมูลไปอัพเดตในไฟล์ PasteData.xlsm โดยอัตโนมัติ และตรงตามที่เราแก้ไขไว้ในไฟล์ CopyData.xlsm ประมาณว่า เมื่อเราเปิดไฟล์ PasteData.xlsm ขึ้นมาใหม่ ก็ให้แสดงข้อมูลที่เราแก้ไขโดยอัตโนมัติเลย ไม่ทราบว่าต้องทำยังไงครับอาจารย์ ขอคำแนะนำจากอาจารย์ด้วยนะครับผม

[wutthichai_meekhun]

ส่วนนี่คือ Code ในไฟล์ข้อมูลที่ผมลองทำขึ้นมาเอง แต่เป็นการส่งข้อมูลระหว่างชีทกับชีท และ ใช่ปุ่ม Button ในการส่งเเละรับค่า จึงอยากให้อาจารย์ช่วยเเนะการปรับปรุงหรือดัดแปลงโค๊ดที่มีอยู่เเล้ว ว่าใช้ร่วมกันได้หรือไม่ อย่างไร

Module 1 :

Code: Select all

Sub Update()
    
    Dim r1 As Range
    Dim r2 As Range
    
    Dim rt As Range
    Dim rs As Range
    
        With Worksheets("Input")
        
                Set r1 = .Range("A2:H30")   
                Set r2 = r1.Offset(0, 0).Resize(4)
                Set rs = Union(r1, r2)              
            
        End With
        
                Set rt = Worksheets("Results").Range("A2:H30").Offset(0, 0)
                rs.Copy rt
                Application.CutCopyMode = False
        
        MsgBox " Good Job! Your work Finish. Wutthichai ! "
        
End Sub

Module 2 :

Code: Select all

Sub GoToResults()
    
    Sheets("Results").Select

End Sub

Module 3 :

Code: Select all

Sub BackToInput()
    
    Sheets("Input").Select

End Sub

[snasui]

Code ที่เขียนมาด้านบน ไม่พบว่ามีการ Paste ข้อมูลข้ามไฟล์ ลองเขียนมาก่อน ติดตรงไหนค่อยถามกันต่อครับ

[wutthichai_meekhun]

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

[snasui]

ให้ลองบันทึก Macro การบันทึกข้อมูลข้ามไฟล์ จากนั้นนำ Code มาปรับใช้ดูครับ

เมื่อนำมาปรับใช้แล้วเกิด Error สามารถสอบถามมาได้เรื่อย ๆ โดยให้ระบุมาว่าติดขัดที่ Procedure ใด บรรทัดใด จะได้เข้าถึงข้อมูลโดยไวครับ

[wutthichai_meekhun]

อาจารย์ครับผมไม่สามารถ Copy ข้อมูลข้ามไฟล์ได้เลย ผมแก้ Error หลายรอบเเล้ว ก็ยังไม่เป็นผล พอทำการแก้ไข Compile ผ่าน แต่พอเวลากด Run ตรง ปุ่ม "UpdateData" มันขึ้นว่า Cannot run the macro 'CopyData.xlsm!Update'.The macro may not be available in this workbook or all macros may be disabled. ครับ รบกวนอาจารย์ช่วยทำให้มันสามารถ Copy ข้ามไฟล์ได้ให้ผมหน่อยนะครับ ผมทำทุกวิธีเเล้วไม่ได้ผล หรือ อาจจะเป็นเพราะผมยังไม่รู้ลำดับขั้นตอนในคำสั่งก็เป็นได้ ขอบคุณมากนะครับอาจารย์
นี่เป็นโค๊ดที่ผมเขียนครับ
Module 1

Code: Select all

Sub UpdateTest()
    strFileName = Dir("D:\")
        Do While strFileName <> ""
                If Right(strFileName, 4) = ".xlsm" And strFileName <> "PasteData.xlsm" Then
            
                Windows(strFileName).Activate
                
                Dim r1 As Range
                Dim r2 As Range
                
                Dim rt As Range
                Dim rs As Range
                
                    With Windows("CopyData.xlsm").Worksheets("Source")
                              'Application.Goto Reference:="Source"
                              'Selection.Copy
                              
                            Set r1 = Windows("CopyData.xlsm").Worksheets("Source").Range("A2:H30")
                            Set r2 = r1.Offset(0, 0).Resize(4)
                            Set rs = Union(r1, r2)              
                    
                    End With
                    
                            'Windows("PasteData.xlsm").Activate
                            Set rt = Windows("PasteData.xlsm").Worksheets("Results").Range("A2:H30").Offset(0, 0)
                            rs.Copy rt
                            Application.CutCopyMode = False
                            
                    MsgBox " Good Job! Your work Finish.  "
                    End If
        strFileName = Dir
        Loop
End Sub

และผมได้เเนบไฟล์งานมาให้ด้วย ครับผม

[snasui]

ช่วยอธิบายข้อมูลที่ต้องการนำไปวางว่าต้องการนำข้อมูลใดไปวางบ้างครับ วางเฉพาะบรรทัดสุดท้ายของ Source หรือวางทั้งหมด หรือเลือกวางเฉพาะข้อมูลใด

กรณีที่ต้องการ Update ข้อมูลโดยไม่มีเงื่อนไขใด สามารถ Copy ค่าทั้งหมดไปวางได้เลยครับ

ตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Sub test()
    Dim source As Range
    Dim target As Range
    With Workbooks("CopyData.xlsm").Sheets(1)
        Set source = .Range("a2", .Range("h" & .Rows.Count).End(xlUp))
    End With
    With Workbooks("PasteData.xlsm").Sheets(1)
        Set target = .Range("a2")
    End With
    source.Copy
    target.PasteSpecial xlPasteValues
    Application.CutCopyMode = fasle
End Sub

[wutthichai_meekhun]

ใช่ครับอาจารย์ ผมต้องการที่จะอัพเดตข้อมูลต่างๆ ในไฟล์ชื่อ PasteData ให้มีข้อมูลเหมือนกันทุกอย่างกับ ไฟล์ CopyData ไม่ว่าจะมีการแก้ไข หรือ เพิ่ม ลบ ในเเถวหรือคอลัมภ์ใดๆ ก็ตาม ก็ให้เเสงข้อมูลที่แก้ไขนั้นทั้งหมด แบบที่อาจารย์ส่งมาให้น่าจะใช้ได้ครับผม

[wutthichai_meekhun]

อาจารย์ครับ ไม่ทราบว่าถ้าต้องการเพิ่มข้อมูลทีละ Row ควรใช้คำสั่งไหนครับอาจารย์

[wutthichai_meekhun]

อาจารย์ครับ ผมอยากจะขอรบกวนอาจารย์อีกสักคำถาม ถ้าสมมติผม มีเอกสารอยู่ 2 ไฟล์ คือ CopyData และ PasteData หลังจากนั้นผมได้แก้ไขข้อมูลในไฟล์ CopyData พอกด Save ก็ให้ข้อมูลในไฟล์ PasteData เปลี่ยนแปลงตาม ไฟล์ CopyData โดยอัตโนมัติ

ผมได้แนบไฟล์ Word ที่อธิบาย และ ไฟล์ Excel ที่ผมเขียนเพิ่มเติมมาให้ดูด้วยครับ รบกวนอาจารย์ด้วยนะครับ

[snasui]

อาจารย์ครับ ไม่ทราบว่าถ้าต้องการเพิ่มข้อมูลทีละ Row ควรใช้คำสั่งไหนครับอาจารย์

ได้ลองเขียนมาเองแล้วหรือไม่ ติดขัดบรรทัดใดครับ

อาจารย์ครับ ผมอยากจะขอรบกวนอาจารย์อีกสักคำถาม ถ้าสมมติผม มีเอกสารอยู่ 2 ไฟล์ คือ CopyData และ PasteData หลังจากนั้นผมได้แก้ไขข้อมูลในไฟล์ CopyData พอกด Save ก็ให้ข้อมูลในไฟล์ PasteData เปลี่ยนแปลงตาม ไฟล์ CopyData โดยอัตโนมัติ

ผมได้แนบไฟล์ Word ที่อธิบาย และ ไฟล์ Excel ที่ผมเขียนเพิ่มเติมมาให้ดูด้วยครับ รบกวนอาจารย์ด้วยนะครับ

ทำตามด้านบนให้ได้ก่อน ให้ผ่านไปทีละคำถามครับ

[wutthichai_meekhun]

ผม Search หาคำสั่งในการ Run ข้อมูล เมื่อมีการบันทึก เพื่อให้เเสดงโดยอัตโนมัติในอีกไฟล์ ยังไม่เจอครับอาจารย์ ผมไม่ทราบว่าต้องใช้คำสั่งไหน ส่วนคำถามด้านบนก่อนหน้านี้ผมไม่ใช้เเล้วครับอาจารย์ ผมต้องขอโทษด้วยนะครับอาจารย์

[snasui]

ค่อย ๆ ถามตอบกันไปนะครับ

การ Run ข้อมูลเมื่อมีการบันทึกมีขั้นตอนอย่างไรบ้างครับ

ต้องเข้าใจว่าผมตอบเฉพาะที่เป็นปัญหา คำถามว่าทำอย่างไรนั้นผมจะตอบที่เป็นหลักการหรือด้วยอย่างอื่นที่ไม่ใช่เขียน Code เพราะการเขียน Code มาให้ก่อนนั้น ปัจจุบันนี้เป็นการทำผิดกติกาข้อ 5 ด้านบน

[wutthichai_meekhun]

ครับผม อาจารย์ครับผมทำได้เเล้วนะครับ ขอบคุณสำหรับคำแนะนำดีๆ ผมจะนำไปใช้ในคราวต่อไป ขอบคุณครับ ^^