从 SharePoint 网站打开 Excel 文件

我正在尝试使用 VBA 从 SharePoint 打开 Excel 文件。由于每次运行宏时我要查找的文件可能会有所不同，因此我希望能够查看 SharePoint 文件夹并选择我需要的文件。

当我想在网络驱动器上查找文件时，下面的代码工作正常，但是当我将其替换为 SharePoint 地址时，我收到“运行时错误 76：找不到路径”。

Sub Update_monthly_summary()

Dim SummaryWB As Workbook
Dim SummaryFileName As Variant

ChDir  "http://sharepoint/my/file/path"
SummaryFileName = Application.GetOpenFilename("Excel-files,*.xls", _
1, "Select monthly summary file", , False)
If SummaryFileName = False Then Exit Sub

Set SummaryWB = Workbooks.Open(SummaryFileName)

End Sub

当我将此地址粘贴到 Windows 资源管理器中时，访问 SharePoint 文件夹没有任何问题，因此我知道路径是正确的。

为什么VBA不喜欢它？

尝试使用以下代码从 SharePoint 站点中选取文件：

Dim SummaryWB As Workbook
Dim vrtSelectedItem As Variant

With Application.FileDialog(msoFileDialogOpen)
    .InitialFileName = "https://sharepoint.com/team/folder" & "\"
    .AllowMultiSelect = False
    .Show
    For Each vrtSelectedItem In .SelectedItems
        Set SummaryWB = Workbooks.Open(vrtSelectedItem)
    Next
End With

If SummaryWB Is Nothing then Exit Sub

如果我没记错的话，Microsoft Scripting Runtime必须启用参考。另外，您的网站可能使用反斜杠，我的网站使用正斜杠。