ADOでマスタ更新（SQL）｜VBAサンプル集

公開日：2013年5月以前　最終更新日：2016-09-08

ADOでマスタ更新（SQL）

VBAでADOを使用し、マスターデータを更新します。

ADOではSQL文が必要になりますが、

ここではSQL文の詳細については説明を料略します。

自身のブックの、他シートを更新します。

シート「顧客マスタ」の、A列が顧客番号、B列が顧客名で、1行目が見出しになっているものとします。


  
    
      
      Sub sample1()

      　　Dim objCn As New ADODB.Connection

      　　Dim strSQL As 
String
      　　With objCn

      　　　　.Provider = 
"Microsoft.Jet.OLEDB.4.0"

      　　　　.Properties("Extended Properties") = "Excel 
8.0"

      　　　　.Open ThisWorkbook.Path & "\" & ThisWorkbook.Name

      　　End 
With

      　　

      　　strSQL = ""

      　　strSQL = strSQL & " UPDATE 
[顧客マスタ2$]"

      　　strSQL = strSQL & " SET"

      　　strSQL = strSQL & " 顧客名 = 
'お名前'"

      　　strSQL = strSQL & " WHERE"

      　　strSQL = strSQL & " 顧客番号 = 
12345"

      　　

      　　objCn.Execute (strSQL)

      　　

      　　objCn.Close

      　　Set objCn = 
Nothing

      End Sub

※「参照設定」で「Microsoft ActiveX Data Objects 2.X Library」を追加して下さい。

※Excel2007以降
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Properties("Extended Properties") = "Excel 12.0"
こちらを使用してください。

SQL文は、UPDATEになります。

SET 顧客名 = 'お名前'

顧客名のフィールドを、"お名前'"で更新します。

文字定数は、「'」シングルクォーテーションで囲みます。

WHERE 顧客番号 = 12345

これで対象のレコードを指定しています。

しかし、単に同一ブックなら、以下の方が、はるかに簡単で、処理速度も速いです。


  
    
      
      Sub sample2()

      　　Dim i As Long

      　　On Error Resume Next

      　　i = 
Application.WorksheetFunction.Match(12345, Range("A:A"), 0)

      　　If i > 0 
Then

      　　　　Cells(i, 2) = "お名前"

      　　End If

      　　On Error GoTo 0

      End 
Sub

または、Findメソッドを使うかでしょう。

エラー処理等は、適時対応して下さい。

普通は、これで良いですね。

ただ、これが他の開いていないブックだと、話が変わってくるでしょう。

その場合には、ADOでの更新も選択肢にはいってくると思います。

.Open ThisWorkbook.Path & "\" & ThisWorkbook.Name

この部分に、他の更新対象のブックのフルパスを指定すれば、それで更新できてしまいます。

同じテーマ「マクロVBAサンプル集」の記事

VBAでのCSVの扱い方まとめ
 CSVの読み込み方法
 CSVの読み込み方法（改）
CSVの読み込み方法（改の改）
CSVの読み込み方法（ジャグ配列）
CSVの読み込み方法（ジャグ配列）（改）
CSVの出力（書き出し）方法
 UTF-8でCSVの読み書き（ADODB.Stream）
ADOでマスタ付加と集計（SQL）
ADOでマスタ更新（SQL）
ADOでCSVの読み込み（SQL）

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
8.マクロとは？VBAとは？VBAでできること｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.メッセージボックス(MsgBox関数)｜VBA入門

ホーム
マクロVBA応用編
マクロVBAサンプル集
ADOでマスタ更新（SQL）

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.

VBAサンプル集
ADOでマスタ更新（SQL）