Excel VBA从工作簿复制和插入/粘贴特殊值

任何人都可以帮助这个Excelmacros吗？ 我试图从一张纸复制到另一张纸，但是它在…上崩溃

Sheets("Sheet1").Range("A6").PasteSpecial xlPasteValues 

不知道我在做什么错…

 Sub Copy() Sheets("Sheet1").Range("A2:D26").Copy Workbooks.Open("C:\Users\j\Trial.xltx").Activate Sheets("Sheet1").Range("A6").PasteSpecial xlPasteValues Application.CutCopyMode = False rngDest.Insert xlShiftDown Err_Execute: If Err.Number = 0 Then MsgBox "Copying Successful :)" Else _ MsgBox Err.Description End Sub 

另外，这是围绕粘贴值和插入数据的最佳方式吗？ 谢谢

Answer 1

尝试设置所有对象的亲子关系，直接与他们工作，保持距离。激活报表。 试试这个，并确保Trail.xltx工作簿实际上有一个名为Sheet1的工作表。

 Sub Copy() Dim wbThis as Workbook Set wbThis = ThisWorkbook wbThis.Sheets("Sheet1").Range("A2:D26").Copy Dim wbPaste as Workbook Set wbPaste = Workbooks.Open("C:\Users\j\Trial.xltx") wbPaste.Sheets("Sheet1").Range("A6").PasteSpecial xlPasteValues rngDest.Insert xlShiftDown ' this is bizarre, because you never set this variable Err_Execute: If Err.Number = 0 Then MsgBox "Copying Successful :)" Else _ MsgBox Err.Description End Sub