PowerDesigner 数据模型导入导出 Excel

最新推荐文章于 2024-11-26 09:43:22 发布

逆风GLORY

最新推荐文章于 2024-11-26 09:43:22 发布

阅读量3.9k

点赞数 1

分类专栏： PowerDesigner 数据库建模开发规范文章标签： PowerDesigner 数据库管理开发规范

本文链接：https://blog.csdn.net/csdn_0911/article/details/83142519

版权

附：PowerDesigner16.5 安装包地址

链接：https://pan.baidu.com/s/1-JC2QF727OVW7U1zdiGd3A
提取码：zam6

导出

数据模型导出成 Excel

最近项目组正在整理开发流程规范，其中对于数据库的管理个人整理如下。

先看一眼效果图：

数据库物理表输入输出要素.xlsx

实现如上效果，需执行一段 VBScript 脚本，网上借鉴了一些，根据自己的需求我又重新写了一下，如下：

执行路径【Tools - Execute Command - Run Script】或者快捷键【Ctrl + Shift + X】，点击运行：

'****************************************************************************** 
'* Title:    pdm export to excel 
'* Describe:  To export the tables and columns to Excel 
'* Model:    Physical Data Model 
'* Objects:  Table, Column, View 
'* Author:   baicun 
'* Created:  2018-10-18 
'* Version:  1.0 
'******************************************************************************
Option Explicit
   Dim rowsNum
   rowsNum = 0
'-----------------------------------------------------------------------------
' Main function
'-----------------------------------------------------------------------------
' 定义 Model 变量,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
      ' 定义变量,创建EXCEL APP
      DIM beginrow
      DIM EXCEL, SHEET, SHEETLIST, INDEXLIST
      set EXCEL = CREATEOBJECT("Excel.Application")
      EXCEL.workbooks.add(-4167)'添加工作表
      EXCEL.workbooks(1).sheets(1).name ="数据库表清单"
      set SHEET = EXCEL.workbooks(1).sheets("数据库表清单")
      
      EXCEL.workbooks(1).sheets.add
      EXCEL.workbooks(1).sheets(1).name ="数据库表要素"
      set SHEETLIST = EXCEL.workbooks(1).sheets(&#

最低0.47元/天解锁文章