VBA合并报表内的sheet1，为什么宏提示找不到文件，请问代码哪里存在错误吗
第1个回答 2022-01-11
因为：下面这句
fn = Dir(ThisWorkbook.Path & "\清单-*.xlsx", vbReadOnly)
返回的只是文件名，不带路径的。
所以：
Set wb = Workbooks.Open(fn)
改成如下才行：
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & fn)
fn = Dir(ThisWorkbook.Path & "\清单-*.xlsx", vbReadOnly)
返回的只是文件名，不带路径的。
所以：
Set wb = Workbooks.Open(fn)
改成如下才行：
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & fn)
第2个回答 2022-01-11
设断点，取出路径看。
第3个回答 2022-01-11
程序中的语句：
fn = Dir(...)
表示指定目录下匹配文件，结果的fn是不带目录的，因此报错的语句：
Set wb = WorkBooks.Open(fn)
需要添加路径，修改为：
Set wb = WorkBooks.Open(ThisWorkBook.Path & "\" & fn)本回答被提问者采纳
fn = Dir(...)
表示指定目录下匹配文件，结果的fn是不带目录的，因此报错的语句：
Set wb = WorkBooks.Open(fn)
需要添加路径，修改为：
Set wb = WorkBooks.Open(ThisWorkBook.Path & "\" & fn)本回答被提问者采纳
第4个回答 2022-01-11
直接点击 CTRL H.
