PowerDesigner导出所有表到Excel（同一表格）

打开pdm,然后按快捷键：ctrl + shift +x

输入以下脚本，点击Run

将会按照以下形式生成Excel：

表名

表中文名

表备注

字段ID

字段名

字段中文名

字段类型

字段备注

'******************************************************************************
'* 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 = 1If (mdl Is Nothing) ThenMsgBox "There is no Active Model"
ElseSetExcelListObjects(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
'-----------------------------------------------------------------------------
Private Sub ListObjects(fldr)output "Scanning " & fldr.codeDim obj ' running objectFor Each obj In fldr.children' Calling sub procedure to print out information on the objectDescribeObject objNext' go into the sub-packagesDim f ' running folderFor Each f In fldr.Packages'calling sub procedure to scan children packageListObjects fNext
End Sub
'-----------------------------------------------------------------------------
' Sub procedure to print information on current object in output
'-----------------------------------------------------------------------------
Private Sub DescribeObject(CurrentObject)if not CurrentObject.Iskindof(cls_NamedObject) then exit subif CurrentObject.Iskindof(cls_Table) then ExportTable CurrentObject, sheetelseoutput "Found "+CurrentObject.ClassName+" """+CurrentObject.Name+""", Created by "+CurrentObject.Creator+" On "+Cstr(CurrentObject.CreationDate)   End if
End SubSub SetExcel()Set EXCEL= CreateObject("Excel.Application")' Make Excel visible through the Application object.EXCEL.Visible = TrueEXCEL.workbooks.add(-4167)'添加工作表EXCEL.workbooks(1).sheets(1).name ="pdm"set sheet = EXCEL.workbooks(1).sheets("pdm")' Place some text in the first Row of the sheet.sheet.Cells(rowsNum, 1).Value = "表名"sheet.Cells(rowsNum, 2).Value = "表中文名"sheet.Cells(rowsNum, 3).Value = "表备注"sheet.Cells(rowsNum, 4).Value = "字段ID"sheet.Cells(rowsNum, 5).Value = "字段名"sheet.Cells(rowsNum, 6).Value = "字段中文名"sheet.Cells(rowsNum, 7).Value = "字段类型"sheet.Cells(rowsNum, 8).Value = "字段备注"
End SubSub ExportTable(tab, sheet)Dim col ' running columnDim colsNumcolsNum = 0for each col in tab.columnscolsNum = colsNum + 1rowsNum = rowsNum + 1sheet.Cells(rowsNum, 1).Value = tab.codesheet.Cells(rowsNum, 2).Value = tab.namesheet.Cells(rowsNum, 3).Value = tab.commentsheet.Cells(rowsNum, 4).Value = colsNumsheet.Cells(rowsNum, 5).Value = col.codesheet.Cells(rowsNum, 6).Value = col.namesheet.Cells(rowsNum, 7).Value = col.datatypesheet.Cells(rowsNum, 8).Value = col.commentnextoutput "Exported table: "+ +tab.Code+"("+tab.Name+")"
End Sub

PowerDesigner导出所有表到Excel（同一表格）相关推荐

oracle导出一个表数据库,excel怎么导出多个表格数据库数据-一个excel表格中有多个sheet,如何将其导入oracle数......
一个excel表格中有多个sheet,如何将其导入oracle数... 解决方案如下: 可以新建一个查询,查询你所说的2个表中的所有数据运行查询,这样查询结果就包含了你要的数据,再把查询结果导出就 ...
PowerDesigner导出数据库表结构word
打开PowerDesigner新建模型(系统环境变量必须配置32位JDK,否决将出现无法创建JavaVM错误信息powerdesigner Could not Initialize JavaVM!) ...
ArcMap(ArcGIS)导出属性表用Excel打开中文乱码的解决方法
前些天在做GIS实验时,发现用Excel打开ArcMap10.7导出的属性表中文是乱码,数字正常显示,便在网上搜罗解决方法.网上方法太多,比如下载安装官方补丁,修改注册表等等.个人感觉,麻烦而且不确定 ...
【保姆式教程】用PowerDesigner导出数据库表结构为Word/Excel表格
使用PowerDesigner将表结构导出到word表格一. PowerDesigner的下载安装 (已安装的跳过) PowerDesigner下载地址后面只要next>>next&g ...
php excel导出sheet表,phpexcel来做表格导出（多个工作sheet）
1.先得去下载phpexcel文档,加压下来 /** * 简单实用Execl */ set_include_path('.'.get_include_path().PATH_SEPARATOR.dir ...
powerdesigner 导出数据库表结构
http://www.360doc.com/content/12/0817/19/61497_230730771.shtml 转载于:https://www.cnblogs.com/gaohuag/p ...
POI动态导出多层表头的EXCEL文件
POI动态导出多层表头的EXCEL文件表格表头导出单行表头多行表头以前接触过一个很古老的导出Excel,实现的逻辑是先声明一个导出的Excel模板,模板里报表的表头名称和顺序是固定的,这样执行 ...
powerdesigner 导出word
目的:使用powerdesigner导出word表结构使用powerdesigner链接数据库后,发现没有显示显示表的注释和字段的注释,本文主要解决显示表和字段注释的问题. 怎么链接数据库,可以参 ...
Oracle表里的照片怎么导出来,如何导出oracle数据库中某张表到excel_oracle数据库表格导出到excel...
如何将oracle数据库表字段导成excel表格这个你只要用ADO连oracle并获取记录集,根据你用的编程语言打开EXCEL,然后操作EXCEL对象的工作表就可以了.以VB为例: 1.在工程中引用 ...

PowerDesigner导出所有表到Excel（同一表格）

PowerDesigner导出所有表到Excel（同一表格）相关推荐

最新文章

热门文章