VBA:如何获取使用新的自动保存功能的工作簿的本地文件路径(因此在技术上是从 OneDrive 打开的)？

Question

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

Application.ActiveWorkbook.Path

但由于启用了自动保存功能(这很有用，所以我想继续使用)这将返回 OneDrive 中的远程文件路径。

如何获取本地文件路径？

Answer 1

我认为您正在寻找的是 Environ功能:https://msdn.microsoft.com/en-us/vba/language-reference-vba/articles/environ-function

你可以像这样设置你的“路径”:

MyPath = Environ("LocalAppData")

哪个会返回:

C:\Users\username\AppData\Local

或者

MyPath = Environ("Public")

哪个会返回:

C:\Users\Public

有更多选项可供选择( AppData、 AllUsersProfile 等...)

希望这可以帮助!