关闭工作簿时如何禁用 excel vba 中的剪贴板提示？

Question

因此，我正在处理多个工作簿，从中我将 Sheet1 中的所有数据从每个工作簿复制到主工作簿上各自的工作表中。在我这样做之后，我将多个工作簿编码为关闭。但是，会弹出一个烦人的提示，询问我是否要始终将复制的数据保留在剪贴板上，我想让它不弹出，或者当它弹出时，我希望自动选择“否”。

我知道有人问过类似的问题，但它对我没有用，我想这是因为我有一个矩形的数据区域而不仅仅是一列？我真的是 vba 的新手，但我尝试弄乱Disable clipboard prompt in Excel VBA on workbook close 中的代码，但我没有运气。

这是我的原始代码：

Sub CFM56copydata()
Dim wbk As Workbook
'The workbook is opened using the text from a textbox in a userform i.e:
strFirstFile = Userform1.dog.Text
Set wbk = Workbooks.Open(strFirstFile)
With wbk.Sheets("Sheet1")
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
End With
Set wbk2 = ThisWorkbook
wbk2.Sheets("dog").Range("A1").Insert
wbk.Close
End Sub

这是我尝试调整它的方法，因此我完全避免使用剪贴板。 （没用，在第 12 行给我一个调试错误）

Sub fix()
Dim wbk As Workbook
strFirstFile = Userform1.CFM56path.Text
Set wbk = Workbooks.Open(strFirstFile)
Set wbk2 = ThisWorkbook
Dim rSrc As Range
Dim rDst As Range
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Set rSrc = Selection
Set rDst = wbk2.Sheets("dog").Cells("A1").Resize(rSrc.Rows.Count, rSrc.Columns.Count)
rDst = rSrc
wbk.Close
End Sub

Answer 1

如果剪贴板提示是问题所在，请在粘贴完成后将其清空。

wbk2.Sheets("dog").Range("A1").Insert
Application.CutCopyMode = False
wbk.Close

Answer 2

如果您将 wbk.Close 语句更改为：

Application.DisplayAlerts = False
wbk.Close
Application.DisplayAlerts = True