上传文件到sharepoint : VBA

Sub UploadFileToSharePoint()
    Dim SharePointUrl As String
    Dim FilePath As String
    Dim FileName As String
    Dim objNet As Object
    Dim objWeb As Object
    Dim objFolder As Object
    Dim objFile As Object
    
    ' SharePoint网站的URL
    SharePointUrl = "https://your-sharepoint-site-url"
    
    ' 要上传的文件路径和文件名
    FilePath = "C:\Path\to\your\file\"
    FileName = "your-file-name.xlsx"
    
    ' 创建网络对象
    Set objNet = CreateObject("WScript.Network")
    
    ' 创建SharePoint网站对象
    Set objWeb = CreateObject("SharePoint.OpenDocuments.3")
    
    ' 打开SharePoint网站
    objWeb.EditDocument (SharePointUrl)
    
    ' 获取SharePoint网站的文件夹对象
    Set objFolder = objWeb.ActiveDocument.ParentFolder
    
    ' 上传文件
    Set objFile = objFolder.Files.Add(FilePath & FileName)
    
    ' 关闭SharePoint网站
    objWeb.CloseDocument
    
    ' 释放对象
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objWeb = Nothing
    Set objNet = Nothing
    
    MsgBox "文件上传成功！"
End Sub