Sub 別ファイルデータの二次元配列への取込み()
Dim dataArray() As String '要素数を指定しない'
Dim LastRow As Long
Dim LastCol As Long
Dim i As Long
Dim j As Long
Dim WB As Workbook
Dim SheetName As String
Dim objExcel As Object
Dim FilePath As String
'別ファイルのパスを取得'
FilePath = Range("A7") 'Excelファイルのフルパスのセル'
'別ファイルのシート名を指定します'
SheetName = "データシート"
'Excelを開きます'
Set objExcel = CreateObject("Excel.Application")
Set WB = objExcel.Workbooks.Open(FilePath)
With WB.Worksheets(SheetName)
'最終行と最終列を指定します。'
LastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
'要素数を再定義します。要素が「0」からスタートするように引き算しています。'
ReDim dataArray(LastRow - 2, LastCol - 1)
'「データ」シートの情報を配列に取り込みます。'
For i = 0 To UBound(dataArray, 1)
For j = 0 To UBound(dataArray, 2)
dataArray(i, j) = .Cells(i + 2, j + 1)
Next j
Next i
End With
Stop
'後処理'
WB.Close
Set objExcel = Nothing
Set WB = Nothing
MsgBox "完了"
End Sub
