excel遍历文件夹中各工作簿中工作表提取对应数据

1261181315a · 发表于 2018-7-4 00:31

现在存在问题时才有f8逐行运行代码，看到myFile = Dir(myPath & "*.xls")执行后myFile是空值，使得没能遍历文件夹中各工作簿。请指教下出现原因，谢谢！

不知道为什么 · 发表于 2018-7-4 00:40

mypath 后面加 & “\” &

duquancai · 发表于 2018-7-4 00:44

myFile = Dir(myPath & "\*.xls")

smhf_6 · 发表于 2018-7-4 03:58

原因一是可能真的没文件了，二是你的定义太窄：
myFile = Dir(myPath & "*.xls") 改成 myFile = Dir(myPath )

lsc900707 · 发表于 2018-7-4 05:58

本帖最后由 lsc900707 于 2018-7-4 08:43 编辑

没有附件，猜一个。
myFile = Dir(myPath & "/*.xls*")

opiona · 发表于 2018-7-4 07:12

		自动登录	找回密码
密码			免费注册

[求助] excel遍历文件夹中各工作簿中工作表提取对应数据