一键生成多个创建表语句（利用excel生成Power Designer表模型）

红太狼 2022-12-14 13:38 208阅读 0赞

## 写在前面 ##

你是否在实际开发过程中遇到过这样的苦恼，接手一个需求后，设计了很多张表，没有采用`power designer`设计表，而是参考历史业务在文档中罗列的表字段，表很多且字段也很多，多到你复制粘贴都觉得慢。这时候作为一个爱思（tou）考（lan）的你，肯定想能够快速生成创建表语句，那么解决方案他来了。

## 正文 ##

### 1、软件安装 ###

首先，我们还是需要本地安装`Power desinger`这个工具的，其次你本地需要有安装`excel`。  
(关于`Power Designer`的下载，请[点击此处][Link 1]，提取码`m6z5`。如果觉得太慢，可以关注我微信公众号：`半路猿`，加我好友，我直接发给你哈。至于安装，相信难不倒你。excel软件，就不用我发了吧!)

### 2、数据处理 ###

将你设计的表字段复制到excel中，如果有多个表，则分sheet分别复制进去。如下图所示。  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2Fpd2FzdG9u_size_16_color_FFFFFF_t_70_pic_center]  
上图格式说明：

`1. 第一行第一列填写表描述，第一行第二列填写表名`  
`2. 从第二行开始，第一列填写字段名，第二列填写字段类型，第三列填写字段描述，第四列填写是否必填（其中否代表不能为空，是代表可以为空）`

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

***多图警告！！！***

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2Fpd2FzdG9u_size_16_color_FFFFFF_t_70_pic_center 1]  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2Fpd2FzdG9u_size_16_color_FFFFFF_t_70_pic_center 2]  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2Fpd2FzdG9u_size_16_color_FFFFFF_t_70_pic_center 3]  
弹出以下窗口，如图：  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2Fpd2FzdG9u_size_16_color_FFFFFF_t_70_pic_center 4]  
将以下内容复制到编辑框中，点击`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

成功结果如图：  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2Fpd2FzdG9u_size_16_color_FFFFFF_t_70_pic_center 5]  
最后，就可以看到我们的创建表语句啦  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2Fpd2FzdG9u_size_16_color_FFFFFF_t_70_pic_center 6]

### 4、复制创建表语句，利用IDEA批处理进行完善 ###

到这里，我们可能发现创建的表没有表名注释或者是指定`masql`的存储引擎，或者是没有字段的默认值等情况，我们可以随便打开一个编辑器，对其进行修饰就可以啦~~

### 写在最后 ###

看到这里，是不是觉得自己开发效率又能提高一大截啦，如果觉得对你有帮助，可以点赞收藏加关注，或者是关注我的微信公众号:`半路猿`，一起学习，一同进步。

参考文章：

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

[Link 1]: https://pan.baidu.com/s/1Oe9fYBp0Wp4JW9vxxfOt7w
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2Fpd2FzdG9u_size_16_color_FFFFFF_t_70_pic_center]: /images/20221123/63bcc58a91ed4a79bf576677d852aa7c.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2Fpd2FzdG9u_size_16_color_FFFFFF_t_70_pic_center 1]: /images/20221123/40296975cc634749a39f9e7295fb09e0.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2Fpd2FzdG9u_size_16_color_FFFFFF_t_70_pic_center 2]: /images/20221123/81f626b954b944778c97b8566f2695ed.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2Fpd2FzdG9u_size_16_color_FFFFFF_t_70_pic_center 3]: /images/20221123/962494fff37346079155641291d29ef7.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2Fpd2FzdG9u_size_16_color_FFFFFF_t_70_pic_center 4]: /images/20221123/62faa6feb6564bd2bfec70aa70a59684.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2Fpd2FzdG9u_size_16_color_FFFFFF_t_70_pic_center 5]: /images/20221123/0df1074a1109444ba69c0432093a336b.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2Fpd2FzdG9u_size_16_color_FFFFFF_t_70_pic_center 6]: /images/20221123/aced43de5f654cda8b7d5b0a56e6f5af.png