การอัพเดทข้อมูลระหว่างไฟล์

[impresxy]

อยากสอบถามว่า สมมติ มีไฟล์ template อยู่ ใช้ในการกรอกข้อมูล จากนั้นพอเซฟไฟล์นี้จะเป็นเอกเซลธรรมดา ซึ่งมีหลายไฟล์ตามแต่งานของยูสเซอค่ะ หาก 1 วัน มีการกรอกเทมเพลทนี้ 100 ครั้ง ก้อจะมี 100 ไฟล์ ดิฉันจะมีไฟล์กลาง 1 ไฟล์ที่รวบรวมข้อมูลทั่วไปของ 100 ไฟล์นี้ค่ะ แต่มีวิธีการใดที่จะสามารถทำ auto update บางเซลจาก 100 ไฟล์นี้ไปยังไฟล์กลางได้บ้างคะ

[snasui]

ไฟล์ที่จะมีการ Update ระหว่างกันได้ต้องมีการ Link ระหว่างกัน กรณีสร้างไฟล์ใหม่เรื่อย ๆ แล้วจะให้ Link ไปไฟล์ใดไฟล์หนึ่งนั้นไม่ง่ายนัก วิธีการที่ง่ายกว่าน่าจะเป็นสร้างไฟล์ที่ต้องการให้เสร็จเรียบร้อยแล้วค่อยสร้างไฟล์สรุปหรือไฟล์รวบรวมทีหลัง

การรวมข้อมูลจากหลายไฟล์เราสามารถใช้วิธีการตาม Link นี้ได้ครับ

แบบใช้สูตร http://snasui.blogspot.com/2010/06/blog-post.html
แบบใช้ VBA http://www.snasui.com/viewtopic.php?f=9&t=3228

[impresxy]

ขอบคุณค่ะ อาจารย์ ที่อาจารย์ให้ น่าจะนำไปประยุกต์ได้ ขอบคุณค่ะ

[impresxy]

พอดีทำได้แล้ว เลยมาเขียนไว้เป็นวิทยาทานให้เพื่อนๆค่ะ

โค๊ดนี้สามารถก๊อปปี้ข้อมูลจากไฟล์หนึ่งและนำไปวางที่อีกไฟล์หนึ่ง เซลล์ต่อเซลล์ค่ะ ตั้งเป็นปุ่ม"มาโคร"นะคะ พอกดปุ่ม ข้อมูลก็จะก๊อปปี้แล้วนำไปวางในบันทัดที่ว่าง และเซฟให้เรียบร้อย แล้วปิดไฟล์ให้ด้วยค่ะ ดีมากๆ

Code: Select all

Sub Macro2()
Dim wb As Workbook
Dim ws As Worksheet

    Set wb = Workbooks.Open(Filename:= _
        "path และชื่อไฟล์ที่ต้องการนำข้อมูลไปวาง")
    Set ws = wb.Worksheets(3) '-----ชีทที่ต้องการนำข้อมูลไปวาง
    With ws
    
        nextrow = .Cells(.Rows.Count, "D").End(xlUp).Row + 1   '-----------กำหนดคอลัมที่ต้องการให้โปรแกรมหาบันทัดสุดท้ายและนำค่าไปวางในบันทัดถัดไป
    End With
    
    With Workbooks("Test.xlsm").Worksheets '-----------------ชื่อไฟล์ที่มีข้อมูลตั้งต้น
    
        Worksheets("Plan1").Range("X1:AB1").Copy   '-----------------ชื่อชีทที่มีข้อมูลตั้งต้น
        ws.Cells(nextrow, "A").PasteSpecial Paste:=xlPasteValues    '-----------------เซลที่จะวางข้อมูล
        Worksheets("Plan2").Range("C56").Copy
        ws.Cells(nextrow, "D").PasteSpecial Paste:=xlPasteValues
        
End With
    
    wb.Save
    wb.Close
        
    Set ws = Nothing
    Set wb = Nothing
End Sub