ExcelVBAのSQL：結合した結果で更新(Join & Update)

１．実行条件

• Excelのバージョン：MS365 64bit
• VBAのExcel参照ライブラリ：Excel 16 Object Library
• DBプロバイダー：Microsoft.ACE.OLEDB.12.0, Excel 12.0

２．サンプルデータの構造（同様の構造のシートが２つ存在）

３．２つのシートを結合して、一方のシートの値で別のシートの値を更新（Join & Update)

• 以下、SQLのみ記載。
• Joinする際に対象シートに抽出条件を設定。

UPDATE 
  (SELECT * FROM [シート1$] WHERE CStr([店舗ID]) <> '' AND [項目タイプ] = 'EX') AS T_1
  LEFT JOIN [シート2$] AS T_2 
  ON T_1.[会社ID] = T_2.[会社ID]   
    AND T_1.[店舗ID] = T_2.[店舗ID]   
    AND T_2.[項目タイプ] = T_2.[項目タイプ] 
SET T_2.[入金] = T_1.[売上] 

４．エラー対処

• 文字列の条件は、ダブルクオーテーションではなくシングルにしないと以下のエラーメッセージが表示される。(<< X >>エラー箇所数）

[Microsoft][ODBC Excel Driver]パラメーターが少なすぎます。<< X >>を指定してください。