請問各位大神
目前程式是這樣寫
但只能抓取一個檔案
沒辦法選資料夾裡多個檔案
再請各位大神提供建議
謝謝
Dim FilePath As String
Dim Wb2 As WorkBook
FilePath = Application.GetOpenFilename
Set Wb2 = Workbooks.Open(FilePath)
Filename = Dir(“Wb2”)
Do While Filename <> “”
Workbooks.Open Filename:=Wb2 & File name, ReadOnly:=True
Loop

用FSO抓folder裡面的多個檔案

感謝F大及L大的回覆，可以了