作者darklimit (Yu)
看板Visual_Basic
标题[VBA] 抓资料夹里多个档案
时间Mon Dec 13 16:04:05 2021
请问各位大神
目前程式是这样写
但只能抓取一个档案
没办法选资料夹里多个档案
再请各位大神提供建议
谢谢
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://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1639382647.A.EC3.html
1F：推 fisheater: 用FSO抓folder里面的多个档案 12/14 22:58
3F：→ darklimit: 感谢F大及L大的回覆，可以了 12/17 00:09