คำตอบที่ได้รับเลือกจากเจ้าของกระทู้
ความคิดเห็นที่ 1
Dim File_Path As String
Dim strName As String
File_Path = "D:\111"
strName = Dir(File_Path & "\" & "*.xlsx")
Do While Not strName = ""
Workbooks.Open FileName:=File_Path & "\" & strName
strName = Dir
Loop
Dim strName As String
File_Path = "D:\111"
strName = Dir(File_Path & "\" & "*.xlsx")
Do While Not strName = ""
Workbooks.Open FileName:=File_Path & "\" & strName
strName = Dir
Loop
แสดงความคิดเห็น
เปิด Workbook หลาย Workbook ในโฟลเดอร์เดียว EXCEL VBA
Dim strName As String
File_Path = "D:\111"
strName = Dir(File_Path & "\" & "*.xlsx")
Workbooks.Open Filename:=File_Path & "\" & strName
โค้ดด้านบนผมรัน แล้วมันสามารถเปิดได้แค่เวิร์คบุ๊คแรก เวิร์คบุ๊คเดียว ผมต้องการสั่งรันเปิดหลายเวิร์คบุ๊คต้องทำยังไงครับ
ใช้ Loop ช่วยต้องเขียนยังไงครับ มือใหม่มากๆ