Ms access 访问VBA-从存储在Sharepoint中的Excel文件获取数据

如果“Model_data.xlsm”文件存储在我的硬盘中，我可以使用下面的代码。Access是否可以从存储在Sharepoint中的“model_data.xlsm”获取数据

Private Sub Update_manu_data_Click()

Dim strXls As String

 strXls = CurrentProject.Path & Chr(92) & "Model_data.xlsm"
 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12,   "Manufacturing_data", _
 strXls, True, "Combined!"

End Sub

---

最后，我确实找到了解决这个问题的方法

我在access中创建了一个私有函数，用于从SP下载Excel文件，然后使用Transferspread sheet函数将数据检索到access表中

下面是我使用access Vba在SP中下载Excel文件时使用的代码

 Private Sub Command2_Click()
  Dim Ex As Object
  Dim Acc As Object
  Dim strXls As String


    Set Ex = CreateObject("Excel.Application")
    Set Acc = Ex.Workbooks.Open("https://Sharepoint File link")

    Ex.Visible = False

    Acc.SaveAs "C:\Users\.......\test.xlsx"

    Acc.Close
    Ex.Quit

    strXls = CurrentProject.Path & Chr(92) & "C:\Users\.......\test.xlsx"
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "Tablename", _
    strXls, True, "Sheet(1)!"
 End Sub

---

这是正确的范围名称吗？@Jordan感谢编辑我创建的混乱。@Nathan_Sav是的，我运行此代码没有任何问题。那么你有什么问题？如何更正指向sp location的路径？@Nathan_Sav:我想知道如果Excel位于sp中，如何使用“DoCmd.Transferspreadsheet”，不用说，但是如果您使用SharePoint上的“获取链接”，则直接文件URL中将包含大量其他内容。您可能必须删除“.xlsx”（或任何文件扩展名）之后的所有内容才能正常打开。