เปิด Workbook หลาย Workbook ในโฟลเดอร์เดียว EXCEL VBA

Dim File_Path As String
Dim strName As String
File_Path = "D:\111"
strName = Dir(File_Path & "\" & "*.xlsx")
Workbooks.Open Filename:=File_Path & "\" & strName

โค้ดด้านบนผมรัน แล้วมันสามารถเปิดได้แค่เวิร์คบุ๊คแรก เวิร์คบุ๊คเดียว ผมต้องการสั่งรันเปิดหลายเวิร์คบุ๊คต้องทำยังไงครับ 
ใช้ Loop ช่วยต้องเขียนยังไงครับ มือใหม่มากๆ 

คำตอบที่ได้รับเลือกจากเจ้าของกระทู้
ความคิดเห็นที่ 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
แสดงความคิดเห็น
Preview
อ่านกระทู้อื่นที่พูดคุยเกี่ยวกับ  Microsoft Office VB.NET (Visual Basic .NET) VB (Visual Basic) วิศวกรรมคอมพิวเตอร์
โปรดศึกษาและยอมรับนโยบายข้อมูลส่วนบุคคลก่อนเริ่มใช้งาน อ่านเพิ่มเติมได้ที่นี่