一键生成多个创建表语句（利用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