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值。