Excel/TIPS - acil @ ウィキ

• 進捗管理表のフォーマットサンプル
• ガントチャート-free
• 開発マイルストーン

• インサート文生成マクロ
  • Excelのシートに記述したデータを、SQLのInsert文に変換するマクロ

■使用例
以下の要領でシートにデータを記述します。

• １行目に列名
• ２行目に列の型
• ３行目以降は列の値
• 最後の次の行の１列目のセルに、エンドマーク『#END』

上記の要領で書き上げたシートが下図です。（クリックで拡大）

• ExcelからSQLのINSERT文を作成するマクロ

   Option Explicit
   
   Sub createInsertSql()
       Dim newbook As Workbook
       Dim currentCell As Range
       
       '前処理
       Dim srcSheet As Worksheet
       Set srcSheet = ActiveSheet
       
       Dim targetRange As Range
       Set targetRange = srcSheet.UsedRange
       'INSERT文の前半
       Dim head As String
       head = "INSERT INTO " & srcSheet.Name & " ("
       
       Dim first As Boolean
       first = True
       
       Dim currentColumnIndex As Integer
       For currentColumnIndex = 1 To targetRange.Columns.Count
           If (first) Then
               first = False
           Else
               head = head & ","
           End If
           Set currentCell = srcSheet.Cells(1, currentColumnIndex)
           head = head & currentCell.Value
       Next
       head = head & ") "
       
       '新しいBook作成
       Set newbook = Workbooks.Add
       
       'INSERT文のvalues以降
       Dim currentRowIndex As Integer
       For currentRowIndex = 2 To targetRange.Rows.Count
           
           Dim sql As String
           sql = head & "values ("
           first = True
       
           For currentColumnIndex = 1 To targetRange.Columns.Count
               If (first) Then
                   first = False
               Else
                   sql = sql & ","
               End If
               Set currentCell = srcSheet.Cells(currentRowIndex, currentColumnIndex)
               If IsNull(currentCell) Or Trim(currentCell.Value) = "" Then
                   sql = sql & "null"
               ElseIf IsNumeric(currentCell.Value) Then
                   sql = sql & currentCell.Value
               Else
                   sql = sql & "'" & currentCell.Value & "'"
               End If
           Next
           
           sql = sql & ");"
           
           newbook.ActiveSheet.Cells(currentRowIndex - 1, 1).Value = sql
       Next
   End Sub

EOF