EXCELからACCESSへのインポートの際にフィールドを追加する方法

次のようなEXCELファイルがあります。

　　[A]　　　　　　 [B]
[1] 2018/07/31
[2]AAA　　　　　　1,000
[3]BBB　　　　　　　500
[4]CCC　　　　　　1,500
　 …
（A1には日付）
（A2以降にインポートするデータ）

このファイルのA2以降をACCESSでインポートする際に「日付」フィールドを追加し、
EXCELのA1にある日付を入れて、次のようなテーブルにしたいです。

Tbl_○○○
AAA　1,000　2018/07/31
BBB　　500　2018/07/31
CCC　1,500　2018/07/31

A2セル以降からのインポートは TransferSpreadsheet で実現できましたが、
日付フィールドの追加で行き詰ってしまいました。

どうすれば上記実現可能か教えて下さい。
宜しくお願いします。

No.1 回答者： よろずやkinchan 回答日時： 2018/08/31 17:01

C2以降に日付をコピペじゃだめなんですか？

この回答へのお礼

ご回答ありがとうございます。

説明不足ですみません。
実は元になるEXCELファイルが数百あり、コピペだと対応しきれないので、
日付の入力も自動化したいんです。

幸いフォーマットは全て統一されているので、
インポートの際はフォルダ内のEXCELファイルを全て取り込むようにしてあります。

↓こんな感じです

Private Sub 実行ボタン_Click()
Dim dname As String
Dim fname As String
Dim tblname As String

dname = "C:\hogehoge\"
fname = Dir(dname & "*.xls")
tblname = "Tbl_○○○"

Do While fname <> ""
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, tblname, dname & fname, False, "Table$A2:B"
fname = Dir()
Loop
End Sub

お礼日時：2018/08/31 17:31