如何用Visual Basic代码将本地PDF重命名上传至Teams？解决权限报错

问题根源分析 #

出现75号「路径文件访问权限错误」主要有两个核心原因：

1. 目标路径不完整：代码中destURL仅指定了文件夹路径，FileCopy方法要求必须明确目标文件名，否则无法完成复制操作。
2. 权限或路径有效性问题：Teams同步文件夹可能存在权限限制，或是路径拼写错误、文件夹未实际同步完成。

解决方案 #

1. 修正目标路径

必须在destURL中包含新的文件名，示例：

destURL = "C:\Users\id\company\new_banana.pdf"

2. 验证路径与权限

• 手动打开目标路径C:\Users\id\company，确认文件夹存在且能正常写入文件
• 右键文件夹→「属性」→「安全」，检查当前用户是否拥有写入权限
• 确保Teams客户端处于运行状态，同步文件夹未出现暂停、冲突等异常

3. 修正后的完整代码

Sub CopyFileAndRename()
    Dim srcURL As String
    Dim destURL As String

    srcURL = "C:\Path\To\Your\banana.pdf"
    ' 目标路径需包含新文件名
    destURL = "C:\Users\id\company\new_banana.pdf"

    ' 提前检查源文件和目标文件夹是否存在
    If Dir(srcURL) = "" Then
        MsgBox "源文件不存在，请检查路径！"
        Exit Sub
    End If
    ' 提取目标文件夹路径并检查是否存在
    Dim destFolder As String
    destFolder = Left(destURL, InStrRev(destURL, "\"))
    If Dir(destFolder, vbDirectory) = "" Then
        MsgBox "目标文件夹不存在，请检查路径！"
        Exit Sub
    End If

    ' 执行复制并捕获错误
    On Error Resume Next
    FileCopy srcURL, destURL
    Select Case Err.Number
        Case 0
            MsgBox "文件复制并重命名成功！"
        Case 75
            MsgBox "权限/路径错误：请确认目标文件夹的写入权限，或检查路径是否正确"
        Case Else
            MsgBox "复制失败：" & Err.Description
    End Select
    On Error GoTo 0
End Sub

内容的提问来源于stack exchange，提问作者박은영