运行时错误9
运行时错误9
提问于 2012-09-04 15:51:18
我正在用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回答 1
Stack Overflow用户
回答已采纳
发布于 2012-09-04 17:17:40
您的代码在With语句上运行时出错，因为缺少End With并且有一些句点。
尝试对您的代码进行这种修改。
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/12258986
复制相关文章
相似问题
腾讯云开发者
