VBA：如何获取使用新自动保存function的工作簿的本地文件path（从而从OneDrive技术上打开）？

我有一个工作簿进行一些分析，并将结果输出到工作簿保存在同一目录中的文本文件。 我需要在多台计算机上运行此代码，以便本地目录更改。 以前我只是用过

Application.ActiveWorkbook.Path 

但是由于启用了自动保存function（这很有用，所以我想继续使用），这将返回OneDrive中的远程文件path。

我怎样才能得到本地文件path？

Answer 1

我认为你正在寻找的是一个Environ函数： https : //msdn.microsoft.com/en-us/vba/language-reference-vba/articles/environ-function

你可以像这样设置你的“path”：

 MyPath = Environ("LocalAppData") 

哪个会返回：

 C:\Users\username\AppData\Local 

要么

 MyPath = Environ("Public") 

哪个会返回：

 C:\Users\Public 

有更多的选项可供select（ AppData ， AllUsersProfile等）

希望这可以帮助！