Question

我正在VBA中编写一个宏。这个宏工作正常，直到我改变了顺序，现在我被显示“运行时错误9”。在互联网上进行了大量搜索后，我处于一个松散的状态，我检查了工作表名称是否相同，工作表是否仍然存在以及确保我引用了正确的工作簿。谁能告诉我为什么我会被出现这个错误？

Sub CopyStuff()

Sheets("DR1 -TC-001").Select
Range("C2:P23").Select
 'this is the cell range
 Selection.Copy

 With ActiveWorkbook Sheets.Add
 Range("C2:P23").Select
 Selection.Paste = wkb2

End Sub

Answer 1

使用语句时，您的代码会运行错误，因为结束缺少某些时段。

尝试改编您的代码。

Sub CopyStuff()

 Workbooks("With_data.xlsx").Activate
  'Activate the workbook that contains the data you want to copy    
 Sheets("DR1 -TC-001").Range("C2:P23").Copy
  'Copy a range

 ActiveWindow.ActivatePrevious
  'Revert to the previous new workbook

 With ActiveWorkbook
    .Sheets.Add
    .ActiveSheet.Range("C2:P23").PasteSpecial Paste:=xlPasteAll
 End With
  'Add a sheet and paste the copied range

 Application.CutCopyMode = False
  'Clear the clipboard

End Sub

运行时错误9

1 个答案: