[VBA] 抓資料夾裡多個檔案

[darklimit (Yu)]

請問各位大神
目前程式是這樣寫
但只能抓取一個檔案
沒辦法選資料夾裡多個檔案
再請各位大神提供建議
謝謝


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

-----
Sent from JPTT on my iPhone

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 42.73.173.118 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1639382647.A.EC3.html
推 fisheater: 用FSO抓folder裡面的多個檔案
→ Iories: https://www.automateexcel.com/vba/open-file-dialog/
→ darklimit: 感謝F大及L大的回覆，可以了