Копирование информации из отдельной книги в Excel VBA

Question

Я хочу скопировать информацию из ячеек A2 в формат A4 в мою текущую книгу и использовать следующий код для этого, однако, когда я запускаю макрос, я получаю сообщение: Run -time error '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