如何通过Excel VBA宏连接到Sharepoint中的MsAccess 2016 .accdb文件

Sub ConnectToSharepointAccess()
    Dim conn As Object
    Dim dbPath As String
    Dim accApp As Object
    
    ' 设置Sharepoint中的MsAccess文件路径
    dbPath = "https://sharepoint_site_url/your_access_database.accdb"
    
    ' 创建连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 设置连接字符串
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE=" & dbPath
    
    ' 打开连接
    conn.Open
    
    ' 创建Access应用对象
    Set accApp = CreateObject("Access.Application")
    
    ' 将连接对象分配给Access应用对象
    accApp.Visible = True
    accApp.OpenCurrentDatabase dbPath, False, False, "MS Access;PWD=password"
    
    ' 执行其他操作，如查询数据等
    
    ' 关闭连接和Access应用对象
    conn.Close
    accApp.Quit
    
    ' 释放对象
    Set conn = Nothing
    Set accApp = Nothing
End Sub