excel的宏與VBA實踐——建表語句

一、建表語句

　　不帶分區版本：V1.0：

Sub createTableDDL()
    '自動創建建表語句
    '定義換行和TAB
    Ln = Chr(13) + Chr(10)
    TB = Chr(9)
    '定義腳本目錄
    Dim dir AS String
    dir = "C:\CREATE_TABLE_DDL"
    Set FSOE = CreateObject("Scripting.FileSystemObject")
    If FSOE.folderexists(dir) = False Then
          MkDir dir
    End If
      
    '調用腳本定義
    Set SqlFileDDL = FSOE.CreateTextFile("C:\CREATE_TABLE_DDL\create_table_ddl.sql", True)
    '獲得表名
    tableName = Trim(Cells(1, 2).Value)
    '獲得表注釋
    tableComment = Trim(Cells(1, 4).Value)
    '獲得創建者
    createBy = Trim(Cells(1, 6).Value)
    Dim dt As Date
    dt = Format(Date, "yyyy-mm-dd")
    '獲得當前日期
    createDate = dt
    '獲得A列已使用的行數
    count_row_k = [A65536].End(xlUp).Row
    '定義SQL
    SQL = "--創建者：" & createBy & Ln
    SQL = SQL & "--創建時間：" & createDate & Ln
    SQL = SQL & "DROP TABLE IF EXISTS " & tableName & " ;" & Ln
    SQL = SQL & "CREATE TABLE " & tableName & "("
    '寫入文件
    SqlFileDDL.WriteLine (SQL)
    For i = 3 To count_row_k
        If i = count_row_k Then
            col_name = TB & LCase(Cells(i, 2)) & " " & UCase(Cells(i, 4)) & " COMMENT '" & Trim(Cells(i, 3)) & "'" & Ln & ")"
            SqlFileDDL.WriteLine(col_name)
            Exit For
        End If
        col_name = TB & LCase(Cells(i, 2)) & " " & UCase(Cells(i, 4)) & " COMMENT '" & Trim(Cells(i, 3)) & "',"
        SqlFileDDL.WriteLine(col_name)
    Next
    SqlFileDDL.WriteLine("COMMENT '" & tableComment & "'")
    MsgBox("生成成功！生成路徑為：" & dir)
End Sub

 　　帶分區與生命周期版本V2.0：

Sub create_ddl() '自動創建建表語句
    '定義換行和TAB
    Ln = Chr(13) + Chr(10) TB = Chr(9) '定義腳本目錄
    Dim dir As String
    dir = "C:\CREATE_TABLE_DDL"
    Set FSOE = CreateObject("Scripting.FileSystemObject") If FSOE.folderexists(dir) = False Then
          MkDir dir
    End If
      
    '調用腳本定義
    Set SqlFileDDL = FSOE.CreateTextFile("C:\CREATE_TABLE_DDL\create_table_ddl.sql", True) '獲得表名
    TableName = Trim(Cells(1, 2).Value) '獲得表注釋
    tableComment = Trim(Cells(1, 4).Value) '獲得生命周期
    lifecycle = Trim(Cells(1, 6).Value) '獲得創建者
    createBy = Trim(Cells(1, 8).Value) Dim dt As Date dt = Format(Date, "yyyy-mm-dd") '獲得當前日期
    createDate = dt '獲得A列已使用的行數
    count_row_k = [A65536].End(xlUp).Row '獲得E列已使用的行數
    part_row_k = [E65536].End(xlUp).Row '定義SQL
    Sql = "--創建者：" & createBy & Ln Sql = Sql & "--創建時間：" & createDate & Ln Sql = Sql & "DROP TABLE IF EXISTS " & TableName & " ;" & Ln Sql = Sql & "CREATE TABLE " & TableName & "("
    '寫入文件
 SqlFileDDL.WriteLine (Sql) For i = 3 To count_row_k If i = count_row_k Then col_name = TB & LCase(Cells(i, 2)) & " " & UCase(Cells(i, 4)) & " COMMENT '" & Trim(Cells(i, 3)) & "'" & Ln & ")" SqlFileDDL.WriteLine (col_name) Exit For
        End If col_name = TB & LCase(Cells(i, 2)) & " " & UCase(Cells(i, 4)) & " COMMENT '" & Trim(Cells(i, 3)) & "'," SqlFileDDL.WriteLine (col_name) Next SqlFileDDL.WriteLine ("COMMENT '" & tableComment & "'") '加上分區列
    If part_row_k > 2 Then part_col_name = "PARTITIONED BY (" SqlFileDDL.WriteLine (part_col_name) For j = 3 To part_row_k If j = part_row_k Then part_col_name = TB & LCase(Cells(j, 5)) & " " & UCase(Cells(j, 6)) & " COMMENT '" & Trim(Cells(j, 7)) & "'" SqlFileDDL.WriteLine (part_col_name) Exit For
            End If part_col_name = TB & LCase(Cells(j, 5)) & " " & UCase(Cells(j, 6)) & " COMMENT '" & Trim(Cells(j, 7)) & "'" & "," SqlFileDDL.WriteLine (part_col_name) Next
    End If
    '加上生命周期
    SqlFileDDL.WriteLine ("LIFECYCLE " & lifecycle & ";") MsgBox ("生成成功！生成路徑為：" & dir) End Sub

　　模板：

 　　更新版本2.1：

Sub createTableDDL() '定義換行和TAB
    Ln = Chr(13) + Chr(10) TB = Chr(9) '定義腳本目錄
    Dim dir AS String
    dir = "C:\CREATE_TABLE_DDL"
    Set FSOE = CreateObject("Scripting.FileSystemObject") If FSOE.folderexists(dir) = False Then MkDir dir
    '調用腳本定義
    Set SqlFileDDL = FSOE.CreateTextFile("C:\CREATE_TABLE_DDL\create_table_ddl.sql", True) '獲得表名
    tableName = Trim(Cells(1, 2).Value) '獲得表注釋
    tableComment = Trim(Cells(1, 4).Value) '獲得生命周期
    lifecycle = Trim(Cells(1, 6).Value) '獲得創建者
    createBy = Trim(Cells(1, 8).Value) Dim dt As Date dt = Format(Date, "yyyy-mm-dd") '獲得當前日期
    createDate = dt '獲得A列已使用的行數
    count_row_k = [A65536].End(xlUp).Row '獲得E列已使用的行數
    part_row_k = [E65536].End(xlUp).Row '定義SQL
    SQL = "--創建者：" & createBy & Ln & _ "--創建時間：" & createDate & Ln & _ "DROP TABLE IF EXISTS " & tableName & " ;" & Ln & _ "CREATE TABLE " & tableName & "("
    '寫入文件
 SqlFileDDL.WriteLine (SQL) For i = 3 To count_row_k - 1 col_name = TB & LCase(Cells(i, 2)) & " " & UCase(Cells(i, 4)) & " COMMENT '" & Trim(Cells(i, 3)) & "'," SqlFileDDL.WriteLine(col_name) Next
    '最后一列
    i = count_row_k col_name = TB & LCase(Cells(i, 2)) & " " & UCase(Cells(i, 4)) & " COMMENT '" & Trim(Cells(i, 3)) & "'" & Ln & ")" SqlFileDDL.WriteLine(col_name) SqlFileDDL.WriteLine("COMMENT '" & tableComment & "'") '加上分區列
    If part_row_k > 2 Then part_col_name = "PARTITIONED BY (" SqlFileDDL.WriteLine(part_col_name) For j = 3 To part_row_k - 1 part_col_name = TB & LCase(Cells(j, 5)) & " " & UCase(Cells(j, 6)) & " COMMENT '" & Trim(Cells(j,7)) & "'" & "," SqlFileDDL.WriteLine(part_col_name) Next j = part_row_k part_col_name = TB & LCase(Cells(j, 5)) & " " & UCase(Cells(j, 6)) & " COMMENT '" & Trim(Cells(j,7)) & "'" SqlFileDDL.WriteLine(part_col_name) End If
    '加上生命周期
    SqlFileDDL.WriteLine("LIFECYCLE " & lifecycle & ";") MsgBox("生成成功！生成路徑為：" & dir) End Sub

 //模板在微雲文件中。

二、反向解析

　　通過DDL，反向解析出字段填充到excel中

　　反向解析1.0：

REM "獲取數組長度"
Public Function ArrayLength(ByVal ary) As Integer ArrayLength = UBound(ary) - LBound(ary) + 1
End Function

Sub resverse_parse() '獲得表名
    tableDDL = Trim(Cells(1, 2).Value) '截取語句字段部分（以括號分隔）
    index_quote_left_1 = InStr(1,tableDDL,"(") index_quote_right_1 = InStr(1,tableDDL,")") index_quote_left_2 = InStr(index_quote_right_1 + 1,tableDDL,"(") index_quote_right_2 = InStr(index_quote_right_1 + 1,tableDDL,")") table_comment_content = Mid(tableDDL,index_quote_right_1 + 1,index_quote_left_2) table_comment_arr = Split(table_comment_content, "'") table_comment = table_comment_arr(1) Cells(3, 4).Value = table_comment table_name = Mid(tableDDL,14,index_quote_left_1 - 14) Cells(3, 2).Value = table_name table_content = Mid(tableDDL,index_quote_left_1,index_quote_right_1 - index_quote_left_1 - 1) content_arr = Split(table_content,",") content_len = ArrayLength(content_arr) For i = 0 to content_len - 1 step 1 col_arr = Split(content_arr(i)," ") j = i + 5 col_name = col_arr(1) col_comment = Replace(col_arr(4),"'","") MsgBox col_comment Cells(j, 1).Value = col_name Cells(j, 2).Value = col_comment Next i End Sub

　　清除重置1.1（1.0為直接清除指定區域版，已廢棄）：

Sub clear() '采用先清除后填充的策略
    Range("A1:D256").ClearContents '填充
    Cells(1, 1).Value = "建表DDL" Cells(3, 1).Value = "表名" Cells(3, 3).Value = "表注釋" Cells(4, 1).Value = "列名" Cells(4, 2).Value = "列注釋"
End Sub

　　模板文件在百度雲中，圖示如下：