Access VBA 作成済みのテーブルにデータを上書き取り込み

Question

Accessにてすでに作成済みのテーブルにデータを取り込み

Accessにてすでに作成済みのテーブルデータを全削除後、新しく.csvファイルの指定した列だけ取り込む場合のコードは下記のコードでよろしいでしょうか？
※取り込み作業で使用するテーブルは１つのみとなっております。

  'レコード削除の確認メッセージを表示しない
  DoCmd.SetWarnings False
  'テーブルのデータを全削除する
  Dim SQL As String
  SQL = "DELETE * FROM T99_社員マスタ"
  DoCmd.RunSQL SQL

  TBName = "T99_社員マスタ"
  SheetName = "社員マスタ"
  ImPass = "C:\Users\Documents\01-1 売上管理\99 社員マスタ.csv"

  Set dbs = Application.CurrentData
  Set db = CurrentDb()
  
  mySQL = "SELECT 社員番号,社員名,退社日付,売上登録ID INTO [" & TBName & "]"
  mySQL = mySQL & "FROM [" & SheetName & "$] IN '" & ImPass & "' 'Excel 8.0;';"
  
  db.Execute mySQL

このコードを実行すると、『T99_社員マスタ』は存在しています。というエラーが出てしまいます。

Answer 1

SELECT...INTOは「テーブル作成クエリ」で、
SELECT...INTO ステートメント - Access

既存のテーブルに追加するのは、INSERT INTOの「追加クエリ」ですね。
INSERT INTO ステートメント - Access

Comments

[Yoshikun_0945]

コードの例はどのようになりますでしょうか？

[toshi17922062]

こちらに環境がないので確認できませんが、ひとまず以下のようなSQLで確認してみてください。

基本は、こんな感じです。
INSERT INTO テーブル名 (カラム1,カラム2,…,カラムN)
SELECT カラム1,カラム2,…,カラムN FROM テーブル名
IN ‘ファイル名’;

INSERT INTO T99_社員マスタ (社員番号,社員名,退社日付,売上登録ID)
SELECT 社員番号,社員名,退社日付,売上登録ID From [99 社員マスタ.csv]
In 'C:\Users\Documents\01-1 売上管理' 'Excel 8.0';

INSERT INTO T99_社員マスタ (社員番号,社員名,退社日付,売上登録ID)
SELECT 社員番号,社員名,退社日付,売上登録ID From [99 社員マスタ.csv]
In 'C:\Users\Documents\01-1 売上管理' 'Text;Hdr=Yes';

環境があれば確認できるんですけどねぇ。