AccessでEXCELの最終行は指定しないでインポートする時のＶＢＡ

こんにちは脇村です。僕のブログでは、本業での実務上のＥＸＣＥＬ、ＡＣＣＥＳＳマクロ＆ＶＢＡの使えそうなコードの紹介、コールドリーディングの実践例、人生の難易度を下げる方法、自己啓発コラム、最近読んでいいなと思った本等について、主に発信していきたいと思っています。

今回はAccess VBAについて発信させてください。
こういったプログラム系統は何を実現したいかを強く頭に描くことが実現への第一歩につながります。
少しずつ発信していってその手助けができれば幸いだと思っています。
今回はAccessでEXCELの最終行は指定しないでインポートする時のＶＢＡについてです。

Option Compare Database											
Option Explicit
											
Sub EXCELの最終行は指定しないでインポート()											
											
DoCmd.DeleteObject acTable, "T_商品"			'①									
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "T_商品", "パス名\ファイル名", True, "商品" & "!" & "A1:AW"     	'②							
														
End Sub

①既存のT_商品というテーブルを削除します。②でインポートし直します。
②EXCELのパス名\ファイル名の商品sheetからACCESSのT_商品にインポートするＶＢＡです。”A1:AW”ですが、AWの横には何も数字を打つ必要はありません。こうすることによって最終行は勝手に判断してくれます。

以上、 AccessでEXCELの最終行は指定しないでインポートする時のＶＢＡでした。次回もまたよろしくお願いします。

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
今回の記事はこれで締め切らせていただきます。脇村の日常で役に立つ技術ー雑記ブログ記事、次回もよろしくお願い致します。

末筆ながら、本サイトのカテゴリーごとの記事です。
各記事の一番下の方に、関連記事のリンクが貼ってあるので、興味があれば参照お願い致します。
せどりで月商７０万円達成する方法（ノーブランド品）
ダイナマイトモチベーションDM6「自分を愛すること」
日常のつぶやき―脇村（２４年２月１４日）
今の時代に必要な考え方（人間関係のトラブルを防ぐ方法）
コールドリーディング実践例その４８
 コールドリーディング講義（コールドリーディングの使えるフレーズ集）
おすすめ本「君しかいない！と言われる人になる」
今の時代を生き抜くために－脇村（正社員と非正社員はどちらが得か）
Excel VBA L列規格半角文字にするＶＢＡ
 電話占いの現場での嫌な質問が来た時について