PowerDesigner导出数据表结构到Excel 一个表一个Sheet 带链接目录 (sheet是表名）

 

1. 先逆向导入你的sql
https://mp.youkuaiyun.com/console/editor/html/90756202

 2.选中需要导出的表，执行脚本

 

Option Explicit

   Dim rowsNum

   rowsNum = 0

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

' 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, SHEETLIST

      set EXCEL = CREATEOBJECT("Excel.Application")

      set BOOK = EXCEL.workbooks.add(-4167) ' 创建工作簿

      BOOK.sheets(1).name ="目录"                     'Sheet名称

      set SHEETLIST = BOOK.sheets("目录")     'Sheet对象

            output "[line(21) info]: book.Sheet: " + BOOK.Sheets(1).Name

             

      BOOK.sheets.add               ' 添加工作表Sheet

            output "[line(24) info]: book.Sheet: " + BOOK.Sheets(1).Name

      'EXCEL.workbooks(1).sheets(1).name ="表结构"     'Sheet1名称

      'set SHEET = EXCE