[Excelマクロ]SQLテーブルからINSERT・UPDATE・DELETE文を作成したい

Question

ある発注機関の発注機関コードおよび組織名をまとめたExcelファイルをもとに、MySQLにあるテーブル「t_発注機関」の挿入・更新・削除を行うSQL文を生成するマクロを作成しています。

実際に作成する前に、UPDATE文のみですがSQL文を作成するマクロを見つけたのでこれを参考にしようと考えています。
更新するEXCELファイルのテーブルは以下の通りです。
1行目が更新するカラム名、2行目以降が更新するデータです。
カラム名の先頭に「w_」を付けたものが、UPDATE文のWHERE条件になります。

ID	発注機関コード	取引先	w_ID	w_発注機関コード	w_取引先
1	11111	ALL	1	11111	new_ALL
2	22222	RED	2	22222	new_RED
3	33333	NON	3	33333	new_NON
4	44444	PON	4	44444	new_PON

テーブルの構造は以下の通りです。

CREATE TABLE t_発注機関 (
ID int not null primary key,
発注機関コード char(8) not null,
取引先 varchar(70),
w_ID char(5),
w_発注機関コード char(8) ,
w_取引先 varchar(70)
);

UPDATE文を作成するコードは以下の通りです。

Option Explicit

Sub UPDATE()
    Dim newbook As Workbook
    Dim currentCell As Range
    Dim headCell As Range

    '前処理
    Dim srcSheet As Worksheet
    Set srcSheet = ActiveSheet

    Dim targetRange As Range
    Set targetRange = srcSheet.UsedRange

    '新しいBook作成
    Set newbook = Workbooks.Add

    'UPDATE文
    Dim currentRowIndex As Long
    For currentRowIndex = 2 To targetRange.Rows.Count

        Dim sql As String
        sql = "UPDATE t_発注機関 SET "
        Dim first As Boolean
        first = True
        Dim first2 As Boolean
        first2 = True

        Dim currentColumnIndex As Long
        For currentColumnIndex = 1 To targetRange.Columns.Count
            Set headCell = srcSheet.Cells(1, currentColumnIndex)
            Set currentCell = srcSheet.Cells(currentRowIndex, currentColumnIndex)
            If Left(headCell, 2) <> "w_" Then
                If (first) Then
                    first = False
                Else
                    sql = sql & ", "
                End If
                If IsNull(currentCell) Or Trim(currentCell.Value) = "" Then
                    sql = sql & headCell & " = 'null'"
                Else
                    sql = sql & headCell & " = '" & currentCell.Value & "'"
                End If
            Else
                If (first2) Then
                    first2 = False
                    sql = sql & " WHERE "
                Else
                    sql = sql & " AND "
                End If
                If IsNull(currentCell) Or Trim(currentCell.Value) = "" Then
                    sql = sql & Replace(headCell, "w_", "") & " = 'null'"
                Else
                    sql = sql & Replace(headCell, "w_", "") & " = '" & currentCell.Value & "'"
                End If
            End If
        Next

        sql = sql & ";"

        newbook.ActiveSheet.Cells(currentRowIndex - 1, 1).Value = sql
    Next
End Sub

マクロを実行すると、新しいブックに以下のような、UPDATE文が作成されます。

• UPDATE t_発注機関 SET id = '1', 発注機関コード = '11111', 取引先 = 'ALL' WHERE id = '1' AND 発注機関コード = '11111' AND 取引先 = 'new_ALL';
• UPDATE t_発注機関 SET id = '2', 発注機関コード = '22222', 取引先 = 'RED' WHERE id = '2' AND 発注機関コード = '22222' AND 取引先 = 'new_RED';
• UPDATE t_発注機関 SET id = '3', 発注機関コード = '33333', 取引先 = 'NON' WHERE id = '3' AND 発注機関コード = '33333' AND 取引先 = 'new_NON';
• UPDATE t_発注機関 SET id = '4', 発注機関コード = '44444', 取引先 = 'PON' WHERE id = '4' AND 発注機関コード = '44444' AND 取引先 = 'new_PON';

次にこのテーブルに「チェック」というカラムを追加し、

• 「新規設置」であればINSERT
• 「名称変更」であればUPDATE
• 「削除」であればDELETE

のSQL文を作成し、新しいブックに2行目以降から順次、下方向に書き込んでいくマクロを作りたいと思います。

実際のテーブルは以下の通りです。

ID	発注機関コード	取引先	w_ID	w_発注機関コード	w_取引先	チェック
1	11111	ALL	1	11111	new_ALL	名称変更
2	22222	RED	2	22222	new_RED	名称変更
3	33333	NON	3	33333	new_NON	名称変更
4	44444	PON				削除
5	55555	SON				新規設置

この時、上記のマクロで実行すると、「チェック」のカラムも書き込まれて、以下の文になってしまいます。

• UPDATE t_発注機関 SET id = '1', 発注機関コード = '11111', 取引先 = 'ALL', id = '1', 発注機関コード = '11111', 取引先 = 'new_ALL', チェック = '名称変更';
• UPDATE t_発注機関 SET id = '2', 発注機関コード = '22222', 取引先 = 'RED', id = '2', 発注機関コード = '22222', 取引先 = 'new_RED', チェック = '名称変更';
• UPDATE t_発注機関 SET id = '3', 発注機関コード = '33333', 取引先 = 'NON', id = '3', 発注機関コード = '33333', 取引先 = 'new_NON', チェック = '名称変更';
• UPDATE t_発注機関 SET id = '4', 発注機関コード = '44444', 取引先 = 'PON', id = 'null', 発注機関コード = 'null', 取引先 = 'null', チェック = '削除';
• UPDATE t_発注機関 SET id = '5', 発注機関コード = '55555', 取引先 = 'LON', id = 'null', 発注機関コード = 'null', 取引先 = 'null', チェック = '新規設置';

理想として、以下のようなSQL文が作成されるようにしたいです。

• UPDATE t_発注機関 SET id = '1', 発注機関コード = '11111', 取引先 = 'ALL', id = '1', 発注機関コード = '11111', 取引先 = 'new_ALL';
• UPDATE t_発注機関 SET id = '2', 発注機関コード = '22222', 取引先 = 'RED', id = '2', 発注機関コード = '22222', 取引先 = 'new_RED';
• UPDATE t_発注機関 SET id = '3', 発注機関コード = '33333', 取引先 = 'NON', id = '3', 発注機関コード = '33333', 取引先 = 'new_NON';
• DELETE FROM t_発注機関 WHERE 発注機関コード = '44444' ;
• INSERT t_発注機関 ( id,発注機関コード,取引先) Values ('5', '55555', 'SON',);

参考にしたマクロについては、コードの意味を全てきちんと理解できていないため、応用するのが難しく困っています。
左の行から順番に読み込むことが原因で全て書き込まれてしまうのだと思いますが、「チェック」の文章を読み込まないようにした上で、INSERTおよびDELETEの文章を入れる条件分岐の書き方について、良いアイデアがありましたら、ご教示いただきますよう、何卒よろしくお願いいたします。

Answer 1

最終行のみ書き込まれる件については別問題と判断し、別で質問させていただきます。
条件分岐については解決した、ということにさせていただきます。
ご回答ありがとうございました。

Answer 2

VBA書きなれてないので間違ってたらすみませんですが、思うに

If currentColumnIndex = targetRange.Columns.Count Then
    ' 「チェック」の列に相当する処理
Else
    ' それ以外の列の処理
End If

こんな感じで条件分岐させればできそうな気がします。

Comments

[syu2048]

回答ありがとうございます。
16行目～21行目までのコードを以下のように変更しました。

Dim sql As String
sql = True
Dim first As Boolean
first = True
Dim first2 As Boolean
first2 = True

Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 4) = "名称変更" Then
sql = "UPDATE t_発注機関 SET "
ElseIf Cells(i, 4) = "新規設置" Then
sql = "INSERT INTO t_発注機関 VALUES "
Else: Cells(i, 4) = "削除"
sql = "DELETE FROM t_発注機関 WHERE "
End If
Next

上記のコードを追記して実行したところ、全ての行が「INSERT」で始まるSQL文が作成されてしまいます。
原因が何かわかるでしょうか。
追加の質問で申し訳ございませんが、よろしくお願いいたします。