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

一杯咖啡！

已于 2023-02-28 16:00:07 修改

阅读量1.3k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： PowerDesigner 文章标签： excel

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

本文链接：https://blog.csdn.net/qq_37655399/article/details/129263485

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

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

在这里插入图片描述

代码：

'******************************************************************************
'* File:     pdm2excel.vbs
'* Purpose:  分目录递归，查找当前PDM下所有表，并导出Excel
'* Title:    
'* Category: 
'* Version:  1.0
'* Author:  [email protected]
'******************************************************************************
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
'------------------------------------------------