การดึงข้อมูลข้ามไฟล์ แบบไม่เปิดไฟล์ต้นทางด้วย vba
Posted: Sat May 16, 2020 1:50 am
ผมได้ทำการเขียน 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
Code ที่เขียนมานั้นเป็นการอ้างอิงถึงไฟล์จำเป็นจะต้องเปิดไฟล์ต้นทางเอาไว้เสมอครับ