Question

我想将单元格A2到A4中的信息复制到我当前的工作簿中并使用以下代码来执行此操作，但是，当我运行宏时，我收到消息：运行时错误“9”，下标输出范围。如何在该范围内制作？

Application.Workbooks("Client and Project Droplist").Worksheets("Sheet1").Range("A2:A4").Select
Selection.Copy

Me.Range("A1").Select
ActiveSheet.Paste

更新

我已经做到这样它将选择范围但现在我得到运行时错误13：类型不匹配。这是新代码

Private Sub Macro_Click()
Application.Workbooks("Client and Project Droplist").Activate
Application.Workbooks("Client and Project Droplist").Worksheets("Sheet1").Select
Application.Workbooks("Client and Project Droplist").Worksheets("Sheet1").Range("A2:A4").Select

Selection.Copy

Workbooks("VBA Exercises").Worksheets(Sheet1).Select
'Workbooks("VBA Exercises").Worksheets(Sheet1).Range("A1").Select
'ActiveSheet.Paste

End Sub

我评论了最后两行，因为我还没到那里。

Answer 1

这对我有用。看起来您必须指定实际的文件名，当您尝试将其粘贴到活动工作簿时，它并不是真正有效。

Application.Workbooks("client and Project Droplist.xlsx").Worksheets("Sheet1").Range("A2:A4).Select
Selection.Copy

Application.Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A1").Select
Selection.Paste

从Excel VBA中的单独工作簿复制信息

1 个答案: