一鍵生成多個建立表語句（利用excel生成Power Designer表模型）

寫在前面

你是否在實際開發過程中遇到過這樣的苦惱，接手一個需求後，設計了很多張表，沒有采用power designer設計表，而是參考歷史業務在檔案中羅列的表欄位，表很多且欄位也很多，多到你複製貼上都覺得慢。這時候作為一個愛思（tou）考（lan）的你，肯定想能夠快速生成建立表語句，那麼解決方案他來了。

正文

1、軟體安裝

首先，我們還是需要本地安裝Power desinger這個工具的，其次你本地需要有安裝excel。
(關於Power Designer的下載，請點選此處，提取碼m6z5。如果覺得太慢，可以關注我微信公眾號：半路猿，加我好友，我直接發給你哈。至於安裝，相信難不倒你。excel軟體，就不用我發了吧!)

2、資料處理

將你設計的表欄位複製到excel中，如果有多個表，則分sheet分別複製進去。如下圖所示。
在這裡插入圖片描述
上圖格式說明：

1. 第一行第一列填寫表描述，第一行第二列填寫表名
2. 從第二行開始，第一列填寫欄位名，第二列填寫欄位型別，第三列填寫欄位描述，第四列填寫是否必填（其中否代表不能為空，是代表可以為空）

3、利用excel生成Power Designer表模型

多圖警告！！！

在這裡插入圖片描述

彈出以下視窗，如圖：

將以下內容複製到編輯框中，點選Run便可以建立出我們的表模型啦。

'開始
Option Explicit
 
Dim mdl ' the current model
Set mdl = ActiveModel
If (mdl Is Nothing) Then
    MsgBox "There is no Active Model"
End If
 
Dim HaveExcel
Dim RQ
RQ = vbYes 'MsgBox("Is  Excel Installed on your machine ?", vbYesNo + vbInformation, "Confirmation")
If RQ = vbYes Then
    HaveExcel = True
    ' Open & Create  Excel Document
    Dim x1 '
    Set x1 = CreateObject("Excel.Application")
    x1.Workbooks.Open "E:\sql\sql.xlsx" '指定 excel檔案路徑(記得換成你自己的檔案路徑)
Else
    HaveExcel = False
End If
 
a x1, mdl
 
sub a(x1, mdl)
dim rwIndex 
dim tableName
dim colname
dim table
dim col
dim count
dim sheetIndex 
on error Resume Next
For sheetIndex = 1 To 200 '指定要遍歷的 Sheet
    x1.Workbooks(1).Worksheets(sheetIndex).Activate '指定要開啟的sheet名稱
    With x1.Workbooks(1).Worksheets(sheetIndex)
    If .Cells(1, 1).Value = "" Then
        Exit For
    End If
    set table = mdl.Tables.CreateNew '建立一個 表實體
    table.Name = .Cells(1, 1).Value '指定 表名
    table.Code = .Cells(1, 2).Value '指定 表名
    count = count + 1
 
    For rwIndex = 2 To 1000 '指定要遍歷的 Excel行標， 從第2行開始
         
            If .Cells(rwIndex, 1).Value = "" Then
            Exit For
            End If
 
            set col = table.Columns.CreateNew '建立一列/欄位
            'MsgBox .Cells(rwIndex, 1).Value, vbOK + vbInformation, "列"
            If .Cells(rwIndex, 1).Value = "" Then
                col.Name = .Cells(rwIndex, 2).Value '指定列名-----如果第1列(Name)為空，則顯示第2列的Code
            Else
                col.Name = .Cells(rwIndex, 1).Value
            End If
            'MsgBox col.Name, vbOK + vbInformation, "列"
            col.Code = .Cells(rwIndex, 1).Value '指定列名-------第1列是欄位名
            col.DataType = .Cells(rwIndex, 2).Value '指定列資料型別-----第2列是型別
            col.Comment = .Cells(rwIndex, 3).Value '指定列說明-------第3列是列說明
            If .Cells(rwIndex, 4).Value = "否" Then
                col.Mandatory = true '指定列是否可空 true 為不可空 ------第4列指定列是否允許為空
            End If
            If rwIndex = 2 Then
                col.Primary = true '指定主鍵-------第2行是主鍵列
            End If
    Next
    End With
Next
MsgBox "生成資料 表結構共計 " + CStr(count),vbInformation, " 表"
Exit Sub
End sub

成功結果如圖：
在這裡插入圖片描述
最後，就可以看到我們的建立表語句啦

4、複製建立表語句，利用IDEA批次處理進行完善

到這裡，我們可能發現建立的表沒有表名註釋或者是指定masql的儲存引擎，或者是沒有欄位的預設值等情況，我們可以隨便開啟一個編輯器，對其進行修飾就可以啦~~

寫在最後

看到這裡，是不是覺得自己開發效率又能提高一大截啦，如果覺得對你有幫助，可以點贊收藏加關注，或者是關注我的微信公眾號:半路猿，一起學習，一同進步。

參考文章：

https://www.cnblogs.com/roboot/p/9956071.html