Access(.accdb)にて.xlsxの特定の列のみインポート

Question

###Access【.accdb拡張子ファイル】にて.xlsxファイルの特定の列のみインポート
Accessデータベース(.accdb)に存在する既存のテーブルに.xlsxファイルの特定の列のデータのみをインポートする形で、下記のコードを記述しましたが、３行ともに赤文字のエラーとなってしまいました。何がいけないんでしょうか？
Officeは２０１０を使用しています。

Private Sub マスタ更新_Click()
INSERT INTO T99_社員マスタ(社員番号,社員名,退社日付,入室ID)
  SELECT 社員番号,社員名,退社日付,入室ID From [社員マスタ$]
  In "C:\Users\Documents\01-1 社員情報管理\99 社員マスタ.xlsx" "Excel 8.0;"
End Sub

データファイル：99 社員マスタ.xlsx
シート名：社員マスタ
インポート先のテーブル名：T99_社員マスタ(新規作成ではなく、既存のテーブルに上書きです。)
インポートする列名：社員番号、社員名、退社日付、入室IDです。

Answer 1

VBAにSQLを直接記述しても駄目です。Executeメソッドで実行する必要があります。

Private Sub マスタ更新_Click()
Dim wSQL As String

wSQL = ""
wSQL = wSQL & VbCrLf & "INSERT INTO T99_社員マスタ(社員番号,社員名,退社日付,入室ID)"
wSQL = wSQL & VbCrLf & "SELECT 社員番号,社員名,退社日付,入室ID From [社員マスタ$]"
wSQL = wSQL & VbCrLf & "In 'C:\Users\Documents\01-1 社員情報管理\99 社員マスタ.xlsx' 'Excel 8.0'"

CurrentDb.Execute wSQL 
End Sub

T99_社員マスタ(新規作成ではなく、既存のテーブルに上書きです。)

上書きってupdateですか？

Comments

[Yoshikun_0945]

上記のコードを実行してみたところ、
実行時エラー'3343'
データベースの形式'C:\Users\Documents\01-1 社員情報管理\99 社員マスタ.xlsx'を認識できません。というエラーメッセージが出てしまいました。
どこを修正すればよろしいでしょうか？
それとも、元ファイル(社員マスタ.xlsx)に問題があるのでしょうか？

[sazi]

動作するSQLを作成して、SQL部分を置き換えてください。

[sazi]

若しくはそのSQLでクエリーを作成して、そのSQLを実行する。(DoCmd.RunSQL)

[Yoshikun_0945]

どういう意味でしょうか？

[sazi]

SQLは質問の内容を貼り付けただけですので、動作しているかどうかはこちらでは分かりません。
VBAにSQLを直接記述しても、VBAは認識できないのでエラーになっているというのが質問に対する答えで、意図しているであろう事をサンプル的に回答しています。

[sazi]

なので、質問にあるSQLがクエリーとして動作している前提での回答です。

[Yoshikun_0945]

もしも、元ファイルの拡張子を.csvとする場合のSQLはどうなりますでしょうか？

[sazi]

それは、以前回答しましたけど、解決済みでしたよね。