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

Question

###Excelファイルの取り込みエラーについて

  '売上管理.xlsmをインポートする
  ImFLName = "01 売上管理.xlsm"
  TBName = "T01_売上管理"
  SheetName = "売上管理"
  Pass = "C:\Users\Documents\01-1 売上管理\01 売上管理.xlsm"
  Set dbs = Application.CurrentData
  Set db = CurrentDb()
  
  mySQL = "SELECT 売上日付,社員番号,伝票番号,金額 INTO [" & TBName & "]"
  mySQL = mySQL & "FROM [" & SheetName & "$] IN '" & Pass & "' 'Excel 8.0;';"
  db.Execute mySQL

上記のコードを実行すると、テーブルの『T01_売上管理』を新たに作成しようとしているらしく、『実行時エラー3010 T01_売上管理は既に存在しています。というエラーメッセージが表示されました。
そのせいで、既に存在しているテーブルの『T01_売上管理』へExcelデータの取り込みができません。
すでに存在しているテーブルに任意のフィールドのみ取り込む場合は、上記のコードをどのように修正すればよろしいでしょうか？

Comments

[stdio]

タイトルが「Access VBA エクセルファイル取り込みについて」で最終的な質問が「テーブルに任意のフィールドのみ取り込む」なので質問の内容が分かってますね。合わせましょう。

わざと名前を変える事ができるように見える為、名前変えるしかなさそうですね...

Answer 1

取り込む前に前のテーブルをバックアップに設定して既存の処理を追加してやればいいと思います。

　DoCmd.Rename "T01_売上管理BAK", acTable,"T01_売上管理"```

Comments

[Yoshikun_0945]

ご回答いただきまして誠にありがとうございました。
回答いただいたコードを追記したらエラーなく実行できました。