admin管理员组

文章数量:1534214

2024年5月1日发(作者:)

Powerdesigner模型导出到excel:格式更好看,如下

在Powerdesigner中按Shift+Ctrl+X呼出脚本运行界面复制下面代码RUN即可:

'******************************************************************************

'* File:

'* Title: pdm export to excel

'* Purpose: To export the tables and columns to Excel

'* Model: Physical Data Model

'* Objects: Table, Column, View

'* Author: dutao

'* Created: 2016-09-18

'* Version: 1.0

'******************************************************************************

Option Explicit

Dim rowsNum

rowsNum = 0

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

' Main function

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

' Get the current active model

Dim Model

Set Model = ActiveModel

If (Model Is Nothing) Or (Not Of(_Model)) Then

MsgBox "The current model is not an PDM model."

Else

' Get the tables collection

本文标签: 导出运行界面复制模型