Excel vba selection.copy目标未正确粘贴

Question

基本上我想创建一个新工作簿并从已打开的工作簿（文件名）中复制一些数据并将其粘贴到新工作簿中。我有以下vba代码：

Workbooks.Add
Set new_wb = ActiveWorkbook
Workbooks(Filename).Worksheets("pivot").Range("A28").Activate
ActiveCell.CurrentRegion.Select
Selection.Copy Destination:=new_wb.Worksheets("Sheet1").Range("B2")

但是，我没有看到粘贴到新工作簿中的任何内容。因此，我想知道我做错了什么。任何见解将不胜感激。谢谢！

Answer 1

避免使用Select和Activate：

Workbooks.Add
Set new_wb = ActiveWorkbook
Workbooks(Filename).Worksheets("pivot").Range("A28").CurrentRegion.Copy Destination:=new_wb.Worksheets("Sheet1").Range("B2")