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來檢查結果。