Access VBA エクセルファイル取り込みについて

Question

##わからないこと
AccessVBAにてエクセルファイルを取り込む際に、エクセルファイルの任意の列だけを取り込むということは可能でしょうか？

エクセルファイルには、A列～I列までデータがありますが、Accessで必要なのは、A列～D列でございます。

なお、現在の取り込みコードがこちらでございます。

DoCmd.TransferSpreadsheet acImportDelim, , "T01_売上管理", "C:\Users\Documents\01-1 管理\01 売上管理.xlsm", True

Answer 1

AccessVBA + SQLで可能だと思います。AccessのデータソースにはExcelも使えるので。
私は現在は環境ありませんので確認とれませんが、
必要な列と行だけEXCELからインポートしたい --Access Club 超初心者 FORUM--
を参考にされるとよろしいかと。

Comments

[Yoshikun_0945]

コードを記載いただけると大変助かります。

[toshi17922062]

うーむ。。。既に上記のサイトに以下のソースがありますよね？
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
TBName = "社員固定情報"
SheetName = "検索結果"
ImPass = "C:\社員固定情報.xls"

Set dbs = Application.CurrentData
Set db = CurrentDb()

mySQL = "SELECT 社員番号,氏名,フリガナ,名字,名前,性別名,生年月日,入社年月日,入社形態名 INTO [" & TBName & "]"
mySQL = mySQL & "FROM [" & SheetName & "$] IN '" & ImPass & "' 'Excel 8.0;';"

db.Execute mySQL
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
これをカスタマイズするだけだと思いますよ。気をつけるとすれば、Accessフィールド名とExcel項目名の一致とか、型の相違によるエラーがでるとか、そんなところだと思います。
まあ色々試してみてくださいな。