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

我想将单元格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

---

我对最后两行进行了评论，因为我还没有完全做到这一点。

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

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

你忘了在（表1）上加引号了