如何使用VBA在Sharepoint Online中删除excel文件

Sub DeleteExcelFileFromSharepoint()
    Dim FileUrl As String
    Dim SharepointUrl As String
    Dim Request As Object
    
    '设置Sharepoint网址和要删除的文件路径
    SharepointUrl = "https://yoursharepointurl"
    FileUrl = "/sites/your-site-name/your-folder-name/your-file-name.xlsx"
    
    '创建HTTP请求对象
    Set Request = CreateObject("MSXML2.XMLHTTP")
    
    '发送DELETE请求以删除文件
    Request.Open "DELETE", SharepointUrl & FileUrl, False
    Request.Send
    
    '检查请求的状态码以确认文件是否成功删除
    If Request.Status = 200 Then
        MsgBox "文件已成功删除。"
    Else
        MsgBox "文件删除失败。"
    End If
    
    '释放资源
    Set Request = Nothing
End Sub