powerdesigner导出mysql数据库表结构到Excel
前提
要做数据源的整理,需要将Mysql数据库表的结构导出到Excel表里面做文档记录;
第一个Sheet是所有表格的列表,其他的Sheet是每一个表格的详细字段以及注释说明.
打开PowerDesigner的数据库结构导出Excel脚本页面
选择好连接的数据库以后,ctrl+shift+x 弹出执行脚本界面,输入如下代码就会生成 Excel
Option Explicit Dim rowsNumDim splitTabNamerowsNum = 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, BOOK, SHEET Set EXCEL = CreateObject("Excel.Application") EXCEL.Visible = True Set BOOK = EXCEL.Workbooks.Add(-4167) '新建工作簿 BOOK.Sheets(1).Name = "数据库表结构" Set SHEET = EXCEL.workbooks(1).sheets("数据库表结构") ShowProperties Model, SHEET EXCEL.visible = true '设置列宽和自动换行 SHEET.Columns(1).ColumnWidth = 10 SHEET.Columns(2).ColumnWidth = 30 SHEET.Columns(3).ColumnWidth = 20 SHEET.Columns(1).WrapText =true SHEET.Columns(2).WrapText =true SHEET.Columns(3).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 '-----------------------------------------------------------------------------
' 数据表查询
'-----------------------------------------------------------------------------
Sub ShowTable(tab, sheet) If IsObject(tab) Then Dim rangFlag sheet.cells(1, 1) = "序号" sheet.cells(1, 2) = "表名" sheet.cells(1, 3) = "表含义" '设置边框 sheet.Range(sheet.cells(1, 1),sheet.cells(1, 3)).Borders.LineStyle = "1" '设置背景颜色 sheet.Range(sheet.cells(1, 1),sheet.cells(1, 3)).Interior.ColorIndex = "19" rowsNum = rowsNum + 1 sheet.cells(rowsNum+1, 1) = rowsNum sheet.cells(rowsNum+1, 2) = tab.code sheet.cells(rowsNum+1, 3) = tab.comment '设置边框 sheet.Range(sheet.cells(rowsNum+1,1),sheet.cells(rowsNum+1,3)).Borders.LineStyle = "2" '增加Sheet BOOK.Sheets.Add , BOOK.Sheets(BOOK.Sheets.count)'截取右边开始的31个字符splitTabName = Right(tab.code, 31)BOOK.Sheets(rowsNum+1).Name = Right(tab.code, 31) Dim shtn Set shtn = EXCEL.workbooks(1).sheets(splitTabName) '设置列宽和换行 shtn.Columns(1).ColumnWidth = 20 shtn.Columns(2).ColumnWidth = 20 shtn.Columns(3).ColumnWidth = 20 shtn.Columns(4).ColumnWidth = 20 shtn.Columns(1).WrapText =true shtn.Columns(2).WrapText =true shtn.Columns(3).WrapText =true shtn.Columns(4).WrapText =true '设置列标题 shtn.cells(1, 1) = "字段中文名" shtn.cells(1, 2) = "字段名" shtn.cells(1, 3) = "字段类型"shtn.cells(1, 4) = "注释" '设置边框 shtn.Range(shtn.cells(1, 1),shtn.cells(1, 2)).Borders.LineStyle = "1" shtn.Range(shtn.cells(1, 3),shtn.cells(1, 4)).Borders.LineStyle = "1" '设置背景颜色 shtn.Range(shtn.cells(1, 1),shtn.cells(1, 2)).Interior.ColorIndex = "19" shtn.Range(shtn.cells(1, 3),shtn.cells(1, 4)).Interior.ColorIndex = "19" Dim col ' running column Dim colsNum Dim rNum colsNum = 0 rNum = 0 for each col in tab.columns rNum = rNum + 1 colsNum = colsNum + 1 shtn.cells(rNum+1, 1) = col.name shtn.cells(rNum+1, 2) = col.code shtn.cells(rNum+1, 3) = col.datatypeshtn.cells(rNum+1, 4) = col.comment next shtn.Range(shtn.cells(rNum-colsNum+2,1),shtn.cells(rNum+1,3)).Borders.LineStyle = "2" rNum = rNum + 1 Output "FullDescription: " + tab.Name End If
End Sub
核心代码段是:
sheet.cells(1, 1) = "序号" sheet.cells(1, 2) = "表名" sheet.cells(1, 3) = "表含义" '设置边框 sheet.Range(sheet.cells(1, 1),sheet.cells(1, 3)).Borders.LineStyle = "1" '设置背景颜色 sheet.Range(sheet.cells(1, 1),sheet.cells(1, 3)).Interior.ColorIndex = "19" rowsNum = rowsNum + 1 sheet.cells(rowsNum+1, 1) = rowsNum sheet.cells(rowsNum+1, 2) = tab.code sheet.cells(rowsNum+1, 3) = tab.comment
这是设置第一个Sheet的每一列都是什么内容;
'设置列宽和换行 shtn.Columns(1).ColumnWidth = 20 shtn.Columns(2).ColumnWidth = 20 shtn.Columns(3).ColumnWidth = 20 shtn.Columns(4).ColumnWidth = 20 shtn.Columns(1).WrapText =true shtn.Columns(2).WrapText =true shtn.Columns(3).WrapText =true shtn.Columns(4).WrapText =true '设置列标题 shtn.cells(1, 1) = "字段中文名" shtn.cells(1, 2) = "字段名" shtn.cells(1, 3) = "字段类型"shtn.cells(1, 4) = "注释" '设置边框 shtn.Range(shtn.cells(1, 1),shtn.cells(1, 2)).Borders.LineStyle = "1" shtn.Range(shtn.cells(1, 3),shtn.cells(1, 4)).Borders.LineStyle = "1" '设置背景颜色 shtn.Range(shtn.cells(1, 1),shtn.cells(1, 2)).Interior.ColorIndex = "19" shtn.Range(shtn.cells(1, 3),shtn.cells(1, 4)).Interior.ColorIndex = "19"
这是设置数据库导出的内容,我的这里只是设置了字段中文名,字段名,字段类型和注释,如果有其他的要求,可自行设置
'增加Sheet BOOK.Sheets.Add , BOOK.Sheets(BOOK.Sheets.count)'截取右边开始的31个字符splitTabName = Right(tab.code, 31)BOOK.Sheets(rowsNum+1).Name = Right(tab.code, 31)
这一段代码是由于Excel中每一个Sheet的名称长度限制为31个字符,在这里我做了一个截取,从每一个数据表名称的右边开始截取31个字符.
原文链接:https://blog.csdn.net/aizhenshi/article/details/80313419
powerdesigner导出mysql数据库表结构到Excel相关推荐
- powerdesigner导出mysql数据库表结构到Word
powerdesigner导出mysql数据库表结构到Word 需求场景 将SQL导入PowerDesigner中生成模型 创建导出的word模版 需求场景 将数据库表导结构出为word文档: 将SQ ...
- 使用Navicat 导出 MySQL 数据库表结构、表数据到Excel表格中
文章目录 1 摘要 2 数据导出 2.1 导出数据库表结构至Excel 2.2 导出数据库表结构为 SQL 2.3 导出数据库表数据至Excel 3 推荐参考资料 1 摘要 在编写项目设计文档的时候, ...
- mysql数据库结构导出word_Windows导出MySQL数据库表结构到Word文档-DBExportDoc V1.0 For MySQL...
必要条件: 1.Microsoft Office Word(我用WPS不行) 2.mysql-connector-odbc 3.会看文档 下载地址:关注微信公众号:八四七,回复5获取,压缩包中包含有具 ...
- Navicat工具导出Mysql数据表结构到Excel文件中
原文链接:https://blog.csdn.net/zt15732625878/article/details/77978266 ---------------------------------- ...
- 导出mysql数据库表结构文档
导出文档示例: 说明,文档是基poi工具来生成的(主要是依赖与数据库名正确的话可以直接运行) 一.需要的依赖 <dependency><groupId>org.apache.p ...
- Mysql数据库表结构导出工具介绍
软件开发过程中,数据库设计是其中非常重要的一个环节,一般在设计阶段都会采用PowerDesigner进行数据库表的设计并生成数据库表结构文档.但是有的时候数据库表结构文档缺失了怎么办,能不能从数据库直 ...
- 根据数据库表结构生成Excel表设计——工具介绍
根据数据库表结构生成Excel表设计 最近又接手了一些老系统,库表设计啥的都没有,十来个系统,每个系统都几十张表,一个个的补感觉太难了,合计了一下感觉还是搞个工具比较好. 在系统运维的过程中,很多时候 ...
- java 修改mysql数据库表结构_MYSQL数据库表结构优化方法详解
摘要:这篇MySQL栏目下的"MYSQL数据库表结构优化方法详解",介绍的技术点是"mysql数据库表结构.MySQL数据库.数据库表结构.MySQL.据库表结构.数据库 ...
- 根据数据库表结构生成Excel表设计——源码设计说明
根据数据库表结构生成Excel表设计 在系统运维的过程中,很多时候大家都不喜欢改文档,修改了数据库字段后很少同步再更新表设计文档的,这就导致系统运行一段时间后,系统表设计与实际生产跑业务的设计出入很大 ...
最新文章
- MySQL找出锁等待
- 《软件项目管理(第二版)》第 9 章——项目监督与控制 重点部分总结
- 一起Polyfill系列:让Date识别ISO 8601日期时间格式
- 从vCenter 6.7升级到7.0
- 记忆化搜索=搜索的形式+动态规划的思想(来自百度百科)
- 景驰无人车总部落户广州:明年最低量产500辆,回应百度官司
- linux mint php mysql_Installing LAMP (Linux, Apache, MySQL and PHP) On Linux Mint
- Android 面试总结~~~
- Design Patterns(二十四):Visite Pattern--VB代码
- python重装显示already installed_tensorflow安装出现Requirement already satisfied问题,这个是网络问题吗?...
- 金蝶KIS专业版13.0视频教程
- windows安装tomcat8
- 在网页上添加可爱的Live 2D模型
- 计算机技术和通信技术始于,计算机网络基础试题精选.doc
- 科普文——浅析拉卡拉支付安全通道建设
- 动态申请权限---通讯录 及获取通讯录列表
- C语言二位十进制计算器模数,十进制转二进制计算器
- 控制反转(IOC) 和依赖注入(DI) 的理解
- Excel2010数据透视表1
- 动动脑,大家轻松一下
热门文章
- wh计算公式_“笔记本”电池里的mAh和Wh有啥区别
- oracle中代表任意一个字符的,oracle 语法
- 华为eNSP最稳定的装法
- Softmax回归模型的构建和实现(Fashion-MNIST图像分类)
- pdf打印显示spoolsv.exe-应用程序错误的原因和解决方法
- [Web 前端] SuperAgent中文使用文档
- matplotlib动态图和视频保存
- 设计模式系列之「工厂方法模式」
- CentOS 7下安装集群HBase1.2.4
- BAT-使用BAT方法清理Delphi临时文件