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

Question

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

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

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

任何人都可以向我建议可以使用的代码，并可以从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

这篇SO文章很好地涵盖了您的问题。 要访问文件系统（包括网络）中的文件：

此方法打开某个工作簿：

Workbooks.Open ("yourWorkbook.xls")

此方法的文档和示例 。

如果您确实要打开文件夹，则可以使用以下命令：

Application.FollowHyperlink "FolderLocation"

此方法的文档 。

编辑：

在描述使用UNC路径此 SO文章。 将文件名添加到路径中，并使用上述方法访问它。

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