powerdesigner执行脚本批量导出表结构到电子表格excel
复制代码到pd执行命令的地方,批量导出表结构到电子表格。
'将powerdesigner 建好的表导出为excel文件
'1、使用Ctrl+Shift+X打开编辑页面
'2、复制以下代码
Option Explicit
Dim rowsNum
rowsNum = 2
Dim Model
Set Model = ActiveModel
If (Model Is Nothing) Or (Not Model.IsKindOf(PdPDM.cls_Model)) Then
Debug.print “null”
Else
Dim tableCount, maxTableNu ...