使用vba上传文件到共享点的说明

Sub UploadFileToSharedFolder()
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim strSourceFilePath As String
    Dim strDestinationFolderPath As String
    
    ' 设置源文件路径
    strSourceFilePath = "C:\Path\To\Your\File.txt"
    
    ' 设置目标文件夹路径
    strDestinationFolderPath = "\\SharedFolder\Path\"
    
    ' 创建文件系统对象
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    ' 获取目标文件夹对象
    Set objFolder = objFSO.GetFolder(strDestinationFolderPath)
    
    ' 检查源文件是否存在
    If objFSO.FileExists(strSourceFilePath) Then
        ' 复制文件到目标文件夹
        objFSO.CopyFile strSourceFilePath, objFolder.Path & "\" & objFSO.GetFileName(strSourceFilePath)
        MsgBox "文件上传成功！"
    Else
        MsgBox "源文件不存在！"
    End If
    
    ' 释放对象
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing
End Sub