Excel注释未被粘贴后复制

我试图从一个Excel工作簿复制和粘贴评论到另一个，但从第一个工作簿复制后，评论不会被粘贴 。

这是我的代码：

Sub Comments() Dim x As Workbook Dim y As Workbook Set x = Workbooks.Open("C:\Exportbook.xlsx") Set y = ActiveWorkbook x.Sheets("Tablets").Range("E10:AQ2000").Copy y.Sheets("Tablets").Range("E10:AQ2000").PasteSpecial Paste:=xlPasteComments x.Close SaveChanges:=False End Sub 

Answer 1

您需要使用ThisWorkbook而不是ActiveWorkbook 。

目前你的代码从/到相同的位置复制和粘贴。 打开工作簿x后，它将成为活动工作簿，所以工作簿y与工作簿x相同。