↑のExcelの表を丸ごと配列に入れるやり方
　Dim objSheet As Object
　Dim lngCol As Long
　Dim varArray() As Variant　　’格納する配列

　Set objSheet = ActiveWorkbook.Worksheets(“Sheet1”)

　With objSheet
　　　.Activate
　　　lngRow = .Range(“A1”).End(xlDown).Cells.Row 　　　’最終行を取得
　　　lngCol = .Range(“A1”).End(xlToRight).Cells.Column 　’最終列を取得

　　　varArray = .Range(“A1”, Cells(lngRow, lngCol)).Value
　End With

Set objSheet = Nothing

Excelは、配列に以下のように格納されます。　varArray(Excelの列、Excelの行）