PowerDesigner数据库设计导出到Excel

在PowerDesigner 中 ctrl+shift+x 弹出执行脚本界面，输入如下代码就会生成 Excel

Option Explicit

   Dim rowsNum

   rowsNum =

'-----------------------------------------------------------------------------

' Main function

'-----------------------------------------------------------------------------

' Get the current active model

Dim Model

Set Model = ActiveModel

If (Model Is Nothing) Or (Not Model.IsKindOf(PdPDM.cls_Model)) Then

  MsgBox "The current model is not an PDM model."

Else

 ' Get the tables collection

 '创建EXCEL APP 

Dim beginrow

 Dim EXCEL, BOOK, SHEET

 Set EXCEL = CreateObject("Excel.Application")

 EXCEL.Visible = True

 Set BOOK = EXCEL.Workbooks.Add(-) '新建工作簿

 BOOK.Sheets().Name = "数据库表结构"

 Set SHEET = EXCEL.workbooks().sheets("数据库表结构")

 ShowProperties Model, SHEET

 EXCEL.visible = true

 '设置列宽和自动换行

 SHEET.Columns().ColumnWidth =

 SHEET.Columns().ColumnWidth =

 SHEET.Columns().ColumnWidth =    

 SHEET.Columns().WrapText =true

 SHEET.Columns().WrapText =true

 SHEET.Columns().WrapText =true 

End If

'-----------------------------------------------------------------------------

' Show properties of tables

'-----------------------------------------------------------------------------

Sub ShowProperties(mdl, sheet)

   ' Show tables of the current model/package

   rowsNum=

   beginrow = rowsNum+

   ' For each table

   output "begin"

   Dim tab

   For Each tab In mdl.tables

      ShowTable tab,sheet

   Next

   if mdl.tables.count >  then

        sheet.Range("A" & beginrow +  & ":A" & rowsNum).Rows.Group

   end if

   output "end"

End Sub

'-----------------------------------------------------------------------------

' 数据表查询

'-----------------------------------------------------------------------------

Sub ShowTable(tab, sheet)

   If IsObject(tab) Then

     Dim rangFlag

      sheet.cells(, ) = "序号"

      sheet.cells(, ) = "表名"

      sheet.cells(, ) = "实体名"

      '设置边框

      sheet.Range(sheet.cells(, ),sheet.cells(, )).Borders.LineStyle = ""

      '设置背景颜色

      sheet.Range(sheet.cells(, ),sheet.cells(, )).Interior.ColorIndex = ""

      rowsNum = rowsNum +

      sheet.cells(rowsNum+, ) = rowsNum

      sheet.cells(rowsNum+, ) = tab.code

      sheet.cells(rowsNum+, ) = tab.name

      '设置边框

      sheet.Range(sheet.cells(rowsNum+,),sheet.cells(rowsNum+,)).Borders.LineStyle = ""

      '增加Sheet

      BOOK.Sheets.Add , BOOK.Sheets(BOOK.Sheets.count)

      BOOK.Sheets(rowsNum+).Name = tab.code 

      Dim shtn

      Set shtn = EXCEL.workbooks().sheets(tab.code)

      '设置列宽和换行

       shtn.Columns().ColumnWidth =

       shtn.Columns().ColumnWidth =

       shtn.Columns().ColumnWidth =

       shtn.Columns().ColumnWidth =

       shtn.Columns().ColumnWidth =    

       shtn.Columns().WrapText =true

       shtn.Columns().WrapText =true

       shtn.Columns().WrapText =true

       shtn.Columns().WrapText =true

       shtn.Columns().WrapText =true

       '设置列标题

       shtn.cells(, ) = "字段中文名"

       shtn.cells(, ) = "字段名"

       shtn.cells(, ) = "字段类型"

       shtn.cells(, ) = tab.code

       shtn.cells(, ) = tab.Name

       '设置边框

       shtn.Range(shtn.cells(, ),shtn.cells(, )).Borders.LineStyle = ""

       shtn.Range(shtn.cells(, ),shtn.cells(, )).Borders.LineStyle = ""

       '设置背景颜色

       shtn.Range(shtn.cells(, ),shtn.cells(, )).Interior.ColorIndex = ""

       shtn.Range(shtn.cells(, ),shtn.cells(, )).Interior.ColorIndex = ""

      Dim col ' running column

      Dim colsNum

      Dim rNum

      colsNum =

      rNum =

            for each col in tab.columns

              rNum = rNum +

              colsNum = colsNum +  

            shtn.cells(rNum+, ) = col.name

            shtn.cells(rNum+, ) = col.code

            shtn.cells(rNum+, ) = col.datatype

            next

            shtn.Range(shtn.cells(rNum-colsNum+,),shtn.cells(rNum+,)).Borders.LineStyle = ""

            rNum = rNum +  

            Output "FullDescription: "       + tab.Name

   End If

End Sub

代码一：所有的表在同一个 Sheet 页中

'******************************************************************************

'* File:     pdm2excel.txt

'* Title:    pdm export to excel

'* Purpose:  To export the tables and columns to Excel

'* Model:    Physical Data Model

'* Objects:  Table, Column, View

'* Author:   ziyan

'* Created:  2012-05-03

'* Version:  1.0

'******************************************************************************

Option Explicit

   Dim rowsNum

   rowsNum =

'-----------------------------------------------------------------------------

' Main function

'-----------------------------------------------------------------------------

' Get the current active model

Dim Model

Set Model = ActiveModel

If (Model Is Nothing) Or (Not Model.IsKindOf(PdPDM.cls_Model)) Then

  MsgBox "The current model is not an PDM model."

Else

 ' Get the tables collection

 '创建EXCEL APP

 dim beginrow

 DIM EXCEL, SHEET

 set EXCEL = CREATEOBJECT("Excel.Application")

 EXCEL.workbooks.add(-)'添加工作表

 EXCEL.workbooks().sheets().name ="test"

 set sheet = EXCEL.workbooks().sheets("test")

 ShowProperties Model, SHEET

 EXCEL.visible = true

 '设置列宽和自动换行

 sheet.Columns().ColumnWidth =

 sheet.Columns().ColumnWidth =

 sheet.Columns().ColumnWidth =

 sheet.Columns().ColumnWidth =

 sheet.Columns().ColumnWidth =

 sheet.Columns().WrapText =true

 sheet.Columns().WrapText =true

 sheet.Columns().WrapText =true

 End If

'-----------------------------------------------------------------------------

' Show properties of tables

'-----------------------------------------------------------------------------

Sub ShowProperties(mdl, sheet)

   ' Show tables of the current model/package

   rowsNum=

   beginrow = rowsNum+

   ' For each table

   output "begin"

   Dim tab

   For Each tab In mdl.tables

      ShowTable tab,sheet

   Next

   if mdl.tables.count >  then

        sheet.Range("A" & beginrow +  & ":A" & rowsNum).Rows.Group

   end if

   output "end"

End Sub

'-----------------------------------------------------------------------------

' Show table properties

'-----------------------------------------------------------------------------

Sub ShowTable(tab, sheet)

   If IsObject(tab) Then

     Dim rangFlag

     rowsNum = rowsNum +

      ' Show properties

      Output "================================"

      sheet.cells(rowsNum, ) = "实体名"

      sheet.cells(rowsNum, ) =tab.name

      sheet.cells(rowsNum, ) = ""

      sheet.cells(rowsNum, ) = "表名"

      sheet.cells(rowsNum, ) = tab.code

      sheet.Range(sheet.cells(rowsNum, ),sheet.cells(rowsNum, )).Merge

      rowsNum = rowsNum +

      sheet.cells(rowsNum, ) = "属性名"

      sheet.cells(rowsNum, ) = "说明"

      sheet.cells(rowsNum, ) = ""

      sheet.cells(rowsNum, ) = "字段中文名"

      sheet.cells(rowsNum, ) = "字段名"

      sheet.cells(rowsNum, ) = "字段类型"

      '设置边框

      sheet.Range(sheet.cells(rowsNum-, ),sheet.cells(rowsNum, )).Borders.LineStyle = ""

      sheet.Range(sheet.cells(rowsNum-, ),sheet.cells(rowsNum, )).Borders.LineStyle = ""

Dim col ' running column

Dim colsNum

colsNum =

      for each col in tab.columns

        rowsNum = rowsNum +

        colsNum = colsNum +

      sheet.cells(rowsNum, ) = col.name

      sheet.cells(rowsNum, ) = col.comment

        sheet.cells(rowsNum, ) = ""

      sheet.cells(rowsNum, ) = col.name

      sheet.cells(rowsNum, ) = col.code

      sheet.cells(rowsNum, ) = col.datatype

      next

      sheet.Range(sheet.cells(rowsNum-colsNum+,),sheet.cells(rowsNum,)).Borders.LineStyle = ""

      sheet.Range(sheet.cells(rowsNum-colsNum+,),sheet.cells(rowsNum,)).Borders.LineStyle = ""

      rowsNum = rowsNum + 

      Output "FullDescription: "       + tab.Name

   End If

End Sub

代码二：每个表都会新建一个 Sheet 页，第一个 Sheet 页上是所有表的列表

'******************************************************************************

'* File:     pdm2excel.txt

'* Title:    pdm export to excel

'* Purpose:  To export the tables and columns to Excel

'* Model:    Physical Data Model

'* Objects:  Table, Column, View

'* Author:   Chirs

'* Created:  2015-01-28

'* Version:  1.0

'******************************************************************************

Option Explicit

   Dim rowsNum

   rowsNum =

'-----------------------------------------------------------------------------

' Main function

'-----------------------------------------------------------------------------

' Get the current active model

Dim Model

Set Model = ActiveModel

If (Model Is Nothing) Or (Not Model.IsKindOf(PdPDM.cls_Model)) Then

  MsgBox "The current model is not an PDM model."

Else

 ' Get the tables collection

 '创建EXCEL APP 

Dim beginrow

 Dim EXCEL, BOOK, SHEET

 Set EXCEL = CreateObject("Excel.Application")

 EXCEL.Visible = True

 Set BOOK = EXCEL.Workbooks.Add(-) '新建工作簿

 BOOK.Sheets().Name = "数据库表结构"

 Set SHEET = EXCEL.workbooks().sheets("数据库表结构")

 ShowProperties Model, SHEET

 EXCEL.visible = true

 '设置列宽和自动换行

 SHEET.Columns().ColumnWidth =

 SHEET.Columns().ColumnWidth =

 SHEET.Columns().ColumnWidth =    

 SHEET.Columns().WrapText =true

 SHEET.Columns().WrapText =true

 SHEET.Columns().WrapText =true 

End If

'-----------------------------------------------------------------------------

' Show properties of tables

'-----------------------------------------------------------------------------

Sub ShowProperties(mdl, sheet)

   ' Show tables of the current model/package

   rowsNum=

   beginrow = rowsNum+

   ' For each table

   output "begin"

   Dim tab

   For Each tab In mdl.tables

      ShowTable tab,sheet

   Next

   if mdl.tables.count >  then

        sheet.Range("A" & beginrow +  & ":A" & rowsNum).Rows.Group

   end if

   output "end"

End Sub

'-----------------------------------------------------------------------------

' 数据表查询

'-----------------------------------------------------------------------------

Sub ShowTable(tab, sheet)

   If IsObject(tab) Then

     Dim rangFlag

      sheet.cells(, ) = "序号"

      sheet.cells(, ) = "表名"

      sheet.cells(, ) = "实体名"

      '设置边框

      sheet.Range(sheet.cells(, ),sheet.cells(, )).Borders.LineStyle = ""

      '设置背景颜色

      sheet.Range(sheet.cells(, ),sheet.cells(, )).Interior.ColorIndex = ""

      rowsNum = rowsNum +

      sheet.cells(rowsNum+, ) = rowsNum

      sheet.cells(rowsNum+, ) = tab.code

      sheet.cells(rowsNum+, ) = tab.name

      '设置边框

      sheet.Range(sheet.cells(rowsNum+,),sheet.cells(rowsNum+,)).Borders.LineStyle = ""

      '增加Sheet

      BOOK.Sheets.Add , BOOK.Sheets(BOOK.Sheets.count)

      BOOK.Sheets(rowsNum+).Name = tab.code 

      Dim shtn

      Set shtn = EXCEL.workbooks().sheets(tab.code)

      '设置列宽和换行

       shtn.Columns().ColumnWidth =

       shtn.Columns().ColumnWidth =

       shtn.Columns().ColumnWidth =

       shtn.Columns().ColumnWidth =

       shtn.Columns().ColumnWidth =    

       shtn.Columns().WrapText =true

       shtn.Columns().WrapText =true

       shtn.Columns().WrapText =true

       shtn.Columns().WrapText =true

       shtn.Columns().WrapText =true

       '设置列标题

       shtn.cells(, ) = "字段中文名"

       shtn.cells(, ) = "字段名"

       shtn.cells(, ) = "字段类型"

       shtn.cells(, ) = tab.code

       shtn.cells(, ) = tab.Name

       '设置边框

       shtn.Range(shtn.cells(, ),shtn.cells(, )).Borders.LineStyle = ""

       shtn.Range(shtn.cells(, ),shtn.cells(, )).Borders.LineStyle = ""

       '设置背景颜色

       shtn.Range(shtn.cells(, ),shtn.cells(, )).Interior.ColorIndex = ""

       shtn.Range(shtn.cells(, ),shtn.cells(, )).Interior.ColorIndex = ""

      Dim col ' running column

      Dim colsNum

      Dim rNum

      colsNum =

      rNum =

            for each col in tab.columns

              rNum = rNum +

              colsNum = colsNum +  

            shtn.cells(rNum+, ) = col.name

            shtn.cells(rNum+, ) = col.code

            shtn.cells(rNum+, ) = col.datatype

            next

            shtn.Range(shtn.cells(rNum-colsNum+,),shtn.cells(rNum+,)).Borders.LineStyle = ""

            rNum = rNum +  

            Output "FullDescription: "       + tab.Name

   End If

End Sub

代码三：都在一页样式好看

'******************************************************************************

Option Explicit

   Dim rowsNum

   rowsNum =

'-----------------------------------------------------------------------------

' Main function

'-----------------------------------------------------------------------------

' Get the current active model

    Dim Model

    Set Model = ActiveModel

    If (Model Is Nothing) Or (Not Model.IsKindOf(PdPDM.cls_Model)) Then

       MsgBox "The current model is not an PDM model."

    Else

      ' Get the tables collection

      '创建EXCEL APP

      dim beginrow

      DIM EXCEL, SHEET, SHEETLIST

      set EXCEL = CREATEOBJECT("Excel.Application")

      EXCEL.workbooks.add(-)'添加工作表

      EXCEL.workbooks().sheets().name ="表结构"

      set SHEET = EXCEL.workbooks().sheets("表结构")

      EXCEL.workbooks().sheets.add

      EXCEL.workbooks().sheets().name ="目录"

      set SHEETLIST = EXCEL.workbooks().sheets("目录")

      ShowTableList Model,SHEETLIST

      ShowProperties Model, SHEET,SHEETLIST

      EXCEL.workbooks().Sheets().Select

      EXCEL.visible = true

      '设置列宽和自动换行

      sheet.Columns().ColumnWidth =

      sheet.Columns().ColumnWidth =

      sheet.Columns().ColumnWidth =

      sheet.Columns().ColumnWidth =

      sheet.Columns().ColumnWidth =

      sheet.Columns().ColumnWidth =

      sheet.Columns().WrapText =true

      sheet.Columns().WrapText =true

      sheet.Columns().WrapText =true

      '不显示网格线

      EXCEL.ActiveWindow.DisplayGridlines = False

 End If

'-----------------------------------------------------------------------------

' Show properties of tables

'-----------------------------------------------------------------------------

Sub ShowProperties(mdl, sheet,SheetList)

   ' Show tables of the current model/package

   rowsNum=

   beginrow = rowsNum+

   Dim rowIndex

   rowIndex=

   ' For each table

   output "begin"

   Dim tab

   For Each tab In mdl.tables

      ShowTable tab,sheet,rowIndex,sheetList

      rowIndex = rowIndex +

   Next

   if mdl.tables.count >  then

        sheet.Range("A" & beginrow +  & ":A" & rowsNum).Rows.Group

   end if

   output "end"

End Sub

'-----------------------------------------------------------------------------

' Show table properties

'-----------------------------------------------------------------------------

Sub ShowTable(tab, sheet,rowIndex,sheetList)

   If IsObject(tab) Then

     Dim rangFlag

     rowsNum = rowsNum +

      ' Show properties

      Output "================================"

      sheet.cells(rowsNum, ) =tab.name

      sheet.cells(rowsNum, ).HorizontalAlignment=

      sheet.cells(rowsNum, ) = tab.code

      'sheet.cells(rowsNum, 5).HorizontalAlignment=3

      'sheet.cells(rowsNum, 6) = ""

      'sheet.cells(rowsNum, 7) = "表说明"

      sheet.cells(rowsNum, ) = tab.comment

      'sheet.cells(rowsNum, 8).HorizontalAlignment=3

      sheet.Range(sheet.cells(rowsNum, ),sheet.cells(rowsNum, )).Merge

      '设置超链接，从目录点击表名去查看表结构

      '字段中文名    字段英文名    字段类型    注释    是否主键    是否非空    默认值

      sheetList.Hyperlinks.Add sheetList.cells(rowIndex,), "","表结构"&"!B"&rowsNum

      rowsNum = rowsNum +

      sheet.cells(rowsNum, ) = "字段中文名"

      sheet.cells(rowsNum, ) = "字段英文名"

      sheet.cells(rowsNum, ) = "字段类型"

      sheet.cells(rowsNum, ) = "注释"

      sheet.cells(rowsNum, ) = "是否主键"

      sheet.cells(rowsNum, ) = "是否非空"

      sheet.cells(rowsNum, ) = "默认值"

      '设置边框

      sheet.Range(sheet.cells(rowsNum-, ),sheet.cells(rowsNum, )).Borders.LineStyle = ""

      'sheet.Range(sheet.cells(rowsNum-1, 4),sheet.cells(rowsNum, 9)).Borders.LineStyle = "1"

      '字体为10号

      sheet.Range(sheet.cells(rowsNum-, ),sheet.cells(rowsNum, )).Font.Size=

            Dim col ' running column

            Dim colsNum

            colsNum =

      for each col in tab.columns

        rowsNum = rowsNum +

        colsNum = colsNum +

          sheet.cells(rowsNum, ) = col.name

        'sheet.cells(rowsNum, 3) = ""

          'sheet.cells(rowsNum, 4) = col.name

          sheet.cells(rowsNum, ) = col.code

          sheet.cells(rowsNum, ) = col.datatype

        sheet.cells(rowsNum, ) = col.comment

          If col.Primary = true Then

        sheet.cells(rowsNum, ) = "Y"

        Else

        sheet.cells(rowsNum, ) = " "

        End If

        If col.Mandatory = true Then

        sheet.cells(rowsNum, ) = "Y"

        Else

        sheet.cells(rowsNum, ) = " "

        End If

        sheet.cells(rowsNum, ) =  col.defaultvalue

      next

      sheet.Range(sheet.cells(rowsNum-colsNum+,),sheet.cells(rowsNum,)).Borders.LineStyle = ""

      'sheet.Range(sheet.cells(rowsNum-colsNum+1,4),sheet.cells(rowsNum,9)).Borders.LineStyle = "3"

      sheet.Range(sheet.cells(rowsNum-colsNum+,),sheet.cells(rowsNum,)).Font.Size =

      rowsNum = rowsNum + 

      Output "FullDescription: "       + tab.Name

   End If

End Sub

'-----------------------------------------------------------------------------

' Show List Of Table

'-----------------------------------------------------------------------------

Sub ShowTableList(mdl, SheetList)

   ' Show tables of the current model/package

   Dim rowsNo

   rowsNo=

   ' For each table

   output "begin"

   SheetList.cells(rowsNo, ) = "主题"

   SheetList.cells(rowsNo, ) = "表中文名"

   SheetList.cells(rowsNo, ) = "表英文名"

   SheetList.cells(rowsNo, ) = "表说明"

   rowsNo = rowsNo +

   SheetList.cells(rowsNo, ) = mdl.name

   Dim tab

   For Each tab In mdl.tables

     If IsObject(tab) Then

         rowsNo = rowsNo +

      SheetList.cells(rowsNo, ) = ""

      SheetList.cells(rowsNo, ) = tab.name

      SheetList.cells(rowsNo, ) = tab.code

      SheetList.cells(rowsNo, ) = tab.comment

     End If

   Next

    SheetList.Columns().ColumnWidth =

      SheetList.Columns().ColumnWidth =

      SheetList.Columns().ColumnWidth =

     SheetList.Columns().ColumnWidth =

   output "end"

End Sub

目录页可以跳转

'******************************************************************************

'* File:     Exported_Excel_page.vbs

'* Purpose:  分目录递归，查找当前PDM下所有表，并导出Excel

'* Title:

'* Category:

'* Version:  1.0

'* Author:  787681084@qq.com

'******************************************************************************

Option Explicit

ValidationMode = True

InteractiveMode = im_Batch

'-----------------------------------------------------------------------------

' 主函数

'-----------------------------------------------------------------------------

' 获取当前活动模型

Dim mdl ' 当前的模型

Set mdl = ActiveModel

Dim EXCEL,catalog,sheet,catalogNum,rowsNum,linkNum

rowsNum =

catalogNum =

linkNum = 

If (mdl Is Nothing) Then

    MsgBox "There is no Active Model"

Else

    SetCatalog

    ListObjects(mdl)

End If

'----------------------------------------------------------------------------------------------

' 子过程，用于扫描当前包并从当前包中打印对象的信息，然后对当前包的所有子包再次调用相同的子过程

'----------------------------------------------------------------------------------------------

Private Sub ListObjects(fldr)

    output "Scanning " & fldr.code

    Dim obj ' 运行对象

    For Each obj In fldr.children

        ' 调用子过程来打印对象上的信息

        DescribeObject obj

    Next

    ' 进入子包

    Dim f ' 运行文件夹

    For Each f In fldr.Packages

        '调用子程序扫描子程序包

        ListObjects f

    Next

End Sub

'-----------------------------------------------------------------------------

' 子过程，用于在输出中打印当前对象的信息

'-----------------------------------------------------------------------------

Private Sub DescribeObject(CurrentObject)

    if not CurrentObject.Iskindof(cls_NamedObject) then exit sub

    if CurrentObject.Iskindof(cls_Table) then

        AddSheet CurrentObject.code

        ExportTable CurrentObject, sheet

        ExportCatalog CurrentObject

    else

        output "Found "+CurrentObject.ClassName+" """+CurrentObject.Name+""", Created by "+CurrentObject.Creator+" On "+Cstr(CurrentObject.CreationDate)

    End if

End Sub

'----------------------------------------------------------------------------------------------

' 设置Excel的sheet页

'----------------------------------------------------------------------------------------------

Sub SetExcel()

    Set EXCEL= CreateObject("Excel.Application")

    ' 使Excel通过应用程序对象可见。

    EXCEL.Visible = True

    EXCEL.workbooks.add(-)'添加工作表

    EXCEL.workbooks().sheets().name ="pdm"

    set sheet = EXCEL.workbooks().sheets("pdm")

    ' 将一些文本放在工作表的第一行

    sheet.Cells(rowsNum, ).Value = "表名"

    sheet.Cells(rowsNum, ).Value = "表中文名"

    sheet.Cells(rowsNum, ).Value = "表备注"

    sheet.Cells(rowsNum, ).Value = "字段ID"

    sheet.Cells(rowsNum, ).Value = "字段名"

    sheet.Cells(rowsNum, ).Value = "字段中文名"

    sheet.Cells(rowsNum, ).Value = "字段类型"

    sheet.Cells(rowsNum, ).Value = "字段备注"

    sheet.cells(rowsNum, ).Value = "主键"

    sheet.cells(rowsNum, ).Value = "非空"

    sheet.cells(rowsNum, ).Value = "默认值"

End Sub

'----------------------------------------------------------------------------------------------

' 导出目录结构

'----------------------------------------------------------------------------------------------

Sub ExportCatalog(tab)

    catalogNum = catalogNum +

    catalog.cells(catalogNum, ).Value = tab.parent.name

    catalog.cells(catalogNum, ).Value = tab.code

    catalog.cells(catalogNum, ).Value = tab.comment

    '设置超链接

    catalog.Hyperlinks.Add catalog.cells(catalogNum,), "",tab.code&"!A2"

End Sub 

'----------------------------------------------------------------------------------------------

' 导出sheet页

'----------------------------------------------------------------------------------------------

Sub ExportTable(tab, sheet)

    Dim col ' 运行列

    Dim colsNum

    colsNum =

    for each col in tab.columns

        colsNum = colsNum +

        rowsNum = rowsNum +

        sheet.Cells(rowsNum, ).Value = tab.code

        'sheet.Cells(rowsNum, 2).Value = tab.name

        sheet.Cells(rowsNum, ).Value = tab.comment

        'sheet.Cells(rowsNum, 4).Value = colsNum

        sheet.Cells(rowsNum, ).Value = col.code

        'sheet.Cells(rowsNum, 4).Value = col.name

        sheet.Cells(rowsNum, ).Value = col.datatype

        sheet.Cells(rowsNum, ).Value = col.comment

        If col.Primary = true Then

            sheet.cells(rowsNum, ) = "Y"

        Else

            sheet.cells(rowsNum, ) = ""

        End If

        If col.Mandatory = true Then

            sheet.cells(rowsNum, ) = "Y"

        Else

            sheet.cells(rowsNum, ) = ""

        End If

        sheet.cells(rowsNum, ).Value = col.defaultvalue

        '设置居中显示

        sheet.cells(rowsNum,).HorizontalAlignment =

        sheet.cells(rowsNum,).HorizontalAlignment =

    next

    output "Exported table: "+ +tab.Code+"("+tab.Name+")"

End Sub 

'----------------------------------------------------------------------------------------------

' 设置Excel目录页

'----------------------------------------------------------------------------------------------

Sub SetCatalog()

    Set EXCEL= CreateObject("Excel.Application")

    ' 使Excel通过应用程序对象可见。

    EXCEL.Visible = True

    EXCEL.workbooks.add(-)'添加工作表

    EXCEL.workbooks().sheets().name ="表结构"

    EXCEL.workbooks().sheets.add

    EXCEL.workbooks().sheets().name ="目录"

    set catalog = EXCEL.workbooks().sheets("目录")

    catalog.cells(catalogNum, ) = "模块"

    catalog.cells(catalogNum, ) = "表名"

    catalog.cells(catalogNum, ) = "表注释"

    ' 设置列宽和自动换行

    catalog.Columns().ColumnWidth =

    catalog.Columns().ColumnWidth =

    catalog.Columns().ColumnWidth = 

    '设置首行居中显示

    catalog.Range(catalog.cells(,),catalog.cells(,)).HorizontalAlignment =

    '设置首行字体加粗

    catalog.Range(catalog.cells(,),catalog.cells(,)).Font.Bold = True

End Sub 

'----------------------------------------------------------------------------------------------

' 新增sheet页

'----------------------------------------------------------------------------------------------

Sub AddSheet(sheetName)

    EXCEL.workbooks().Sheets().Select

    EXCEL.workbooks().sheets.add

    EXCEL.workbooks().sheets().name = sheetName

    set sheet = EXCEL.workbooks().sheets(sheetName)

    rowsNum =

    '将一些文本放在工作表的第一行

    sheet.Cells(rowsNum, ).Value = "表名"

    'sheet.Cells(rowsNum, 2).Value = "表中文名"

    sheet.Cells(rowsNum, ).Value = "表备注"

    'sheet.Cells(rowsNum, 4).Value = "字段ID"

    sheet.Cells(rowsNum, ).Value = "字段名"

    'sheet.Cells(rowsNum, 4).Value = "字段中文名"

    sheet.Cells(rowsNum, ).Value = "字段类型"

    sheet.Cells(rowsNum, ).Value = "字段备注"

    sheet.cells(rowsNum, ).Value = "主键"

    sheet.cells(rowsNum, ).Value = "非空"

    sheet.cells(rowsNum, ).Value = "默认值"

    '设置列宽

    sheet.Columns().ColumnWidth =

    sheet.Columns().ColumnWidth =

    sheet.Columns().ColumnWidth =

    sheet.Columns().ColumnWidth =

    sheet.Columns().ColumnWidth =

    sheet.Columns().ColumnWidth =

    sheet.Columns().ColumnWidth =

    sheet.Columns().ColumnWidth = 

    '设置首行居中显示

    sheet.Range(sheet.cells(,),sheet.cells(,)).HorizontalAlignment =

    '设置首行字体加粗

    sheet.Range(sheet.cells(,),sheet.cells(,)).Font.Bold = True

    linkNum = linkNum +

    '设置超链接

    sheet.Hyperlinks.Add sheet.cells(,), "","目录"&"!B"&linkNum

End Sub

PowerDesigner数据库设计导出到Excel的更多相关文章

PowerDesigner数据库设计PDM基于Excel的导入导出总结
经常用到pdm来管理代码,一两张表,手写一下还凑合,一旦表多了,就慌了.于是,开始学习用vbs进行Excel的来快速导入导出操作PDM就变得很紧急了,搜罗了网络上的很多vbs脚本,各有各的优点,但对于 ...
Python实现数据库一键导出为Excel表格
依赖 Python2711 xlwt MySQLdb 数据库相关连接获取字段信息获取数据 Excel基础 workbook sheet 案例封装封装之后测试结果总结数据库数据导出为ex ...
PowerDesigner ---- 数据库设计（物理模型CDM和概念模型PDM）
前言上一篇介绍了个PowerDesigner工具的安装和汉化,现在我就说一下怎么用这个PowerDesigner建数据库吧. 内容第一种方法:概念模型转物理模型 1.首先新建模型--选择概念模 ...
Java利用Apache POI将数据库数据导出为excel
将数据库中的数据导出为excel文件,供其他人查看 public class POITest { public static void main(String[] args) { POITest te ...
Java：将数据库数据导出到Excel (一眼就看会)
所用Jar包 1. sqljdbc4.jar 连接数据库的Jar包(根据数据库的不同进行选择,我用的SqlServer2008) 2.Jxl.jar 访问Excel的Jar包注意:支持以.xls结尾 ...
Java实现将Excel导入数据库和从数据库中导出为Excel
实现的功能: 用Java实现从Excel导入数据库,如果存在就更新将数据库中的数据导出为Excel 1.添加jxl.jar mysql-connector-java.1.7-bin.jar包到项目的 ...
PCB MS SERVER 使用bcp命令将数据库数据导出到Excel
在前年工程系统与APS系统对接时,需将工程系统数据导出来给APS,采用的正是bcp命令实现,速度超快. 这里将此命令使用方法整理如下: 一.写SQL将表数据导出到Excel @echo "& ...
PowerDesigner数据库设计实用技巧
欢迎大家补充,谢谢! 1. 原始单据与实体之间的关系可以是一对一.一对多.多对多的关系.在一般情况下,它们是一对一的关系:即一张原始单据对应且只对应一个实体.在特殊情况下,它们可能是一对多或多对一的 ...
mysql数据库表格导出为excel表格
在本地数据库中操作如下: 由于excel表格的编码是GBK,所以导出时要加一个设置字符编码: select * from 某个表 into outfile 'd:/文件名.xls' CHARACTER ...

随机推荐

Can't find msguniq. Make sure you have GNU gettext tools 0.15 or newer installed
Python Django生成国际化和本地化.po文件步骤1.在settings文件中,添加一下内容: LANGUAGES = ( ('zh-hans', ugettext_lazy('Simplif ...
关于Aspose.Words插入表格单元格的高度问题的解决
最近在工作中遇到客户要将PDF打印的文档插入的表格行高缩小.为解决这个问题,我百度了好长时间,让没有直接来说明这个问题的,我不清楚是我遇到的问题太low了,各位大神不屑一顾.终于我在几个家之所长,把问 ...
tab切换的效果——仿照今日头条APP的切换效果
说点废话;不知道是哪一版本起头条的tab切换效果就变了,一直琢磨着这个事,去度娘那里也没有什么结果:正好这两天有空就尝试做了一下:用前端的技术来实现: 先看效果吧:上面的tab随着slide滑动,上面 ...
Tomcat证书安装(pfx和jks)
tomcat安装证书需要修改tomcat/conf下的server.xml,需要修改Connector port=”8443”开头的标签,一般情况下是注释掉的. 1.pfx 增加keystoreFil ...
nodejs笔记之事件循环
Event Loop (事件循环或者事件轮询) Event Loop是一个程序结构,用于等待和发送消息和事件. 简单说,就是在程序中设置两个线程:一个负责程序本身的运行,称为"主线程&q ...
解决jmeter中文乱码的三种方法
1.在Jmeter中的Http请求中,在内容编码后填入“utf-8”. 2.在本地文件存储Jmeter的bin目录下,修改jmeter.properties文件. (1)用记事本打开jmeter.pr ...
Django视图层
本文目录 1 视图函数 2 HttpRequest对象 3 HttpResponse对象 4 JsonResponse 5 CBV和FBV 6 简单文件上传回到目录 1 视图函数一个视图函数,简称 ...
spring-IoC的配置文件applicationContext.XML
<?xml version="1.0" encoding="UTF-8"?><beans xmlns="http://www.spr ...
Session &cookie introduction,usage
Cookie 1)什么是Cookie? 服务器为了识别用户身份而临时存放在浏览器端的少量数据. 2)工作原理浏览器访问服务器时,服务器将一些数据以set-cooki ...
THUSCH 2017 大魔法师（矩阵乘法+线段树）
题意 https://loj.ac/problem/2980 思路区间修改考虑用线段树维护.由于一段区间的 \(A,B,C\) 可以表示成由原来的 \(A,B,C\) 乘上带上系数再加上某一个某个常 ...

PowerDesigner数据库设计导出到Excel

PowerDesigner数据库设计导出到Excel的更多相关文章

随机推荐

热门专题