vba在onedrive文件夹中无法运行

daqinqin

如下图所，在onedrive中运行程序会显示错误，文件位置是个网络的啥。把程序弄到本地运行就没问题。

有没有解决的办法，让程序可以在onedrive中运行。感谢大佬。

zpy2

https://answers.microsoft.com/en-us/msoffice/forum/all/the-onedrive-nightmare-continues-thisworkbookpath/3350ec2c-e75b-4bfd-acb7-d6ce71bd9c51

WJBWJBWJB

分享一个我在SharePoint、OneDrive网址中遍历文件的方法。
原理是在此电脑中右键【添加一个网络位置】将SharePoint、OneDrive网址添加为一个网絡驱动器（我的网絡驱动器经常会失效，所以我每次运行时用VBA添加）。
例如我的网址：https://xxxxx-my.sharepoint.com/personal/xxxxx_com/Documents添加为Y盘（任意一个电脑没有使用过的盘符都可以）

你的网址：https://d.docs.live.net/ee2e5b8d3162ab18/工作/其他公司/化工/客户资料/chemicalbook

其中https://d.docs.live.net/ee2e5b8d3162ab18添加为Y盘（可以理解为选择一个路径做根目录）
filepath = Y:/工作/其他公司/化工/客户资料/chemicalbook（自动化的话可以用替换函数将网址路径前部分替换成盘符）

f=Dir(filepath & “*.xlsx*） '这个方法Dir不知道可不可以，我一般用FileSystemObject来遍历。

1. Sub CreateNetwork_OneDrive() '新建网絡驅動器
   
2. Set objNetwork = CreateObject("WScript.Network"): Set FSO = CreateObject("Scripting.FilesyStemObject")
   
3. S$ = "Y:"  '自定義驅動器名称
   
4. 'P$ = "https://xxxxx.sharepoint.com/sites/display_xxxxx/Common_Service/21"  'SharePoint网址
   
5. P$ = "https://xxxxx-my.sharepoint.com/personal/xxxxx_com/Documents"  'OneDrive网址
   
6. If FSO.DriveExists(S) Then               '驅動器存在時
   
7. If FSO.GetDrive(S).IsReady Then         '驅動器准備好時
   
8. Exit Sub                               '退出程序
   
9. Else
   
10. objNetwork.RemoveNetworkDrive (S)      '移除驅動器
    
11. End If
    
12. End If
    
13. Set objFd = Application.FileDialog(msoFileDialogFolderPicker)
    
14. objFd.InitialFileName = P
    
15. objNetwork.MapNetworkDrive S, P, False  '添加共享网絡驅動器
    
16. Set objNetwork = Nothing: Set FSO = Nothing
    
17. End Sub
    
18. 
    
19. Sub LuJing()
    
20. CreateNetwork_SPO
    
21. Set fs = CreateObject("Scripting.FileSystemObject")
    
22. Path = "Y:"
    
23. Set oF = fs.GetFolder(Path)
    
24. For Each R In oF.Files
    
25. 
    
26. Next R
    
27. End Sub

复制代码

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

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