大搬运~ powerDesigner 生成 Excel,经常用的功能直接搬运到自己的空间
'******************************************************************************
'* 在pd中,shift+ctrl+X,打开脚本运行
'* File: pdm2excel.txt
'* Title: pdm export to excel
'* Purpose: To export the tables and columns to Excel
'* Model: Physical Data Model
'* Objects: Table, Column, View
'* Author: ziyan
'* Created: 2012-05-03
'* 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 Model.IsKindOf(PdPDM.cls_Model)) Then
MsgBox "The current model is not an PDM model."
Else
' Get the tables collection
'创建EXCEL APP
dim beginrow
DIM EXCEL, SHEET
set EXCEL = CREATEOBJECT("Excel.Application")
EXCEL.workbooks.add(-4167)'添加工作表
EXCEL.workbooks(1).sheets(1).name ="test"
set sheet = EXCEL.workbooks(1).sheets("test")
ShowProperties Model, SHEET
EXCEL.visible = true
'设置列宽和自动换行
sheet.Columns(1).ColumnWidth = 20
sheet.Columns(2).ColumnWidth = 40
sheet.Columns(4).ColumnWidth = 20
sheet.Columns(5).ColumnWidth = 20
sheet.Columns(6).ColumnWidth = 15
sheet.Columns(1).WrapText =true
sheet.Columns(2).WrapText =true
sheet.Columns(4).WrapText =true
End If
'-----------------------------------------------------------------------------
' Show properties of tables
'-----------------------------------------------------------------------------
Sub ShowProperties(mdl, sheet)
' Show tables of the current model/package
rowsNum=0
beginrow = rowsNum+1
' For each table
output "begin"
Dim tab
For Each tab In mdl.tables
ShowTable tab,sheet
Next
if mdl.tables.count > 0 then
sheet.Range("A" & beginrow + 1 & ":A" & rowsNum).Rows.Group
end if
output "end"
End Sub
'-----------------------------------------------------------------------------
' Show table properties
'-----------------------------------------------------------------------------
Sub ShowTable(tab, sheet)
If IsObject(tab) Then
Dim rangFlag
rowsNum = rowsNum + 1
' Show properties
Output "================================"
sheet.cells(rowsNum, 1) = "实体名"
sheet.cells(rowsNum, 2) =tab.name
sheet.cells(rowsNum, 3) = ""
sheet.cells(rowsNum, 4) = "表名"
sheet.cells(rowsNum, 5) = tab.code
sheet.Range(sheet.cells(rowsNum, 5),sheet.cells(rowsNum, 6)).Merge
rowsNum = rowsNum + 1
sheet.cells(rowsNum, 1) = "属性名"
sheet.cells(rowsNum, 2) = "说明"
sheet.cells(rowsNum, 3) = ""
sheet.cells(rowsNum, 4) = "字段中文名"
sheet.cells(rowsNum, 5) = "字段名"
sheet.cells(rowsNum, 6) = "字段类型"
'设置边框
sheet.Range(sheet.cells(rowsNum-1, 1),sheet.cells(rowsNum, 2)).Borders.LineStyle = "1"
sheet.Range(sheet.cells(rowsNum-1, 4),sheet.cells(rowsNum, 6)).Borders.LineStyle = "1"
Dim col ' running column
Dim colsNum
colsNum = 0
for each col in tab.columns
rowsNum = rowsNum + 1
colsNum = colsNum + 1
sheet.cells(rowsNum, 1) = col.name
sheet.cells(rowsNum, 2) = col.comment
sheet.cells(rowsNum, 3) = ""
sheet.cells(rowsNum, 4) = col.name
sheet.cells(rowsNum, 5) = col.code
sheet.cells(rowsNum, 6) = col.datatype
next
sheet.Range(sheet.cells(rowsNum-colsNum+1,1),sheet.cells(rowsNum,2)).Borders.LineStyle = "2"
sheet.Range(sheet.cells(rowsNum-colsNum+1,4),sheet.cells(rowsNum,6)).Borders.LineStyle = "2"
rowsNum = rowsNum + 1
Output "FullDescription: " + tab.Name
End If
End Sub
分享到:
相关推荐
使用PowerDesigner通过excel模板文件与vb可执行代码,生成创建数据库sql建表语句脚本,资源包含.vb 和 excel模板文件。
脚本是参考网络资源修改的,文档格式是个通用格式不针对特定公司需求
1,打开PowerDesigner,找到创建的物理模型(Physical Data Model), 2,使用快捷键,或者 在PowerDesigner菜单栏中,依次点击“Tools ->Excute Commands->Edit/Run Script....4,将导出的结果(Excel)保存到自己的位置
该方法为powerdesigner逆向连接oracle数据库,生成.pdm文件,然后根据.pdm文件导出数据库文档的方法,文档中的方法都已经测试,可以导出word,html,和word三种格式。
通过powerdesigner 的vb脚本执行 生成对应的excel版本的数据库字典,第一页为目录,之后每页都为每张表的信息,目录和每个sheet页都自带超链接。支持多个Packages下的表结构数据字典生成
文档生成--提供全面向导驱动以及拖拽方式来生成Excel列表、HTML和RTP文档。 高度的可扩展性--可定制的GUI、MDA、脚本。 数据映射编辑器--以拖拽的方式实现对象/关系、XML到数据库和数据仓库的映射。 面向...
C#课程表产生日程表:按次序录入学期信息(第一周周一日期,周数),调停课(哪一天停课,调课到哪一天),课程信息(第几周到第几周),上课情况(周几,第几大节,教室),生成Excel表格,每一周每一天的情况均可...
资源包含: 14页详细的课程设计报告书、powerDesigner生成数据库的概念、物理、逻辑模型工程文件、C++——Qt编写的可视化数据库管理系统、 数据库工程文件(需要自己附加进Sql sever)、完成题目要求的数据库查询...
本安装说明是以Microsoft Access 2000为例来阐述的,数据库文件为文件夹ManPowerManage/ManPowerManage/bin/debug目录下的ManPowerManage.mdb文件。数据库无须安装设置,直接就可以运行。 3、把员工照片文件夹...
表结构设计器(EZDML) V1.50 (免费软件) 这是一个数据库建表的小软件,可快速的进行数据库表结构设计,建立数据模型。...新版本修改了菜单样式,字段列表中增加约束的设置,改进了导出EXCEL的样式效果,解决一些BUG。
本安装说明是以Microsoft Access 2000为例来阐述的,数据库文件为文件夹ManPowerManage/ManPowerManage/bin/debug目录下的ManPowerManage.mdb文件。数据库无须安装设置,直接就可以运行。 3、把员工照片文件夹...
表结构设计器(EZDML) V1.42 (免费软件) 这是一个数据库建表的小软件,可快速的进行数据库表结构设计,建立数据模型。...新版本修改了菜单样式,字段列表中增加约束的设置,支持导出简单的EXCEL文件。
通过PowerDesigner设计的表结构字段,通过tools->execute commands->edit/run script执行VBS脚本,生成数据库、表、字段的说明Excel文档
表结构设计器(EZDML) V1.42 (免费软件) 这是一个数据库建表的小软件,可快速的进行数据库表结构设计,建立数据模型。...新版本修改了菜单样式,字段列表中增加约束的设置,改进了导出EXCEL的样式效果。
在4.3版本中,工具引入了对PowerDesigner文件的支持,目前为止可用于Oracle、SqlServer、Sybase、DB2、MySQL、Access、SQLite、PostgreSQL、DM(达梦)、PowerDesigner文件、Informix、Firebird、MaxDB、Excel等和Ole...
只要您使用的数据库在windows操作系统中包含对应的driver驱动,PdmReader都可以作为连接数据库的客户端工具,并提供一些实用辅助功能,比如SQL脚本生成,excel,word,html,xls,txt文件导出等。 <br> PdmReader也提供...
ezdml_setup(表结构设计),即所谓的数据建模,目前大家常用的同类著名工具有PowerDesigner、ERWIN、ER-Studio和Rational-Rose等, 本工具无论是功能还是界面都无法跟它们比较,但本工具的好处是简单、快速、免费,...
支持.Net1.1及以上版本,可用于Oracle、SqlServer、Sybase、DB2、MySQL、Access、SQLite、PostgreSQL、DM(达梦)、PowerDesigner文件、Informix、Firebird、MaxDB、Excel等和OleDb、ODBC连接的数据库并可自定义,详见...
支持.Net1.1及以上版本,可用于Oracle、SqlServer、Sybase、DB2、MySQL、Access、SQLite、PostgreSQL、DM(达梦)、PowerDesigner文件、Informix、Firebird、MaxDB、Excel等和OleDb、ODBC连接的数据库并可自定义,详见...
PDMReader是浏览速查pdm(*.pdm)文件的免费工具软件,与SyBase公司的PowerDesigner产品相比的优势是:它可以以最快的速度找到您要查到的数据字典信息,大大提高日常工作效率。PDMReader也具备ADO连接数据库的基本建议...