ExcelデータをINSERT文に変換する - Qiita

INSERT ALL INTO HOGE (COL1,COL2,COL3) values('data',1,null) INTO HOGE (COL1,COL2,COL3) values('data',null,null) INTO HOGE (COL1,COL2,COL3) values('data',1,'data') SELECT * FROM dual; Option Explicit Sub INSERT文を生成_Click() Dim ws As Worksheet Set ws = ActiveSheet Dim sql As String sql = "INSERT ALL" Dim head As String head = vbLf & "INTO " & ws.Name & " (" Dim target As Range Set target = ws.UsedRa

[junk-boy]

“Option Explicit”