Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 852|回复: 9

求助大神,officeVBA怎么遍历WPS的共享文件夹

[复制链接]
发表于 2023-1-17 11:36 | 显示全部楼层 |阅读模式
如题,因为WPS其他人的共享文件夹会有一层 "XXXX/共享文件夹 /XXX" 的目录。
然后这个"共享文件夹 "最后一位是个特殊字符,VBA不识别,
现在想从WPS的共享目录里自动抓取信息,所以需要先遍历,再根据需求定位到文件,再抓取内容
但是这第一步,遍历WPS的共享目录就卡住了,麻烦大神帮忙看看如何解决,或者WPS是否有其他方式可以在本地用VBA调取

前提:WPS网盘上的东西是其他人共享的,不能做自己的共享放上去

感谢,感谢
 楼主| 发表于 2023-1-17 11:47 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2023-1-17 13:09 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2023-1-18 08:29 | 显示全部楼层
继续求大佬解惑
回复

使用道具 举报

发表于 2023-1-18 11:21 | 显示全部楼层
共享文件夹*

后面加个星号
回复

使用道具 举报

 楼主| 发表于 2023-1-18 11:49 | 显示全部楼层
okjok 发表于 2023-1-18 11:21
共享文件夹*

后面加个星号

好的,我去试试,感谢
回复

使用道具 举报

 楼主| 发表于 2023-1-18 12:03 | 显示全部楼层
本帖最后由 123431380 于 2023-1-18 13:18 编辑
okjok 发表于 2023-1-18 11:21
共享文件夹*

后面加个星号

试过了,不行,主要需要用到这个地址的地方有
打开文件
Workbooks.Open(XXX)
建立对象
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.getfolder(XXX)
遍历
Dir(XXX)
创建目录
MkDir XXX
复制文件
fso.CopyFile XXX,XXX
回复

使用道具 举报

发表于 2023-1-19 16:24 | 显示全部楼层
试试看把最后的特殊字符用chr()的形式
回复

使用道具 举报

 楼主| 发表于 2023-1-28 13:07 | 显示全部楼层
benhsu 发表于 2023-1-19 16:24
试试看把最后的特殊字符用chr()的形式

谢谢回答,试过了,也不行
回复

使用道具 举报

 楼主| 发表于 2023-2-24 15:07 | 显示全部楼层
还是没有解决,wps为啥这么恶心呢,网盘地址非要加个特殊字符
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-4-24 08:20 , Processed in 0.275848 second(s), 8 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表