复制后未粘贴Excel注释

Question

我正在尝试将注释从一个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相同。