在线求助，必回复：VBA如何实现多文件夹（含子文件夹）多工作簿中指定名称工作表的...

未来精英

opiona 发表于 2018-8-16 17:56
1. 将多个文件夹 放到一个文件夹
2. 获取文件清单的自定义函数：最后参数：false 改成：True

opiona 你好，以上两条解决我的问题了
1、但如果我想把工作簿名这列变成工作簿的全部路径并显示成只含工作簿名称的超链接呢（如果这个有点难不能实现的话，能否只实现把工作簿名这列变成工作簿的全部路径？）
2、另外，这个代码能突破SQL关于50个工作簿的限制吗？

未来精英

opiona 发表于 2018-8-16 17:56
1. 将多个文件夹 放到一个文件夹
2. 获取文件清单的自定义函数：最后参数：false 改成：True

在这一列列示全路径或超链接

opiona

工作簿的全部路径：
StrSQL = StrSQL & ",'" & GetPathFromFileName(FileArr(I)) & "' AS  工作簿"   '//不需要文件名，可删除此行
替换为：StrSQL = StrSQL & ",'" &  FileArr(I) & "' AS  工作簿"   '//不需要文件名，可删除此行

opiona

关于50个工作簿的限制：
只是说超出可能出问题，因为SQL有最大字符数显示
如果文件夹较浅，字符较少，多点文件应该也没问题
你自己多加点文件，试试吧！

未来精英

opiona 发表于 2018-8-17 17:48
关于50个工作簿的限制：
只是说超出可能出问题，因为SQL有最大字符数显示
如果文件夹较浅，字符较少，多 ...

你好，这隔了很久没跟你交流；
1、在按你的代码使用的过程中，出现了如附件图中的错误提示，查了半天，请问是哪一块有错误呢？
2、你说的50个工作簿的限制我现在还没有试运行（因为一直在整理各单个表中的内容），担心超过50个还会出现错误

opiona

未来精英 发表于 2018-9-26 16:15
你好，这隔了很久没跟你交流；
1、在按你的代码使用的过程中，出现了如附件图中的错误提示，查了半天， ...

http://club.excelhome.net/thread-1409141-1-1.html

未来精英

opiona 发表于 2018-9-26 19:48
http://club.excelhome.net/thread-1409141-1-1.html

opiona，我上一楼的代码就是你网址里的第五个代码，但是我在运行的时候出现错误提示，不知道哪错了。能帮我看一下吗？谢谢！

未来精英

opiona 发表于 2018-9-26 19:48
http://club.excelhome.net/thread-1409141-1-1.html

我上一楼的代码就是你的网址里的代码，但运行不了，是吗不对么

未来精英

opiona 发表于 2018-9-26 19:48
http://club.excelhome.net/thread-1409141-1-1.html

Opiona老师，我的多文件夹多表汇总的帖子的第15楼的附件，用的是您帖子中第5个代码运行有个小错误，请您帮我看一下。