'Accessのテーブルから全レコードを取得 Sub Test1() Dim DBpath As String 'Accessファイルのフルパス Dim adoCn As Object 'Accessへの接続用オブジェクト Dim adoRs As Object 'Accessからの取得用オブジェクト Dim strSQL As String 'SQL文 Dim myArray As Variant '全レコードを格納する配列 Dim tmpFldCnt As Variant 'フィール数 Dim tmpRcdCnt As Variant 'レコード数 'Accessへ接続する Set adoCn = CreateObject("ADODB.Connection") '接続用オブジェクト作成 DBpath = ThisWorkbook.Path & "\Database.accdb" '接