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

Question

我想将单元格A2到A4中的信息复制到我当前的工作簿中，并使用以下代码执行此操作，但是，当我运行宏时，出现以下消息：Run时间错误'9'，下标超出范围。我如何在范围内做到这一点？

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

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

UPDATE

我做了它，以便将选择的范围内，但现在我得到运行时错误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