VBA/Excel - 工作簿另存为后剪贴板为空

Question

10 年后，我发现自己制作了第一个 post。我一直在无休止地寻找解决方案，但无济于事。我想：

复制单元格区域
保存并关闭工作簿
用户可以粘贴到另一个应用程序

我什至没有在下面的代码中关闭工作簿，但 SaveAs 后剪贴板上没有任何内容。

Sub Test()
     Application.CutCopyMode = True
     ActiveWorkbook.Sheets(1).Range("A1:C5").Copy
     ActiveWorkbook.SaveAs Filename:="F:\Test.xlsx"
End Sub

将 CutCopyMode 设置为 False 会产生相同的结果。如果我排除 SaveAs 行，我可以粘贴没有问题。

Answer 1

由于保存后工作簿没有任何变化，您只需切换行即可获得所需的最终结果。

Sub Test()
     Application.CutCopyMode = True
     ActiveWorkbook.SaveAs Filename:="F:\Test.xlsx"
     ActiveWorkbook.Sheets(1).Range("A1:C5").Copy
End Sub

VBA/Excel - 工作簿另存为后剪贴板为空

VBA/Excel - clipboard empty after workbook SaveAs

excel

clipboard

vba