在ONEDRIVE文件夹中VBA文件路径读取出现错误，提示文件名或文件号错误

xiaossi

因为我用了one drive，电脑上的文件地址会增加一个网址。
当我读取文件地址时就出错了，放在其他盘是正常的。
麻烦问问各位老师这种有解决办法吗？

已添加附件，请查看模块1里的代码

joforn

建议上传附件。你总不能让别人帮你调试代码，还得先把你所有的代码重敲一遍吧？

xiaossi

joforn 发表于 2020-12-7 17:03
建议上传附件。你总不能让别人帮你调试代码，还得先把你所有的代码重敲一遍吧？

草率忘记了，已添加麻烦，麻烦帮忙看看，谢谢！

Cellfarmer

我今天也遇到同样问题，但此前已经在One Drive上正常运行很久了。运行时错误号80004005， Can not update,Database or Object is read-only.跟踪程序执行到打开工作簿连接时，ThisWorkbook.FullName取得的值是“Https://..."不是本地路径。ThisWorkbook.Path和ThisWorkbook.FullNameURLEncoded都是这样。把文件存放到本地其他文件夹则正常运行。
Win10 1909企业版 18362.1379；最近安装了2021-02质量更新KB5001028. Excel 版本：Microsoft 365 MSO (16.0.13127.21210) 32bit. VBA 7.1 version 1106 Retail 7.1.1106

鑫尼达

Cellfarmer 发表于 2021-3-17 19:04
我今天也遇到同样问题，但此前已经在One Drive上正常运行很久了。运行时错误号80004005， Can not update,D ...

这个问题，你们解决了吗

huweizhonglk

https://club.excelhome.net/forum ... ead&tid=1530678
请参考
Environ("OneDrive")  & mid(activeworkbook.path,application.FIND("@",application.SUBSTITUTE(activeworkbook.path,"/","@",4)),999)

huweizhonglk

https://club.excelhome.net/forum ... ead&tid=1530678
请参考
Environ("OneDrive")  & mid(activeworkbook.path,application.FIND("@",application.SUBSTITUTE(activeworkbook.path,"/","@",4)),999)

owl55

huweizhonglk 发表于 2021-8-25 11:03
https://club.excelhome.net/forum.php?mod=viewthread&tid=1530678
请参考
Environ("OneDrive")  & mid( ...

请问具体怎么应用呀

h82118

同样问题，困扰了很久。
我的情况：台机Office2013没有登陆微软账号，笔记本电脑Office2016家庭版有登陆微软账号，都用onedrive同步文件。
台机用函数cell、VBA的Path获取onedrive内表格路径没问题，都是本地硬盘的路径，笔记本电脑就不行，获取的路径都是带https://d.docs.live.net的网址，导致笔记本电脑上没法正常运行onedrive内的表格，也试过退出Office2016的微软账号，还是照旧，每次笔记本电脑都要把onedrive内的表格单独拷贝出来，弄好后再拷贝回去。
也曾想用VBA代码解决问题，但总觉得应该没这么麻烦，微软应该有解决方法。昨天搞到今天，终于找到方法，知乎https://www.zhihu.com/question/267923524/answer/2371199572
文件-选项-常规-隐私设置，关闭“开启所有连接体验”

h82118

或者：文件-帐户-管理设置，关闭“开启所有连接体验”