• PDM文件转换生成excel文件

    执行步骤：
    1、菜单找到Tools 
    2、下拉中找到Execute Commands 
    3、选中Edit/Run Script 
    4、弹窗里黏贴上上面的代码 
    5、执行
    场景一：
    '******************************************************************************  
    '* Powerdesigner 导出Excel格式数据字典 导出Excel格式文件
    '* Created:  
    '* Version:  1.0  
    '******************************************************************************  

    1. Option Explicit  
    2.    Dim rowsNum  
    3.    rowsNum = 2
    4.  
    5. Dim Model  
    6. Set Model = ActiveModel  
    7. If (Model Is Nothing) Or (Not Model.IsKindOf(PdPDM.cls_Model)) Then  
    8.   Debug.print "null"
    9. Else  
    10.     ' Get the tables collection  
    11.     '创建EXCEL APP  
    12.     dim beginrow  
    13.     DIM EXCEL, SHEET  
    14.     set EXCEL = CREATEOBJECT("Excel.Application")  
    15.     EXCEL.workbooks.add  '添加工作表  
    16.     SET sheet = EXCEL.workbooks(1).sheets(1)  
    17.     sheet.name ="数据字典"
    18.  
    19.    rowsNum=1  
    20.  
    21.  
    22.      sheet.cells(rowsNum, 1) = "中文名"  
    23.      sheet.cells(rowsNum, 2) = "字段名"  
    24.      sheet.cells(rowsNum, 3) = "类型"  
    25.      sheet.cells(rowsNum, 4) = "长度"  
    26.      sheet.cells(rowsNum, 5) = "主键"  
    27.      sheet.cells(rowsNum, 6) = "索引"  
    28.      sheet.cells(rowsNum, 7) = "不可空"  
    29.      sheet.cells(rowsNum, 8) = "默认值"  
    30.      sheet.cells(rowsNum, 9) = "说明"  
    31.      sheet.cells(rowsNum, 10) = "表名称"
    32.      sheet.cells(rowsNum, 11) = "表中文名称"
    33.      sheet.cells(rowsNum, 12) = "表说明"
    34.      sheet.Range(sheet.cells(rowsNum,1),sheet.cells(rowsNum,12)).Interior.Color=rgb(166,166,166)      
    35.  
    36.    beginrow = rowsNum+1  
    37.  
    38.    Dim tab  
    39.    For Each tab In Model.tables  
    40.       TableLoop tab,SHEET  
    41.    Next    
    42.  
    43.     EXCEL.visible = true  
    44.     '设置列宽和自动换行  
    45.     sheet.Columns(1).ColumnWidth  =10
    46.     sheet.Columns(2).ColumnWidth  =15
    47.     sheet.Columns(4).ColumnWidth  =20
    48.     sheet.Columns(5).ColumnWidth  =15
    49.     sheet.Columns(6).ColumnWidth  =15
    50.  
    51.     sheet.Columns("C:C").EntireColumn.AutoFit
    52.     sheet.Columns("i:i").EntireColumn.AutoFit    
    53. End If  
    54.  
    55. Sub TableLoop(tab, sheet)  
    56.    If IsObject(tab) Then  
    57.       Dim rangFlag  
    58.  
    59.       Dim col ' running column
    60.       Dim colsNum  
    61.       colsNum = 0  
    62.       for each col in tab.columns  
    63.          rowsNum = rowsNum + 1  
    64.          colsNum = colsNum + 1  
    65.  
    66.          sheet.cells(rowsNum, 1) = col.name
    67.          sheet.cells(rowsNum, 2) = col.code
    68.          sheet.cells(rowsNum, 3) = col.datatype
    69.          sheet.cells(rowsNum, 4) = IIF(col.Length<>0,col.Length,"")
    70.          sheet.cells(rowsNum, 5) = IIF(col.Primary,"√","")
    71.          sheet.cells(rowsNum, 6) = IIF(col.Primary,"√","")
    72.          sheet.cells(rowsNum, 7) = IIF(col.Mandatory,"√","")
    73.          sheet.cells(rowsNum, 8) = "无"
    74.          sheet.cells(rowsNum, 10) = tab.code
    75.          sheet.cells(rowsNum, 11) = tab.name
    76.          sheet.cells(rowsNum, 12) = tab.comment
    77.       next  
    78.  
    79.       '设置边框  
    80.       DIM RanagBorder
    81.       SET RanagBorder =sheet.Range(sheet.cells(rowsNum-colsNum,1),sheet.cells(rowsNum,12))
    82.       RanagBorder.Borders.LineStyle = "1"
    83.       'RaneBorderFun RanagBorder        
    84.  
    85.  
    86.    End If  
    87. End Sub  
    88.  
    89. function IIF(flg,tstr,fstr)
    90.    if flg then
    91.       IIF= tstr
    92.    else
    93.       IIF= fstr
    94.    end if
    95. End function

    场景二：
    '******************************************************************************  
    '* Powerdesigner 导出Excel格式数据字典 导出Excel格式文件[分包存放]
    '* Created: 根网科技 
    '* Version:  1.0  
    '******************************************************************************  

    1. Option Explicit  
    2.    Dim rowsNum  
    3.    rowsNum = 2
    4.  
    5. Dim Model
    6. Dim  pkg
    7. Set Model = ActiveModel
    8. If (Model Is Nothing) Or (Not Model.IsKindOf(PdPDM.cls_Model)) Then  
    9.   Debug.print "null"
    10. else
    11.       ' Get the tables collection  
    12.     '创建EXCEL APP  
    13.     dim beginrow  ,p
    14.     DIM EXCEL, SHEET  
    15.     set EXCEL = CREATEOBJECT("Excel.Application")  
    16.  
    17.     EXCEL.workbooks.add  '添加工作表
    18.     For Each pkg In Model.packages  
    19.  
    20.         'MsgBox pkg.name         
    21.  
    22.         'MsgBox EXCEL.workbooks(1).Sheets.Count        
    23.         SET sheet = EXCEL.workbooks(1).sheets(1)  
    24.         sheet.name =pkg.name
    25.  
    26.         'MsgBox sheet.name
    27.         rowsNum=1  
    28.  
    29.  
    30.          sheet.cells(rowsNum, 1) = "中文名"  
    31.          sheet.cells(rowsNum, 2) = "字段名"  
    32.          sheet.cells(rowsNum, 3) = "类型"  
    33.          sheet.cells(rowsNum, 4) = "长度"  
    34.          sheet.cells(rowsNum, 5) = "主键"  
    35.          sheet.cells(rowsNum, 6) = "索引"  
    36.          sheet.cells(rowsNum, 7) = "不可空"  
    37.          sheet.cells(rowsNum, 8) = "默认值"  
    38.          sheet.cells(rowsNum, 9) = "说明"  
    39.          sheet.cells(rowsNum, 10) = "表名称"
    40.          sheet.cells(rowsNum, 11) = "表中文名称"
    41.          sheet.cells(rowsNum, 12) = "表说明"
    42.          sheet.Range(sheet.cells(rowsNum,1),sheet.cells(rowsNum,12)).Interior.Color=rgb(166,166,166)      
    43.  
    44.        beginrow = rowsNum+1  
    45.  
    46.        Dim tab  
    47.        For Each tab In pkg.tables  
    48.           TableLoop tab,SHEET  
    49.           p=1
    50.           'MsgBox sheet.name
    51.        Next    
    52.        EXCEL.workbooks(1).sheets.add  '添加工作表
    53.  
    54.     next
    55.             EXCEL.visible = true  
    56.         '设置列宽和自动换行  
    57.         sheet.Columns(1).ColumnWidth  =10
    58.         sheet.Columns(2).ColumnWidth  =15
    59.         sheet.Columns(4).ColumnWidth  =20
    60.         sheet.Columns(5).ColumnWidth  =15
    61.         sheet.Columns(6).ColumnWidth  =15
    62.  
    63.         sheet.Columns("C:C").EntireColumn.AutoFit
    64.         sheet.Columns("i:i").EntireColumn.AutoFit
    65. end if
    66. Sub TableLoop(tab, sheet)  
    67.    If IsObject(tab) Then  
    68.       Dim rangFlag  
    69.  
    70.       Dim col ' running column
    71.       Dim colsNum  
    72.       colsNum = 0  
    73.       for each col in tab.columns  
    74.          rowsNum = rowsNum + 1  
    75.          colsNum = colsNum + 1  
    76.  
    77.          sheet.cells(rowsNum, 1) = col.name
    78.          sheet.cells(rowsNum, 2) = col.code
    79.          sheet.cells(rowsNum, 3) = col.datatype
    80.          sheet.cells(rowsNum, 4) = IIF(col.Length<>0,col.Length,"")
    81.          sheet.cells(rowsNum, 5) = IIF(col.Primary,"√","")
    82.          sheet.cells(rowsNum, 6) = IIF(col.Primary,"√","")
    83.          sheet.cells(rowsNum, 7) = IIF(col.Mandatory,"√","")
    84.          sheet.cells(rowsNum, 8) = "无"
    85.          sheet.cells(rowsNum, 10) = tab.code
    86.          sheet.cells(rowsNum, 11) = tab.name
    87.          sheet.cells(rowsNum, 12) = tab.comment
    88.       next  
    89.  
    90.       '设置边框  
    91.       DIM RanagBorder
    92.       SET RanagBorder =sheet.Range(sheet.cells(rowsNum-colsNum,1),sheet.cells(rowsNum,12))
    93.       RanagBorder.Borders.LineStyle = "1"
    94.       'RaneBorderFun RanagBorder        
    95.  
    96.  
    97.    End If  
    98. End Sub  
    99.  
    100. function IIF(flg,tstr,fstr)
    101.    if flg then
    102.       IIF= tstr
    103.    else
    104.       IIF= fstr
    105.    end if
    106. End function

  • 相关阅读:
    轻松学会jQuery选择器的用法
    阿里巴巴战略放弃“天猫香港”，专注于改善跨境电子商务
    第五章 Ambari二次开发之自定义Flink服务概述
    LeetCode //C - 148. Sort List
    【licode】Single Peer Connection - Feature Review
    Java Stream流 List＜ T ＞转换Map方法汇总合集（大概是最全吧）
    【PAT甲级】1108 Finding Average
    SpringBoot多数据源
    动态 | 10月数据安全重要政策法规、文件汇总
    Shiro - Shiro简介；Shiro与Spring Security区别；Spring Boot集成Shiro
  • 原文地址：https://blog.csdn.net/liu_xzhen/article/details/133879746