VBA：使用 Filesystemobject 定位工作簿路径答案

【问题标题】：VBA: Using Filesystemobject to locate workbook pathVBA：使用 Filesystemobject 定位工作簿路径
【发布时间】：2021-03-26 15:45:24
【问题描述】：

我正在使用 FileSystemObject 中的 GetFolder 方法来定位工作簿的路径。然后，我使用该路径在同一目录中搜索文件名，并使用某些参数从具有特定名称的文件中提取信息。从 windows 目录工作时它工作正常，但是我工作的公司使用 Sharepoint。从 Sharepoint 访问 Excel 工作簿时，此方法不再有效。工作簿可以正常打开，但是当我运行宏时，我收到一条错误消息。

有问题的代码：

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(Application.Thisworkbook.Path)

错误：无法找到路径（瑞典文字错误消息：Det går inte att hitta filsökvägen）

有人知道该怎么做吗？我尝试了一些替代方法来获取路径，但到目前为止没有任何效果。

【问题讨论】：

Sharepoint 使用 https 路径，而不是常规文件系统，因此无法使用 FSO 搜索该路径。
尝试：设置 oFolder = oFSO.GetFolder(" sharepoint.sharepoint.com/si...rt%20v2.6.xlsm ") 或设置 OutputFile = Workbooks.Open(" sharepoint.sharepoint.com/si...rt%20v2.6.xlsm ") 并带有文件的完整链接

标签： excel vba

【解决方案1】：

也许使用 WinHttp 对象通过 SharePoint REST API 获取 SP 库的内容会更干净。无论如何，这就是 Microsoft 希望您解决此问题的方式。参考this article和SP REST API Documentation。

几年前我们还发现了一个肮脏的方法。如果您将库的内容同步到文件资源管理器，那么 FSO 很有可能可以工作。但请记住，同步库最好保持最新。此外，SharePoint 可以处理比 FSO 更长的路径，因此当层次结构变深时，您只能获得前 250 个字符。

因此，我会使用 API。

【讨论】：