VBA 从共享点文件夹打开特定的 excel 文件

Question

我想打开一个 Excel 文件，该文件存储在我的 SharePoint 文件夹下

//文档//设计//Excel //items.xlsx

我通过互联网搜索并想出了以下代码。代码的问题是它在本地驱动器中打开“文件打开”对话框。

谁能给我推荐一个我可以使用并可以从 SharePoint 中打开 Excel 文件的代码

这是我尝试过的，前面的示例在论坛中尝试过

Sub Share()
Dim S As Workbook
Dim WB As Variant

With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = "https://Sharepoint.de/Content/0030/default.aspx" & "/RootFolder=%2Fcontent%2F00008200%2FTeam%20Documents%2F02%20%2D%20Design%2F0001%20Design%2FExcel&FolderCTID=0x01200083BC38D90EC5674491B520CC48282737&View={28035ED9-59EF-42BE-BA4B-A36193C54539}&InitialTabId=Ribbon%2EDocument&VisibilityContext=WSSTabPersistence"

.AllowMultiSelect = False
.show

For Each WB In .SelectedItems
Set S = Workbooks.Open(WB)
Next
End With

If S Is Nothing Then Exit Sub

End Sub

提前谢谢你

Answer 1

This SO article 很好地解决了您的问题。 要访问文件系统（包括网络）中的文件：

此方法打开某个工作簿：

Workbooks.Open ("yourWorkbook.xls")

Documentation 和 examples 用于此方法。

如果你真的想打开文件夹，你可以使用这个：

Application.FollowHyperlink "FolderLocation"

Documentation 用于此方法。

编辑：

使用This SO 文章中所述的 UNC 路径。将您的文件名添加到路径并使用上述方法访问它。

您可以将文章中示例代码中的Cells(RowCtr, 1).Value = f.Name 替换为简单的Debug.Print f.Name 来检查结果。