Access小技集

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

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

Microsoft Accessで業務システムを構築する際の、ちょっとしたコツをメモしています。
Access講座内で説明する項目もあります。

 

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講座 , 2024 All Rights Reserved Powered by AFFINGER5.