pdm转excel（基于PowerDesigner软件）
2024-04-11 22:16:33
一、下载安装PowerDesigner
二、PowerDesigner中导入pdm文件
三、双击打开
四、打开运行窗口Run
五、Run代码
六、完啦，没有啦！还看个锤子
七、运行代码！
代码0（这个比较全）
'******************************************************************************Option ExplicitDim rowsNumrowsNum = 0'-----------------------------------------------------------------------------' Main function'-----------------------------------------------------------------------------' Get the current active modelDim ModelSet Model = ActiveModelIf (Model Is Nothing) Or (Not Model.IsKindOf(PdPDM.cls_Model)) ThenMsgBox "The current model is not an PDM model."Else' Get the tables collection'创建EXCEL APPdim beginrowDIM EXCEL, SHEET, SHEETLISTset EXCEL = CREATEOBJECT("Excel.Application")EXCEL.workbooks.add(-4167)'添加工作表EXCEL.workbooks(1).sheets(1).name ="表结构"set SHEET = EXCEL.workbooks(1).sheets("表结构")EXCEL.workbooks(1).sheets.addEXCEL.workbooks(1).sheets(1).name ="目录"set SHEETLIST = EXCEL.workbooks(1).sheets("目录")ShowTableList Model,SHEETLISTShowProperties Model, SHEET,SHEETLISTEXCEL.workbooks(1).Sheets(2).SelectEXCEL.visible = true'设置列宽和自动换行sheet.Columns(1).ColumnWidth = 20 sheet.Columns(2).ColumnWidth = 20 sheet.Columns(3).ColumnWidth = 20 sheet.Columns(4).ColumnWidth = 40 sheet.Columns(5).ColumnWidth = 10 sheet.Columns(6).ColumnWidth = 10 sheet.Columns(1).WrapText =truesheet.Columns(2).WrapText =truesheet.Columns(4).WrapText =true'不显示网格线EXCEL.ActiveWindow.DisplayGridlines = FalseEnd If'-----------------------------------------------------------------------------' Show properties of tables'-----------------------------------------------------------------------------Sub ShowProperties(mdl, sheet,SheetList)' Show tables of the current model/packagerowsNum=0beginrow = rowsNum+1Dim rowIndex rowIndex=3' For each tableoutput "begin"Dim tabFor Each tab In mdl.tablesShowTable tab,sheet,rowIndex,sheetListrowIndex = rowIndex +1Nextif mdl.tables.count > 0 thensheet.Range("A" & beginrow + 1 & ":A" & rowsNum).Rows.Groupend ifoutput "end"End Sub'-----------------------------------------------------------------------------' Show table properties'-----------------------------------------------------------------------------Sub ShowTable(tab, sheet,rowIndex,sheetList)If IsObject(tab) ThenDim rangFlagrowsNum = rowsNum + 1' Show propertiesOutput "================================"sheet.cells(rowsNum, 1) =tab.namesheet.cells(rowsNum, 1).HorizontalAlignment=3sheet.cells(rowsNum, 2) = tab.code'sheet.cells(rowsNum, 5).HorizontalAlignment=3'sheet.cells(rowsNum, 6) = ""'sheet.cells(rowsNum, 7) = "表说明"sheet.cells(rowsNum, 3) = tab.comment'sheet.cells(rowsNum, 8).HorizontalAlignment=3sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 7)).Merge'设置超链接，从目录点击表名去查看表结构'字段中文名 字段英文名 字段类型 注释 是否主键 是否非空 默认值sheetList.Hyperlinks.Add sheetList.cells(rowIndex,2), "","表结构"&"!B"&rowsNumrowsNum = rowsNum + 1sheet.cells(rowsNum, 1) = "字段中文名"sheet.cells(rowsNum, 2) = "字段英文名"sheet.cells(rowsNum, 3) = "字段类型"sheet.cells(rowsNum, 4) = "注释"sheet.cells(rowsNum, 5) = "是否主键"sheet.cells(rowsNum, 6) = "是否非空"sheet.cells(rowsNum, 7) = "默认值"'设置边框sheet.Range(sheet.cells(rowsNum-1, 1),sheet.cells(rowsNum, 7)).Borders.LineStyle = "1"'sheet.Range(sheet.cells(rowsNum-1, 4),sheet.cells(rowsNum, 9)).Borders.LineStyle = "1"'字体为10号sheet.Range(sheet.cells(rowsNum-1, 1),sheet.cells(rowsNum, 7)).Font.Size=10Dim col ' running columnDim colsNumcolsNum = 0for each col in tab.columnsrowsNum = rowsNum + 1colsNum = colsNum + 1sheet.cells(rowsNum, 1) = col.name'sheet.cells(rowsNum, 3) = ""'sheet.cells(rowsNum, 4) = col.namesheet.cells(rowsNum, 2) = col.codesheet.cells(rowsNum, 3) = col.datatypesheet.cells(rowsNum, 4) = col.commentIf col.Primary = true Thensheet.cells(rowsNum, 5) = "Y" Elsesheet.cells(rowsNum, 5) = " " End IfIf col.Mandatory = true Thensheet.cells(rowsNum, 6) = "Y" Elsesheet.cells(rowsNum, 6) = " " End Ifsheet.cells(rowsNum, 7) = col.defaultvaluenextsheet.Range(sheet.cells(rowsNum-colsNum+1,1),sheet.cells(rowsNum,7)).Borders.LineStyle = "3" 'sheet.Range(sheet.cells(rowsNum-colsNum+1,4),sheet.cells(rowsNum,9)).Borders.LineStyle = "3"sheet.Range(sheet.cells(rowsNum-colsNum+1,1),sheet.cells(rowsNum,7)).Font.Size = 10rowsNum = rowsNum + 2Output "FullDescription: " + tab.NameEnd IfEnd Sub'-----------------------------------------------------------------------------' Show List Of Table'-----------------------------------------------------------------------------Sub ShowTableList(mdl, SheetList)' Show tables of the current model/packageDim rowsNorowsNo=1' For each tableoutput "begin"SheetList.cells(rowsNo, 1) = "主题"SheetList.cells(rowsNo, 2) = "表中文名"SheetList.cells(rowsNo, 3) = "表英文名"SheetList.cells(rowsNo, 4) = "表说明"rowsNo = rowsNo + 1SheetList.cells(rowsNo, 1) = mdl.nameDim tabFor Each tab In mdl.tablesIf IsObject(tab) ThenrowsNo = rowsNo + 1SheetList.cells(rowsNo, 1) = ""SheetList.cells(rowsNo, 2) = tab.nameSheetList.cells(rowsNo, 3) = tab.codeSheetList.cells(rowsNo, 4) = tab.commentEnd IfNextSheetList.Columns(1).ColumnWidth = 20 SheetList.Columns(2).ColumnWidth = 20 SheetList.Columns(3).ColumnWidth = 30 SheetList.Columns(4).ColumnWidth = 60 output "end"End Sub代码1（普通版）：
'******************************************************************************'* 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 ExplicitDim rowsNumrowsNum = 0'-----------------------------------------------------------------------------' Main function'-----------------------------------------------------------------------------' Get the current active modelDim ModelSet Model = ActiveModelIf (Model Is Nothing) Or (Not Model.IsKindOf(PdPDM.cls_Model)) ThenMsgBox "The current model is not an PDM model."Else' Get the tables collection'创建EXCEL APPdim beginrowDIM EXCEL, SHEETset EXCEL = CREATEOBJECT("Excel.Application")EXCEL.workbooks.add(-4167)'添加工作表EXCEL.workbooks(1).sheets(1).name ="test"set sheet = EXCEL.workbooks(1).sheets("test")ShowProperties Model, SHEETEXCEL.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 =truesheet.Columns(2).WrapText =truesheet.Columns(4).WrapText =trueEnd If'-----------------------------------------------------------------------------' Show properties of tables'-----------------------------------------------------------------------------Sub ShowProperties(mdl, sheet)' Show tables of the current model/packagerowsNum=0beginrow = rowsNum+1' For each tableoutput "begin"Dim tabFor Each tab In mdl.tablesShowTable tab,sheetNextif mdl.tables.count > 0 thensheet.Range("A" & beginrow + 1 & ":A" & rowsNum).Rows.Groupend ifoutput "end"End Sub'-----------------------------------------------------------------------------' Show table properties'-----------------------------------------------------------------------------Sub ShowTable(tab, sheet)If IsObject(tab) ThenDim rangFlagrowsNum = rowsNum + 1' Show propertiesOutput "================================"sheet.cells(rowsNum, 1) = "实体名"sheet.cells(rowsNum, 2) =tab.namesheet.cells(rowsNum, 3) = ""sheet.cells(rowsNum, 4) = "表名"sheet.cells(rowsNum, 5) = tab.codesheet.Range(sheet.cells(rowsNum, 5),sheet.cells(rowsNum, 6)).MergerowsNum = rowsNum + 1sheet.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 columnDim colsNumcolsNum = 0for each col in tab.columnsrowsNum = rowsNum + 1colsNum = colsNum + 1sheet.cells(rowsNum, 1) = col.namesheet.cells(rowsNum, 2) = col.commentsheet.cells(rowsNum, 3) = ""sheet.cells(rowsNum, 4) = col.namesheet.cells(rowsNum, 5) = col.codesheet.cells(rowsNum, 6) = col.datatypenextsheet.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 + 1Output "FullDescription: " + tab.NameEnd IfEnd Sub展示：
代码2（彩色版）：带目录结构哦
Option ExplicitDim mdl
Set mdl = ActiveModel
If (mdl Is Nothing) ThenMsgBox "There is no Active Model"
End If
Dim EXCEL, SheetList
Set EXCEL = CreateObject("Excel.Application")
EXCEL.Visible = True
EXCEL.Workbooks.AddDim tab
Dim sheet
For Each tab In mdl.tablesEXCEL.workbooks(1).sheets.addEXCEL.workbooks(1).sheets(1).name = tab.codeset sheet = EXCEL.workbooks(1).sheets(tab.code)EXCEL.visible = truesheet.Columns(1).ColumnWidth = 25sheet.Columns(2).ColumnWidth = 20sheet.Columns(3).ColumnWidth = 15sheet.Columns(4).ColumnWidth = 7sheet.Columns(5).ColumnWidth = 7sheet.Columns(6).ColumnWidth = 10sheet.Columns(7).ColumnWidth = 60sheet.Columns(1).WrapText =truesheet.Columns(2).WrapText =truesheet.Columns(4).WrapText =trueEXCEL.ActiveWindow.DisplayGridlines = FalseNextEXCEL.workbooks(1).sheets.addEXCEL.workbooks(1).sheets(1).name ="目录"set SheetList = EXCEL.workbooks(1).sheets("目录")ShowTableList mdl, SheetListCreateTab mdl, SheetListSub CreateTab(mdl, SheetList)Dim rowsNum, tablecode, tablnamerowsNum = 0For Each tab In mdl.tablesrowsNum = 1set SHEET = EXCEL.workbooks(1).sheets(tab.code)sheet.cells(rowsNum, 1) = "表中文名"tablecode = tab.codetablname = tab.nametablname = replace(tablname, tablecode, "")sheet.cells(rowsNum, 2) = tablnamesheet.cells(rowsNum, 3) = "表英文名"sheet.cells(rowsNum, 4) = tab.codesheet.Range(sheet.cells(rowsNum, 4),sheet.cells(rowsNum, 6)).Mergesheet.cells(rowsNum, 7) = "返回目录"sheet.Hyperlinks.Add sheet.cells(rowsNum,7), "","目录"&"!B"&rowsNumrowsNum = rowsNum + 1sheet.cells(rowsNum, 1) = "表中文说明"sheet.cells(rowsNum, 2) = tab.namesheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 7)).MergerowsNum = rowsNum + 1sheet.cells(rowsNum, 1) = "字段名"sheet.cells(rowsNum, 2) = "字段中文名"sheet.cells(rowsNum, 3) = "数据类型"sheet.cells(rowsNum, 4) = "空值"sheet.cells(rowsNum, 5) = "默认值"sheet.cells(rowsNum, 6) = "下拉菜单"sheet.cells(rowsNum, 7) = "字段说明"addTabsCol sheet, tab, rowsNumaddTabsidx sheet, tab, rowsNumaddTabPK sheet, tab, rowsNumsheet.Range(sheet.cells(1, 1),sheet.cells(rowsNum, 7)).Borders.LineStyle = "1"sheet.Range(sheet.cells(1, 1),sheet.cells(rowsNum, 7)).Font.Size=10sheet.Range(sheet.cells(1, 1),sheet.cells(rowsNum, 7)).Font.Name="微软雅黑"sheet.Range(sheet.cells(1, 1),sheet.cells(3, 7)).Interior.colorindex = "3"sheet.Range(sheet.cells(1, 1),sheet.cells(rowsNum, 7)).RowHeight = "21"sheet.Range(sheet.cells(1, 1),sheet.cells(3, 7)).Font.Bold = Truesheet.Range(sheet.cells(3, 7),sheet.cells(rowsNum, 7)) = " "NextEnd SubSub addTabsCol(sheet, tab, rowsNum)Dim col Dim colsNumcolsNum = 0for each col in tab.columnsrowsNum = rowsNum + 1colsNum = colsNum + 1sheet.cells(rowsNum, 1) = col.codesheet.cells(rowsNum, 2) = col.namesheet.cells(rowsNum, 3) = col.datatypeIf col.Mandatory = true Thensheet.cells(rowsNum, 4) = "非空" Elsesheet.cells(rowsNum, 4) = " " End Ifsheet.cells(rowsNum, 5) = col.DefaultValuesheet.cells(rowsNum, 7) = col.commentNext
End Sub Sub addTabsidx(sheet, tab, rowsNum)rowsNum = rowsNum + 1sheet.cells(rowsNum, 1) = "索引名"sheet.cells(rowsNum, 2) = "索引类型"sheet.cells(rowsNum, 3) = "索引列表"sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 7)).Mergesheet.Range(sheet.cells(rowsNum, 1),sheet.cells(rowsNum, 7)).Font.Bold = TrueDim index Dim idxNmDim indexstrlst idxNm = 0for each index in tab.indexesrowsNum = rowsNum + 1idxNm = idxNm + 1sheet.cells(rowsNum, 1) = index.codeif index.unique = "1" Thensheet.cells(rowsNum, 2) = "UNIQUE"Elsesheet.cells(rowsNum, 2) = "NORM"End IfDim keystrDim indexcolkeystr = ""for each indexcol in index.IndexColumnskeystr = keystr +","+ indexcol.codenextkeystr = mid(keystr, 2, len(keystr))sheet.cells(rowsNum, 3) = keystrsheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 7)).Mergenext
End Sub Sub addTabPK(sheet, tab, rowsNum)Dim keyDim keyNmDim keystrDim flagDim keycodeDim keycolrowsNum = rowsNum + 1sheet.cells(rowsNum, 1) = "主键"sheet.cells(rowsNum, 2) = "索引类型"sheet.cells(rowsNum, 3) = "主键列表"sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 7)).Mergesheet.Range(sheet.cells(rowsNum, 1),sheet.cells(rowsNum, 7)).Font.Bold = True for each key in tab.keyskeycode = key.codeif key.Primary = true Thenflag = 1keystr = ""for each keycol in key.columnskeystr = keystr +","+ keycol.codenextkeystr = mid(keystr, 2, len(keystr))End Ifnextif flag = 1 ThenrowsNum = rowsNum + 1keyNm = 1'sheet.cells(rowsNum, 1) = keycodesheet.cells(rowsNum, 1) = "PK_"+tab.codesheet.cells(rowsNum, 2) = "UNIQUE"sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 7)).Mergesheet.cells(rowsNum, 3) = keystrEnd If
End Sub Sub ShowTableList(mdl, SheetList)Dim rowsNumrowsNum=1SheetList.cells(rowsNum, 1) = "主题"SheetList.cells(rowsNum, 2) = "表中文名"SheetList.cells(rowsNum, 3) = "表英文名"SheetList.cells(rowsNum, 4) = "表说明"SheetList.Columns(1).ColumnWidth = 20 SheetList.Columns(2).ColumnWidth = 30 SheetList.Columns(3).ColumnWidth = 35 SheetList.Columns(4).ColumnWidth = 70 rowsNum = rowsNum + 1SheetList.cells(rowsNum, 1) = mdl.nameDim tabFor Each tab In mdl.tablesIf IsObject(tab) ThenrowsNum = rowsNum + 1SheetList.cells(rowsNum, 1) = ""SheetList.cells(rowsNum, 2) = replace(tab.name, tab.code, "")SheetList.cells(rowsNum, 3) = tab.codeSheetList.cells(rowsNum, 4) = tab.commentsheetList.Hyperlinks.Add sheetList.cells(rowsNum,3), "",tab.code&"!B1"sheetList.Hyperlinks.Add sheetList.cells(rowsNum,2), "",tab.code&"!B1"End IfNextSheetList.Range(SheetList.cells(1, 1),SheetList.cells(rowsNum, 4)).Borders.LineStyle = "1"SheetList.Range(SheetList.cells(1, 1),SheetList.cells(rowsNum, 4)).Font.Size=10SheetList.Range(SheetList.cells(1, 1),SheetList.cells(rowsNum, 4)).Font.Name="微软雅黑"SheetList.Range(SheetList.cells(1, 1),SheetList.cells(1, 4)).Interior.colorindex = "3"SheetList.Range(SheetList.cells(1, 1),SheetList.cells(rowsNum, 4)).RowHeight = "20"SheetList.Range(SheetList.cells(1, 1),SheetList.cells(1, 4)).Font.Bold = TrueSheetList.Range(SheetList.cells(2, 1),SheetList.cells(rowsNum, 3)).Font.Bold = TrueSheetList.Range(SheetList.cells(1, 5),SheetList.cells(rowsNum, 5)) = " "EXCEL.ActiveWindow.DisplayGridlines = FalseEnd Sub展示：
注：参考链接 https://www.php.cn/mysql-tutorials-380113.html
pdm转excel（基于PowerDesigner软件）相关推荐
- matlab p q的确定,基于MATLAB软件的P-Q分解法潮流计算 (1)
基于MATLAB软件的P-Q分解法潮流计算 摘要 电力系统潮流计算是研究电力系统稳态运行情况的一种重要的分析计算,它根据给定的运行条件及系统接线情况确定整个电力系统各部分的运行状态:各母线的电压,各元 ...
- pq分解法matlab程序,基于MATLAB软件的PQ分解法潮流计算
基于MATLAB软件的PQ分解法潮流计算 基于MATLAB软件的P-Q分解法潮流计算 摘要 电力系统潮流计算是研究电力系统稳态运行情况的一种重要的分析计算,它根据给定的运行条件及系统接线情况确定整个电 ...
- 【R】【课程笔记】02+03 基于R软件的计算
本文是课程<数据科学与金融计算>第2-3章的学习笔记,主要介绍R语言在统计和机器学习中的应用,用于知识点总结和代码练习,Q&A为问题及解决方案,参考书籍为<R软件及其在金融定 ...
- 第161天学习打卡（谷粒商城 3 安装powerDesigner软件 下载nodejs）
安装powerDesigner软件 下载地址: htp://forspeed.onlinedown.net/down/powerdesigner1029.zip 下一步: 启动软件,没有提示激活或输入 ...
- PDM和建表sql，PDM和EXCEL互转操作。
一.PDM与建表sql互转 1.PDM转建表sql 选中表格,可以多选操作,然后按快捷键ctrl+g,复制Preview内容即可,最后会在桌面生成一个文件,用记事本打开即可. 2.建表sql转PDM ...
- 如何使用PowerDesigner软件进行数据库设计（多对多关系）
如何使用PowerDesigner软件进行数据库设计(多对多关系) 1 多对多关系示例 2 创建CDM 3 建立实体之间的联系 4 检查CDM 5 将CDM转换成PDM 6 由PDM生成sql文件 1 ...
- 金相图像处理 matlab,基于MATLAB软件的图像处理技术 毕业论文.doc
基于MATLAB软件: 在图像工程中,图像处理.图像分析.图像理解是其研究的三个重要层次.图像处理是图像目前发展的主体技术,它强调的是图形之间的转换.图像的灰度处理是图像处理的最基础理论之一,本文基于 ...
- 自控matlab设计,自动控制原理课程设计--基于MATLAB软件的自动控制系统仿真
自动控制原理课程设计--基于MATLAB软件的自动控制系统仿真 < 自动控制原理 >课程设计说 明 书日期: 2012.5.21-2012.6.1 自动控制原理 课程设计评阅书题目 基于 ...
- 基于ADS的c语言程序设计实验,实验一：基于ADS软件传输线理论仿真设计与分析.docx...
龙 lerrnl'' 龙 lerrnl'' $ Num=l 1Z=50 Ohm h|」M -- TL1 Z=50 0.0hm E=50 F=5GHz ggj I SrPARAM ETERS . | Z ...
最新文章
- Kafka manager安装 (支持0.10以后版本consumer)
- C++回调函数用法(zz)
- python的程序结构有哪几种_python异常处理结构有哪几种形式
- Python 清理项目的目录
- 利用Cramer法则求具有唯一解的方程组的解
- 银河麒麟arm64位操作系统卸载jdk及安装jdk
- vue、 echarts、iview 实现大数据可视化大屏模板
- air dots 配对_小米AirDots蓝牙耳机如何连接iPhone?小米Air连接苹果手机的方法
- 从零开始成为网络工程师，H3CNE从零学起
- 【算法学习】 位运算中的奇巧淫记
- JAVA:实现CircularBuffer环形缓冲器算法(附完整源码)
- 爱马仕Hermès手表怎么样？
- simple_bypass
- SqlServer复习
- Sothink SWF Decompiler v4.2
- 计算机专业普通话考试成绩查询时间,2021普通话考完多久能查分 几天出成绩
- js实现连续播放音频文件
- ffmpeg命令分析-re
- 关于Thinkpad E495 指点杆（小红点）和触摸板同时失灵的解决方法
- BigInteger类用于表示比long更大的整数类型