從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