[已解决]导入文件夹里所有的文件不成功

hhxq001 · 发表于 2023-1-14 23:33

高手给看看代码哪里不对

导入不成功.zip (720.13 KB, 下载次数: 5)

zjdh · 发表于 2023-1-15 10:47

.............
Set sh = ActiveSheet
MyPath = ThisWorkbook.Path & "\"
MyName = Dir(MyPath & "*.xls*")
............

hhxq001 · 发表于 2023-1-15 12:22

zjdh 发表于 2023-1-15 10:47
.............
Set sh = ActiveSheet
MyPath = ThisWorkbook.Path & "\"

谢谢指点迷津。

hhxq001 · 发表于 2023-1-15 12:23

提取成功的表

导入成功.zip (727.03 KB, 下载次数: 4)

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