Option Base 1
Dim XL As New Excel.Application
Dim Daten(1000, 5) As String
Dim iSpalte As Integer
Dim iZeile As Integer
 
Private Sub Command1_Click()
Screen.MousePointer = 11
XL.Workbooks.Open "C:\Data.xls"
XL.ActiveWorkbook.Sheets("Tabelle1").Activate
 For iSpalte = 1 To 5
    For iZeile = 1 To 1000
     Daten(iZeile, iSpalte) = Cells(iZeile, iSpalte).Value
    Next iZeile
 Next iSpalte
XL.ActiveWorkbook.Close False
XL.Quit
Screen.MousePointer = 0
End Sub