数据库表结构转成设计书，PowerDesigner 表格导出为excel

数据库中的表导入到PowerDesigner中并转为excel文档

1、打开PowerDesigner12，在菜单中按照如下方式进行操作

file->Reverse Engineer->DataBase

点击后，弹出 New Physical Data Model 的对话框

2、在General选项卡中

Model name:模板名字，自己命名。

DMBMS    ：根据需要选择，我选择的是ORACLEVersion 10g

点确定后弹出 Database Reverse Engineering Option 对话框

3  Selection选项卡中，选中Using a data source选项

注意如果是第一次导入数据，需要你先自己配制ODBC数据源，方法如下：

1）点击 下面 右侧的数据库 连接按钮，弹出 Connect to a Data Source 的对话框

2）选中 ODBC machine data source 选项，点击 Modify按钮右边的 Configure 按钮   弹出Configure Data Connections

3）在 ODBC Machine Data Sources选项卡   下面的工具栏中点击 第二个 数据库 配置按钮(Add Data Source(Ctrl+N)) 弹出创建新数据源窗口 ，选择文件数据源，    选择相应的数据源驱动程序（我选Oracle），点下一步（Modify），给数据源起个名字，选择服务器，下一步，输入相应的密码

配置完毕 后 点击确定

4，选择刚刚配置的数据源，输入相应的用户名和密码   即可。

=====得到PDM物理设计说明书

选中tables
ctrl + shift +x 然后运行脚本

 '******************************************************************************
 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

该代码为宏代码

参考：

https://blog.csdn.net/a824444865/article/details/50072655

https://www.cnblogs.com/gaocong/p/6553080.html