PowerDesigner表结构设计生成excel报告

已于 2023-05-15 18:18:15 修改
阅读量352 收藏
点赞数
文章标签： excel
于 2023-05-15 12:59:52 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/CF0819/article/details/130682181
版权

1:点击工具（tool）->Excute Commands->Edit/Run  Script

将下方脚本复制到编辑窗口，点击：run开始生成

'******************************************************************************
'* File:     Exported_Excel_page.vbs
'* Purpose:  分目录递归，查找当前PDM下所有表，并导出Excel
'******************************************************************************

Option Explicit
ValidationMode = True
InteractiveMode = im_Batch

'-----------------------------------------------------------------------------
' 主函数
'-----------------------------------------------------------------------------
' 获取当前活动模型
Dim mdl ' 当前的模型
Set mdl = ActiveModel
Dim EXCEL,catalog,sheet,catalogNum,rowsNum,linkNum,mlLinkRow,sheetIndex,sheetPk,idxRowNum,pkRowNum
rowsNum = 1
catalogNum = 1
linkNum = 1
mlLinkRow = 1
idxRowNum = 1 
pkRowNum = 1 
If (mdl Is Nothing) Then
    MsgBox "There is no Active Model"
Else
    SetCatalog
    addSheetPkIdx
    AddSheet  "表字段详情"
    ListObjects(mdl)
End If

'----------------------------------------------------------------------------------------------
' 子过程，用于扫描当前包并从当前包中打印对象的信息，然后对当前包的所有子包再次调用相同的子过程
'----------------------------------------------------------------------------------------------
Private Sub ListObjects(fldr)
    output "Scanning " & fldr.code
    Dim obj ' 运行对象
    For Each obj In fldr.children
        ' 调用子过程来打印对象上的信息
        DescribeObject obj
    Next
    ' 进入子包
    Dim f ' 运行文件夹
    For Each f In fldr.Packages
        '调用子程序扫描子程序包
        ListObjects f
    Next
End Sub

'-----------------------------------------------------------------------------
' 子过程，用于在输出中打印当前对象的信息
'-----------------------------------------------------------------------------
Private Sub DescribeObject(CurrentObject)
    if not CurrentObject.Iskindof(cls_NamedObject) then exit sub
    if CurrentObject.Iskindof(cls_Table) then 
        ExportTable CurrentObject, sheet
        ExportCatalog CurrentObject
        addTabsPkIdx CurrentObject
    else
        output "Found "+CurrentObject.ClassName+" """+CurrentObject.Name+""", Created by "+CurrentObject.Creator+" On "+Cstr(CurrentObject.CreationDate)   
    End if
End Sub

'----------------------------------------------------------------------------------------------
' 设置Excel的sheet页
'----------------------------------------------------------------------------------------------
Sub SetExcel()
    Set EXCEL= CreateObject("Excel.Application")

    ' 使Excel通过应用程序对象可见。
    EXCEL.Visible = True
    EXCEL.workbooks.add(-4167)'添加工作表
    EXCEL.workbooks(1).sheets(1).name ="pdm"
    set sheet = EXCEL.workbooks(1).sheets("pdm")

    ' 将一些文本放在工作表的第一行
    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 = "字段备注"
    sheet.cells(rowsNum, 9).Value = "主键"
    sheet.cells(rowsNum, 10).Value = "非空"
    sheet.cells(rowsNum, 11).Value = "默认值"
End Sub

'----------------------------------------------------------------------------------------------
' 导出目录结构
'----------------------------------------------------------------------------------------------
Sub ExportCatalog(tab)
    catalogNum = catalogNum + 1
    catalog.cells(catalogNum, 1).Value = linkNum-1
    catalog.cells(catalogNum, 2).Value = tab.code
    catalog.cells(catalogNum, 3).Value = tab.comment
    catalog.Hyperlinks.Add catalog.cells(catalogNum,2), "","表字段详情"&"!A"&mlLinkRow
End Sub 

'----------------------------------------------------------------------------------------------
' 导出sheet页
'----------------------------------------------------------------------------------------------
Sub ExportTable(tab, sheet)
    Dim col ' 运行列
    Dim colsNum
    colsNum = 0
    linkNum=linkNum+1
    mlLinkRow=rowsNum+1
    for each col in tab.columns
        colsNum = colsNum + 1
        rowsNum = rowsNum + 1
        sheet.Cells(rowsNum, 1).Value = tab.code
        'sheet.Cells(rowsNum, 2).Value = tab.name
        sheet.Cells(rowsNum, 2).Value = tab.comment
        'sheet.Cells(rowsNum, 4).Value = colsNum
        sheet.Cells(rowsNum, 3).Value = col.code
        'sheet.Cells(rowsNum, 4).Value = col.name
        sheet.Cells(rowsNum, 4).Value = col.datatype
        sheet.Cells(rowsNum, 5).Value = col.comment
        
        If col.Primary = true Then
            sheet.cells(rowsNum, 6) = "Y" 
        Else
            sheet.cells(rowsNum, 6) = "" 
        End If
        If col.Mandatory = true Then
            sheet.cells(rowsNum, 7) = "Y" 
        Else
            sheet.cells(rowsNum, 7) = "" 
        End If
        
        sheet.cells(rowsNum, 8).Value = col.defaultvalue
        '设置居中显示
        sheet.cells(rowsNum,6).HorizontalAlignment = 3
        sheet.cells(rowsNum,7).HorizontalAlignment = 3
        '设置超链接
        sheet.Hyperlinks.Add sheet.cells(rowsNum,1), "","目录"&"!B"&linkNum
    next
    output "Exported table: "+ +tab.Code+"("+tab.Name+")"
End Sub 

'----------------------------------------------------------------------------------------------
' 设置Excel目录页
'----------------------------------------------------------------------------------------------
Sub SetCatalog()
    Set EXCEL= CreateObject("Excel.Application")
    
    ' 使Excel通过应用程序对象可见。
    EXCEL.Visible = True
    EXCEL.workbooks.add(-4167)'添加工作表
    EXCEL.workbooks(1).sheets(1).name ="表结构"
    EXCEL.workbooks(1).sheets.add
    EXCEL.workbooks(1).sheets(1).name ="目录"
    set catalog = EXCEL.workbooks(1).sheets("目录")

    catalog.cells(catalogNum, 1) = "序号"
    catalog.cells(catalogNum, 2) = "表名"
    catalog.cells(catalogNum, 3) = "表注释"
    
    ' 设置列宽和自动换行
    catalog.Columns(1).ColumnWidth = 20
    catalog.Columns(2).ColumnWidth = 25
    catalog.Columns(3).ColumnWidth = 55
    
    '设置首行居中显示
    
    catalog.Range(catalog.cells(1,1),catalog.cells(1,3)).HorizontalAlignment = 3
    '设置首行字体加粗
    catalog.Range(catalog.cells(1,1),catalog.cells(1,3)).Font.Bold = True
End Sub 

'----------------------------------------------------------------------------------------------
' 新增sheet页
'----------------------------------------------------------------------------------------------
Sub AddSheet(sheetName)
    EXCEL.workbooks(1).Sheets(2).Select
    EXCEL.workbooks(1).sheets.add
    EXCEL.workbooks(1).sheets(2).name = sheetName
    set sheet = EXCEL.workbooks(1).sheets(sheetName)
    rowsNum = 1
    '将一些文本放在工作表的第一行
    sheet.Cells(rowsNum, 1).Value = "表名"
    'sheet.Cells(rowsNum, 2).Value = "表中文名"
    sheet.Cells(rowsNum, 2).Value = "表备注"
    'sheet.Cells(rowsNum, 4).Value = "字段ID"
    sheet.Cells(rowsNum, 3).Value = "字段名"
    'sheet.Cells(rowsNum, 4).Value = "字段中文名"
    sheet.Cells(rowsNum, 4).Value = "字段类型"
    sheet.Cells(rowsNum, 5).Value = "字段备注"
    sheet.cells(rowsNum, 6).Value = "主键"
    sheet.cells(rowsNum, 7).Value = "非空"
    sheet.cells(rowsNum, 8).Value = "默认值"
    
    '设置列宽
    sheet.Columns(1).ColumnWidth = 20
    sheet.Columns(2).ColumnWidth = 20
    sheet.Columns(3).ColumnWidth = 20
    sheet.Columns(4).ColumnWidth = 20
    sheet.Columns(5).ColumnWidth = 20
    sheet.Columns(6).ColumnWidth = 5
    sheet.Columns(7).ColumnWidth = 5
    sheet.Columns(8).ColumnWidth = 10

    '设置首行居中显示
    sheet.Range(sheet.cells(1,1),sheet.cells(1,8)).HorizontalAlignment = 3
    '设置首行字体加粗
    sheet.Range(sheet.cells(1,1),sheet.cells(1,8)).Font.Bold = True
    
End Sub 

'----------------------------------------------------------------------------------------------
' 设置索引sheet
'----------------------------------------------------------------------------------------------
Sub addSheetPkIdx()
    EXCEL.workbooks(1).sheets.add
    EXCEL.workbooks(1).Sheets(3).Select
    EXCEL.workbooks(1).sheets(3).name = "主键索引列表"
    set sheetIndex = EXCEL.workbooks(1).sheets("主键索引列表")
    idxRowNum = 1
    
    sheetIndex.cells(idxRowNum, 1) = "表名"
    sheetIndex.cells(idxRowNum, 2) = "表中文名称"
    sheetIndex.cells(idxRowNum, 3) = "主键/索引"
    sheetIndex.cells(idxRowNum, 4) = "主键/索引名"
    sheetIndex.cells(idxRowNum, 5) = "主键/索引类型"
    sheetIndex.cells(idxRowNum, 6) = "主键/索引列表"
    sheetIndex.Range(sheetIndex.cells(rowsNum, 6),sheetIndex.cells(rowsNum, 8)).Merge
    sheetIndex.Range(sheetIndex.cells(rowsNum, 1),sheetIndex.cells(rowsNum, 8)).Font.Bold = True
    
    ' 设置列宽和自动换行
    sheetIndex.Columns(1).ColumnWidth = 30
    sheetIndex.Columns(2).ColumnWidth = 40
    sheetIndex.Columns(3).ColumnWidth = 30
    sheetIndex.Columns(4).ColumnWidth = 55
    sheetIndex.Columns(5).ColumnWidth = 30
    sheetIndex.Columns(6).ColumnWidth = 60
    
    '设置首行居中显示
    
    sheetIndex.Range(sheetIndex.cells(1,1),sheetIndex.cells(1,8)).HorizontalAlignment = 3
    '设置首行字体加粗
    sheetIndex.Range(sheetIndex.cells(1,1),sheetIndex.cells(1,8)).Font.Bold = True
End Sub 


Sub addTabsPkIdx( tab)
    
    Dim key
    Dim keyNm
    Dim keystr
    Dim flag
    Dim keycode
    Dim keycol
    Dim index 
    Dim indexstrlst  
    for each key in tab.keys
        keycode = key.code
        if key.Primary = true Then
            flag = 1
            keystr = ""
            for each keycol in key.columns
                keystr = keystr +","+ keycol.code
            next
            keystr = mid(keystr, 2, len(keystr))
        End If
    next
    if flag = 1 Then
        idxRowNum = idxRowNum + 1
        keyNm = 1
        sheetIndex.cells(idxRowNum, 1) = tab.code
        sheetIndex.cells(idxRowNum, 2) = tab.comment
        sheetIndex.cells(idxRowNum, 3) = "主键"
        sheetIndex.cells(idxRowNum, 4) = "PK_"+tab.code
        sheetIndex.cells(idxRowNum, 5) = "UNIQUE"
        sheetIndex.Range(sheetIndex.cells(idxRowNum, 6),sheetIndex.cells(idxRowNum, 8)).Merge
        sheetIndex.cells(idxRowNum, 6) = keystr
    End If
    
    for each index in tab.indexes
        idxRowNum = idxRowNum + 1
        sheetIndex.cells(idxRowNum, 1) = tab.code
        sheetIndex.cells(idxRowNum, 2) = tab.comment
        sheetIndex.cells(idxRowNum, 3) = "索引"
        sheetIndex.cells(idxRowNum, 4) = index.code
        if index.unique = "1" Then
            sheetIndex.cells(idxRowNum, 5) = "UNIQUE"
        Else
            sheetIndex.cells(idxRowNum, 5) = "NORM"
        End If

        Dim indexcol
        keystr = ""
        for each indexcol in index.IndexColumns
            keystr = keystr +","+ indexcol.code
        next
        keystr = mid(keystr, 2, len(keystr))
        sheetIndex.cells(idxRowNum, 6) = keystr
        sheetIndex.Range(sheetIndex.cells(idxRowNum, 6),sheetIndex.cells(idxRowNum, 8)).Merge
      next
End Sub 
 

踏浪cf0819
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 4
    评论
PowerDesigner Report 报表模板（精简后）
03-09
PowerDesigner Report模板，经过本人亲自优化和整理，保留关键信息，生成的模板简洁清晰
PowerDesigner 导出表结构 到Excel
12-15
1，打开PowerDesigner，找到创建的物理模型(Physical Data Model)， 2，使用快捷键，或者 在PowerDesigner菜单栏中，依次点击“Tools ->Excute Commands->Edit/Run Script....4，将导出的结果（Excel）保存到自己的位置
PowerDesigner 之 report html
winie
04-09 171
谁说的PowerDesigner 导出的Html不好看？在相对于ERwin建模，我觉得PD更好用，在表设置上，er图的调整上，字段的选择上等都挺好用的，erwin我觉得优势在report上，其他并未发现特别的优势，这是用erwin一年来的感慨，erwin在很多上造成了重复劳动。一个顺手的工具是一个工作的一个好帮助！...
【PowerDesigner】PDM生成REPORT
最新发布
朝花夕拾
06-11 4177
本文详细介绍了如何在PowerDesigner中利用物理数据模型（PDM）生成报表（REPORT）的方法和步骤。通过讲解PDM到报表的转换过程，读者可以了解如何利用PowerDesigner强大的功能快速生成数据库设计相关的报表，提高工作效率。
使用PowerDesigner生成报告的方法
Pineapple
02-22 5282
使用PowerDesigner生成报告的方法: 1.在创建的pdm根结点上点击右键,选择new---report,在出现环境下选择需要生成报告的内容; 如:选table---table column list,在右边框中会出现所选内容; 2.在右边项上击右键,选layout,在弹出界面上选择需要在文档中显示的项目;如:名称,注释,数据类型,长度; 3.通过右上按钮generate RTF/gene
PowerDesigner 15.1生成数据库报表文件
java开发指南博客 【转载】
06-15 159
环境：PowerDesigner 15.1 问题：生成数据库报表文件 解决： 当设计出数据库以后，有一份正规的DOC文件是很必要的，下面讲解如何生成报表。 1 新建立报表文件右键单击模型，选择New------->Report，弹出如下界面。 2 输入报表名称，选择报表模板。 3 拖拉需要显示的部分到报表输出选项。 4 修改输出选项的...
【工具】powerdesigner生成excel文件（脚本）
纯码农的博客
08-15 3353
汝之观览，吾之幸也！本文主要讲的是PowerDesigner工具如何导出excel文件、全局赋值comment字段注释。
PowerDesigner导出表结构到Excel脚本
01-31
步骤： 1、用PowerDesigner打开要导出的PDM文件 2、Tools->Execute Commands -> Edit/Run Script... 3、点击Open图标（打开文件夹）找到该脚本文件 4、点击Run按钮
powerdesigner导入excel生成表结构
01-05
根据给定的文件信息，我们可以总结出以下关于如何利用PowerDesigner通过Excel文件生成数据库表结构的知识点： ### PowerDesigner 导入 Excel 生成表结构 #### 功能简介 PowerDesigner 是一款强大的数据建模工具，...
PowerDesigner生成数据表结构Excel.vbs
09-07
可以通过PowerDesigner生成数据表结构，打开pd脚本编辑器 PD菜单栏中,依次点击“Tools ->Excute Commands->Edit/Run Script..”，选择执行本文的vbs文件即可生成excel
PowerDesigner通过excel生成sql脚本.rar
11-14
用户需要预先按照特定格式组织Excel数据，例如，每行代表一个表，每列包含表名、字段名、数据类型、键信息等，然后运行这个VB程序，程序会自动读取Excel，通过PowerDesigner生成对应的SQL脚本，从而创建数据库表。...
PowerDesigner（PDM）文件自动转换为Excel文件格式
12-06
PDM文件自动抓取中英文对照关系，以及字段类型对应关系。方便从PDM文件中抓取内容，用于写文档。
powerdesigner导出excel脚本
03-16
powerdesigner导出excel脚本
powerdesigner report模板
03-21
用powerdesigner 的 report功能可以生成HTML和RTF的数据库文档，找到一个不错的报表模板
powerdesigner[12.5]数据库报表/report模板
08-08
这个是我经常用的 powerdesigner[12.5]数据库报表/report模板 直接引用该模板就可以生成清晰明了的数据库说明 其中包含字段的备注1
PowerDesigner Report 报表模板，导出模板，方便导出word文档，包含表字段及建表sql
07-02
PowerDesigner Report 报表模板，可以方便的将PowerDesigner物理模型导出为rtf（word可直接打开）、html格式，已经精简过字段，仅保留数据表字段及建表语句 包含字段名称、字段code、数据类型、精度 四个字段
PowerDesigner生成报表基础报表
xiandaomao5643的博客
06-24 180
PowerDesigner生成基础报表
PowerDesigner 工具生成数据库Report指导
weixin_30295091的博客
05-11 144
1. 配置数据库连接数据源步骤略 2. 打开PowerDesigner 15.1 3. 新建Physical Model模型 4. 依次点击工具栏Report ->Report Wizard,弹出如下窗口,选择前边配置的数据源，表示，你要做的是哪一数据库的Report 命名Report 名称和Language后点击下一步 ...
powerdesigner生成报表
weixin_33796205的博客
06-29 831
当设计出数据库以后，有一份正规的DOC文件是很必要的，下面讲解如何生成报表。1新建立报表文件右键单击模型，选择New------->Report，弹出如下界面。2输入报表名称，选择报表模板。3拖拉需要显示的部分到报表输出选项。4修改输出选项的内容在内容上单击右键，选择Format，可以修改相应项目的标题、字体、格式等。5修改列的宽度和需要显示的内容（如...
powerdesigner数据库表设计生成sql
09-04
在PowerDesigner中，可以通过批量生成SQL脚本来将数据库表设计转换为SQL语句。首先，在数据表字段中使用英文，并在备注(comment)中完成字段的说明。这样，在生成SQL脚本时，字段的名称(name)将会自动转换为数据库中...
评论 4
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值