Excel複製後未粘貼的評論

Question

我試圖從一個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相同。