请问各位大神
目前程式是这样写
但只能抓取一个档案
没办法选资料夹里多个档案
再请各位大神提供建议
谢谢
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