การดึงข้อมูลข้ามไฟล์ แบบไม่เปิดไฟล์ต้นทางด้วย vba

[Singhamanuss]

ผมได้ทำการเขียน code vba เพื่อดึงข้อมูลจากหลายๆ ไฟล์ (คือไฟล์ 1_1 ถึง 1_15 ตำแหน่งที่อยู่ คือ D:\Timetable63_1\ม.1\1_1) มารวมไว้ไฟล์เดี่ยว (คือไฟล์ ม.1) แต่ติดที่ ผมต้องเปิดไฟล์ต้นทาง เสมอ ถ้าไม่เปิด จะเกิดการ error ทันที ครับ มีวิธีแก้ให้ดึงข้อมูแบบไม่ต้องเปิดไฟล์ต้นทางไหมครับ และแนะนำการเขียน แบบ loop ด้วยครับ

Code: Select all

Sub SelectionChange()
    S1.Range("I6:AW29").Value = _
    Workbooks("1_1.xls").Worksheets("Sheet1").Range("K12:AY35").Value
    
    S2.Range.Range("I6:AW29").Value = _
    Workbooks("1_2.xls").Worksheets("Sheet1").Range("K12:AY35").Value
    
    S3.Range.Range("I6:AW29").Value = _
    Workbooks("1_3.xls").Worksheets("Sheet1").Range("K12:AY35").Value

    S4.Range.Range("I6:AW29").Value = _
    Workbooks("1_4.xls").Worksheets("Sheet1").Range("K12:AY35").Value
    
    S5.Range.Range("I6:AW29").Value = _
    Workbooks("1_5.xls").Worksheets("Sheet1").Range("K12:AY35").Value
    
    S6.Range.Range("I6:AW29").Value = _
    Workbooks("1_6.xls").Worksheets("Sheet1").Range("K12:AY35").Value
    
    S7.Range.Range("I6:AW29").Value = _
    Workbooks("1_7.xls").Worksheets("Sheet1").Range("K12:AY35").Value
    
    S8.Range.Range("I6:AW29").Value = _
    Workbooks("1_8.xls").Worksheets("Sheet1").Range("K12:AY35").Value
    
    S9.Range.Range("I6:AW29").Value = _
    Workbooks("1_9.xls").Worksheets("Sheet1").Range("K12:AY35").Value
    
    S10.Range.Range("I6:AW29").Value = _
    Workbooks("1_10.xls").Worksheets("Sheet1").Range("K12:AY35").Value
    
    S11.Range.Range("I6:AW29").Value = _
    Workbooks("1_11.xls").Worksheets("Sheet1").Range("K12:AY35").Value
    
    S12.Range.Range("I6:AW29").Value = _
    Workbooks("1_12.xls").Worksheets("Sheet1").Range("K12:AY35").Value
    
    S13.Range.Range("I6:AW29").Value = _
    Workbooks("1_13.xls").Worksheets("Sheet1").Range("K12:AY35").Value
    
    S14.Range.Range("I6:AW29").Value = _
    Workbooks("1_14.xls").Worksheets("Sheet1").Range("K12:AY35").Value
    
    S15.Range.Range("I6:AW29").Value = _
    Workbooks("1_15.xls").Worksheets("Sheet1").Range("K12:AY35").Value
    
    MsgBox "ทำการเรียกข้อมูลตารางสอนเรียบร้อยแล้ว", vbInformation, "เสร็จสิ้น"
End Sub

[snasui]

Code ที่เขียนมานั้นเป็นการอ้างอิงถึงไฟล์จำเป็นจะต้องเปิดไฟล์ต้นทางเอาไว้เสมอครับ

สำหรับการเปิดไฟล์สามารถเปิดด้วย Code ได้ ถ้าไม่ทราบว่า Code สำหรับการเปิดไฟล์คืออะไรสามารถบันทึก Macro แล้วนำ Code มาปรับใช้ได้ และเมื่อทำงานเรียบร้อยแล้วให้ใช้ Code ปิดไฟล์นั้นไป

การนำค่าจากไฟล์ที่ปิดโดยไม่ต้องเปิดไฟล์ทำได้อีกทางคือเขียน Code ให้สร้าง Link แล้วคัดลอก link และวางเป็น Value อีกครั้งครับ

[Singhamanuss]

ข้อคุณครับ
สอบถามเพิ่มเติมครับ เราสามารถเขียน code ให้ง่ายกว่านี้ได้ไหมครับ
และผมข้อตัวอย่างการเขียน Code สร้าง Link หน่อยครับ

[snasui]

ที่เขียนมานั้นก็ไม่ได้ถือว่ายาก ปกติการนำค่าจากไฟล์อื่นมาใช้ก็จะเป็นลักษณะนี้ถือเป็นเรื่องปกติครับ

การ Link ก็เขียนสูตรการ Link ข้อมูลข้ามไฟล์กันโดยทั่วไป แค่เอา Link ไปใส่ใน Code แล้วทำการ Update Link จากนั้นก็คัดลอก Link ให้เป็นค่าคงที่

การ Link ข้ามไฟล์ทำได้ง่าย ๆ ด้วยการเปิดไฟล์ต้นทางและปลายทางขึ้นมาพร้อมกัน จากนั้นคัดลอกเซลล์ต้นทาง > คลิกขวาในเซลล์ของไฟล์ปลายทาง > Paste Link > ปิดไฟล์ต้นทาง > สังเกต Link ที่ได้มา > นำ Link นี้ไปประยุกต์ใช้