使用VBA向SharePoint中XLSX文件最后一行粘贴数据报错求助

以下是针对这个错误的常见排查方向和解决方法：

• SharePoint文件锁定/权限问题
  这是触发1004错误的高频原因：

  • 先手动打开SP上的目标XLSX文件，尝试编辑并保存，确认是否处于只读状态或无写入权限。如果是只读，说明文件被其他用户锁定，需要联系对方关闭；如果无权限，联系SP管理员调整权限。
  • VBA打开文件时，明确指定可写模式，避免默认只读：

    Dim spWB As Workbook
    Set spWB = Workbooks.Open(Filename:="https://your-sp-site/Shared Documents/target.xlsx", ReadOnly:=False)
    

• 单元格范围引用错误
  复制粘贴的源/目标范围不匹配，或是目标行超出工作表最大行数，都会触发错误：

  • 检查代码中源行和目标行的范围是否一致，比如源是整行复制，目标也要对应整行，不要出现源是Rows(i)而目标是Cells(j,1)这种不匹配的情况。
  • 避免硬编码目标行号，用动态方式获取有效行：

    Dim targetRow As Long
    targetRow = spWB.Worksheets("TargetSheet").Cells(Rows.Count, 1).End(xlUp).Row + 1
    

  • 优先用直接赋值代替剪贴板操作，更稳定且无依赖：

    spWB.Worksheets("TargetSheet").Rows(targetRow).Value = ThisWorkbook.Worksheets("SourceSheet").Rows(sourceRow).Value
    

• SharePoint路径格式错误
  错误的路径会导致VBA无法正确读写SP文件：

  • 确保使用SP文件的完整Web URL（比如https://your-sp-site/sites/team/Shared%20Docs/target.xlsx），而非浏览器地址栏的简化路径，也尽量避免使用映射驱动器（可能存在连接不稳定问题）。

• 目标工作表保护问题
  如果目标工作表被保护且未开放编辑权限，复制粘贴会失败：

  • 操作前临时取消保护，完成后重新保护（如果有密码）：

    With spWB.Worksheets("TargetSheet")
        .Unprotect Password:="your-protect-password" '无密码可省略参数
        '执行复制赋值操作
        .Protect Password:="your-protect-password", UserInterfaceOnly:=True '保留VBA操作权限
    End With
    

• 剪贴板冲突问题
  依赖剪贴板的Copy/Paste操作容易被其他程序干扰：

  • 替换为PasteSpecial指定粘贴类型，或者直接用单元格值赋值，彻底规避剪贴板问题：

    '示例：仅粘贴值和格式
    ThisWorkbook.Worksheets("SourceSheet").Rows(sourceRow).Copy
    spWB.Worksheets("TargetSheet").Rows(targetRow).PasteSpecial xlPasteValuesAndNumberFormats
    Application.CutCopyMode = False '清空剪贴板
    

内容的提问来源于stack exchange，提问作者MBrann