是否可以使用VBA将Excel列表中的部分内容上载到SharePoint列表中？

Sub UploadToSharePoint()
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objList As Object
    
    ' 获取SharePoint列表的URL
    Dim SharePointURL As String
    SharePointURL = "https://your_sharepoint_site_url"
    
    ' 打开Excel文件和工作表
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(ThisWorkbook.Path)
    Set objFile = objFolder.Files("Your_Excel_File.xlsx")
    Workbooks.Open objFile.Path
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' Sheet1为Excel中的工作表名
    
    ' 连接到SharePoint列表
    Set objList = CreateObject("Microsoft.XMLHTTP")
    objList.Open "POST", SharePointURL & "/_api/web/lists/getByTitle('Your_SharePoint_List')/Items", False
    objList.setRequestHeader "Content-Type", "application/json; charset=utf-8"
    
    ' 循环Excel列表中的行，并将每行数据上传到SharePoint列表
    Dim row As Integer
    Dim data As String
    For row = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).row ' 从第2行开始，假设第1行为表头
        ' 构建上传的JSON数据
        data = "{"
        data = data & """Title"": """ & ws.Cells(row, 1).Value & """, " ' 根据实际情况修改列名和数据
        data = data & """Column1"": """ & ws.Cells(row, 2).Value & """, "
        data = data & """Column2"": """ & ws.Cells(row, 3).Value & """"
        data = data & "}"
        
        ' 发送HTTP请求将数据上传到SharePoint列表
        objList.send ("{""__metadata"": {""type"": ""SP.Data.Your_x0020_SharePoint_x0020_ListListItem""}, ""Title"": """ & ws.Cells(row, 1).Value & """}")
    Next row
    
    ' 关闭Excel文件
    ThisWorkbook.Close SaveChanges:=False
    
    ' 清理对象
    Set ws = Nothing
    Set objList = Nothing
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing
End Sub