如何使用vba批量按表格内容提取指定文件到指定的文件夹内？

lwz2019 · 发表于 2022-8-23 23:04

gwjkkkkk 发表于 2022-8-23 22:52
请参考。。。

谢谢老师帮助，已经达到了预期的效果，真是让人望洋兴叹！

lwz2019 · 发表于 2022-8-23 23:52

如果数据总文件夹目录又分子目了，应该怎么改！

lwz2019 · 发表于 2022-8-23 23:55

如果“数据总”文件夹里又有如“附件文件提取2”多了层目录，应该怎么改

lwz2019 · 发表于 2022-8-23 23:59

gwjkkkkk 发表于 2022-8-23 22:52
请参考。。。

老师：如果文件在“数据总”里又多了层子目录，应改如何修改代码?

gwjkkkkk · 发表于 2022-8-24 09:50

本帖最后由 gwjkkkkk 于 2022-8-24 10:11 编辑

请楼主参考。。。

lwz2019 · 发表于 2022-8-24 11:47

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp" (ByVal PathName As String) As Long
这句报错：若在64位...........................！怎么修改！

lwz2019 · 发表于 2022-8-24 12:07

lwz2019 发表于 2022-8-24 11:47
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp" (ByVal PathName As String) As ...

按照提示解决了

陈浩679070 · 发表于 2022-8-24 17:39

可学习可学习可学习可学习可学习可学习

lwz2019 · 发表于 2022-8-31 15:09

本帖最后由 lwz2019 于 2022-8-31 15:15 编辑

gwjkkkkk 发表于 2022-8-24 09:50
请楼主参考。。。

老师：为什么放在移动硬盘里就无法运行！老是提示下标越界！再电脑里就不会！

lwz2019 · 发表于 2022-8-31 15:19

lwz2019 发表于 2022-8-31 15:09
老师：为什么放在移动硬盘里就无法运行！老是提示下标越界！再电脑里就不会！

找到原因了，1000改10000

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

[求助] 如何使用vba批量按表格内容提取指定文件到指定的文件夹内？