Foxtable(狐表)用户栏目专家坐堂 → 关于读取EXCEL遇到的问题


  共有3751人关注过本帖树形打印复制链接

主题:关于读取EXCEL遇到的问题

帅哥哟,离线,有人找我吗?
ygg8310
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:989 积分:8827 威望:0 精华:0 注册:2016/4/10 14:33:00
关于读取EXCEL遇到的问题  发帖心情 Post By:2023/1/30 18:25:00 [只看该作者]

求助,在(待读取)文件夹中有多个子文件夹,每个子文件夹里都有excel这种情况用帮助文件的For Each file As String In filesys.GetFiles("E:\测试"),读取不了该如何修改?


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110450 积分:562116 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/1/30 20:11:00 [只看该作者]

For Each file As String In filesys.GetFiles("E:\测试")
文件的处理
next
For Each dir As String In filesys.GetDirectories("E:\测试")
    For Each file As String In filesys.GetFiles(dir)
    子文件夹文件的处理
    next
next

 回到顶部
帅哥哟,离线,有人找我吗?
ygg8310
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:989 积分:8827 威望:0 精华:0 注册:2016/4/10 14:33:00
  发帖心情 Post By:2023/1/31 15:27:00 [只看该作者]

老师,还有一个问题有子文件夹A中还有子文件夹B,子文件夹B中还有子文件夹C这个还是要麻烦一下老师

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110450 积分:562116 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/1/31 15:32:00 [只看该作者]

使用递归:http://www.foxtable.com/webhelp/topics/2416.htm

添加函数a

dim dir as string = args(0)
For Each file As String In filesys.GetFiles(dir)
文件的处理
next
For Each dir1 As String In filesys.GetDirectories(dir )
    Functions.Execute("a",dir1)
next

外部调用:
For Each file As String In filesys.GetFiles("E:\测试")
文件的处理
next
For Each dir As String In filesys.GetDirectories("E:\测试")
    Functions.Execute("a",dir)
next

 回到顶部