MS Access テーブルから Excel に行をインポートする必要があります。以下の VBA マクロはまさにそれを行います。
Sub Macro1()
'
'
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=C:\Documents and Settings\Administrator\My Documents\test_db.mdb;DefaultDir=C:\Documents and Setting" _
), Array( _
"s\Administrator\My Documents;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _
)), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT Table1.ID, Table1.name, Table1.id, Table1.var1, Table1.var2" & Chr(13) & "" & Chr(10) & "FROM `C:\Documents and Settings\Administrator\My Documents\test_db`.Table1 Table1" _
)
.Name = "Query from MS Access Database"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertEntireRows
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub
MS アクセス テーブル 1
name id var1 var2
joe 1 23 34
マクロを 1 回実行すると、Excel に入る
name id var1 var2
joe 1 23 34
マクロを再度実行すると、Excel が表示されます
name id var1 var2 name id var1 var2
joe 1 23 34 joe 1 23 34
それ以外の
name id var1 var2
joe 1 23 34
name id var1 var2
joe 1 23 34
MS Access の行を既存のデータの下にある新しいデータ行として Excel にインポートするには、何を変更すればよいか分かりますか?