Dateien aus anderem Workbook auslesen

ich möchte aus einem anderen Datenblatt Zellen in ein Array auslesen. Leider liest der unten aufgeführte Code nicht aus dem neu geöffneten Datenblatt, sondern aus dem alten ein.

Wer kann helfen?

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
DocumentName = ThisWorkbook.Path
Workbooks.Open Filename:=DocumentName + "\stammdateien\Daten.xls"
ActiveWorkbook.Sheets(1).Range("A1").Select
aeins = Cells(Rows.Count, 1).End(xlUp).Row
links = 2
hilfe = aeins
ReDim arreins(aeins)
For spalteeins = links To aeins
arreins(K) = Cells(spalteeins, 1).Value
Cells(spalteeins, 6) = arreins(K)
K = K + 1
Next spalteeins
ActiveWorkbook.Close
Application.ScreenUpdating = True

End Sub