如何通过Excel VBA更新Sharepoint列表项

Sub UpdateSharepointListItem()
    Dim siteUrl As String
    Dim listName As String
    Dim itemId As Integer
    Dim fieldValue As String
    
    ' 设置Sharepoint网站URL
    siteUrl = "https://example.sharepoint.com/sites/your-site"
    
    ' 设置Sharepoint列表名称
    listName = "Your List"
    
    ' 设置要更新的列表项ID
    itemId = 1
    
    ' 设置要更新的字段值
    fieldValue = "Updated Value"
    
    ' 创建Sharepoint对象
    Dim spSite As Object
    Dim spWeb As Object
    Dim spList As Object
    Dim spListItem As Object
    
    Set spSite = CreateObject("SPSite")
    Set spWeb = spSite.OpenWeb(siteUrl)
    Set spList = spWeb.Lists(listName)
    Set spListItem = spList.GetItemById(itemId)
    
    ' 更新列表项的字段值
    spListItem("Field Name") = fieldValue
    spListItem.Update()
    
    ' 释放资源
    Set spListItem = Nothing
    Set spList = Nothing
    Set spWeb = Nothing
    Set spSite = Nothing
    
    MsgBox "Sharepoint list item updated successfully!"
End Sub