有没有一种方法可以从VBA实时写入sharepoint excel文件，而无需下载文件并保存到原始文件？

Sub WriteToSharePointExcel()
    Dim objHTTP As Object
    Dim strURL As String
    Dim strData As String
    
    ' 设置SharePoint URL和文件路径
    strURL = "https://your-sharepoint-site/_vti_bin/owssvr.dll?Cmd=Display&List={GUID}&ID={ItemID}&View={View}"
    
    ' 准备要写入的数据
    strData = "Sheet1!A1:=" & Chr(34) & "Hello, SharePoint!" & Chr(34)
    
    ' 创建HTTP对象
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    
    ' 发送POST请求
    objHTTP.Open "POST", strURL, False
    objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    objHTTP.send strData
    
    ' 检查响应状态
    If objHTTP.Status = 200 Then
        MsgBox "数据写入成功！"
    Else
        MsgBox "数据写入失败，状态码：" & objHTTP.Status
    End If
    
    ' 释放对象
    Set objHTTP = Nothing
End Sub