ADO访问Sharepoint中的列表(List)

时　间:2023-06-13 08:40:21
作　者:金宇   ID：43  城市：江阴
摘　要:ADO访问Sharepoint中的列表。
正　文:

      ADO 访问Sharepoint中的列表，第一次访问会弹出微软账号登录的提示，登录后下次不会再提示登录。

      以下是在VBA 中使用ADO连接 SharePoint List 的示例代码,以供参考。

    Dim connstr      As String
    Dim conn         As Object
    Dim rst          As Object
    connstr = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=1;RetrieveIds=Yes;DATABASE=https://umvsoft.sharepoint.com/sites/UMVListTest/;LIST={9E4AEE54-AF41-430B-8780-8BD778A1A226};"

    Set conn = CreateObject("adodb.connection")
    conn.Open connstr
    Set rst = CreateObject("adodb.recordset")
    rst.Open "select title,地区中文,地区英文 from 地区表", conn, 1, 1
    Do While Not rst.EOF
        Debug.Print rst!title & rst!地区中文
        rst.MoveNext
    Loop
    rst.Close
    Set rst = Nothing
    conn.Close
    Set conn = Nothing 

注：
https://umvsoft.sharepoint.com/sites/UMVListTest 是sharepoint站点网址，需要改成自己站点的网址

{9E4AEE54-AF41-430B-8780-8BD778A1A226}  是sharepoint站点中某个列表的GUID值。