PowerDesigner 将pdm模型表用命令导出成Excel表格

原创

已于 2023-02-28 16:00:07 修改 · 1.3k 阅读

9 ·

CC 4.0 BY-SA版权

文章标签：

#excel

于 2023-02-28 15:58:27 首次发布

这篇文章描述了一个VBScript脚本，该脚本在PowerDesigner中使用快捷键Ctrl+Shift+X执行，可以递归遍历当前PDM模型中的所有表，并将这些表的信息导出到一个新的Excel工作表中，包括表名、表中文名、表备注以及字段信息等。

PowerDesigner 将pdm模型表用命令导出成Excel表格

使用步骤：打开PowerDesigner 快捷键 Ctrl+Shift+X 直接将代码复制进去即可。

在这里插入图片描述

代码：

'******************************************************************************
'* File:     pdm2excel.vbs
'* Purpose:  分目录递归，查找当前PDM下所有表，并导出Excel
'* Title:    
'* Category: 
'* Version:  1.0
'* Author:  huhaicool@sina.com
'******************************************************************************
Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
' get the current active model
Dim mdl ' the current model
Set mdl = ActiveModel
Dim EXCEL,sheet,rowsNum
rowsNum = 1
 
If (mdl Is Nothing) Then
    MsgBox "There is no Active Model"
Else
    SetExcel
    ListObjects(mdl)
End If
'-----------------------------------------------------------------------------
' Sub procedure to scan current package and print information on objects from current package
' and call again the same sub procedure on all children pacakge 
' of the current package
'----------------------------------------------------------------------------