Excel VBA插件仅调试模式可正常保存文件至SharePoint求助

核心症状：通过Excel功能区一键运行自定义插件的VBA代码时，SharePoint上生成空文件；手动调试（带断点）时能正常保存完整数据。已调整路径无效，核心代码如下：

Application.ActiveSheet.UsedRange.Copy

Set NewBook = Workbooks.Add
NewBook.Worksheets(1).Range("A1").PasteSpecial (xlPasteAll)
NewBook.Worksheets(1).Columns("A:Z").Columns.AutoFit

dateoutput = Format(Date, "dd.mm.yyyy")

savefolder = "https://xxxxxxxx.sharepoint.com/personal/mycompanyusername/Documents/foldernamehere/"
fullfilepath = savefolder & "DY Tracking " & dateoutput & ".xlsx"

NewBook.SaveAs Filename:=fullfilepath, FileFormat:=xlOpenXMLWorkbook

问题根源 #

调试模式下代码执行会因断点暂停，剪贴板有足够时间保留复制的数据；而功能区运行时代码执行速度快，剪贴板数据未就绪就执行粘贴，或者Copy/Paste操作在非交互上下文下失效，导致新工作簿无数据，最终保存为空文件。

解决方案 #

方案1：替换Copy/Paste为直接赋值（推荐，彻底避免剪贴板依赖） #

用单元格值直接赋值替代剪贴板操作，稳定性更高：

' 替换原Copy/Paste代码段
Dim sourceData As Variant
sourceData = Application.ActiveSheet.UsedRange.Value

Set NewBook = Workbooks.Add
With NewBook.Worksheets(1)
    ' 按原数据尺寸赋值
    .Range("A1").Resize(UBound(sourceData, 1), UBound(sourceData, 2)).Value = sourceData
    .Columns("A:Z").AutoFit
End With

' 后续保存代码不变
dateoutput = Format(Date, "dd.mm.yyyy")
savefolder = "https://xxxxxxxx.sharepoint.com/personal/mycompanyusername/Documents/foldernamehere/"
fullfilepath = savefolder & "DY Tracking " & dateoutput & ".xlsx"
NewBook.SaveAs Filename:=fullfilepath, FileFormat:=xlOpenXMLWorkbook

方案2：保留Copy/Paste，增加剪贴板就绪等待 #

在Copy后添加DoEvents确保数据写入剪贴板，再执行粘贴：

Application.ActiveSheet.UsedRange.Copy
DoEvents ' 等待剪贴板完成数据写入

Set NewBook = Workbooks.Add
NewBook.Worksheets(1).Activate ' 明确激活目标工作表
NewBook.Worksheets(1).Range("A1").PasteSpecial xlPasteAll
DoEvents ' 等待粘贴完成
NewBook.Worksheets(1).Columns("A:Z").AutoFit

' 后续保存代码不变

方案3：保存前验证数据存在 #

添加检查逻辑，避免空文件生成：

' 在SaveAs前加入判断
If NewBook.Worksheets(1).UsedRange.Cells.Count > 1 Then ' 至少有表头+1行数据
    NewBook.SaveAs Filename:=fullfilepath, FileFormat:=xlOpenXMLWorkbook
Else
    MsgBox "数据复制失败，未生成文件", vbExclamation
End If

额外注意事项 #

• 确保SharePoint路径末尾的斜杠/存在，避免路径拼接错误
• 功能区插件运行时，尽量避免依赖ActiveSheet，改用明确的工作表引用（比如ThisWorkbook.Worksheets("目标工作表名")）

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