Access小技集

Microsoft Access小技集017-AccessにExcelの表を丸ごと配列に入れる

投稿日:2021年9月5日 更新日:

MicrosoftAccess

↑の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の行)

-Access小技集

Copyright© ネーブルス Access講座 , 2021 All Rights Reserved.