PowerDesigner导出表到Excel，包含字段, 行冗余表名

最新推荐文章于 2024-04-28 10:12:17 发布

目标小孩

最新推荐文章于 2024-04-28 10:12:17 发布

阅读量243

点赞数

分类专栏： # PowerDesigner 文章标签：数据库 powerdesigner

本文链接：https://blog.csdn.net/qq_19984533/article/details/116023514

版权

PowerDesigner 专栏收录该内容

5 篇文章 0 订阅

订阅专栏

这篇博客介绍了如何使用PowerDesigner的快捷键组合Ctrl+Shift+X配合内嵌的VBScript代码，一键将当前PDM中的所有表及其字段详细信息导出到Excel。导出的内容包括表名、字段名、数据类型、长度、是否为主键和必填等关键信息，生成的Excel表格自动调整了列宽，方便查看和管理。

摘要由CSDN通过智能技术生成

PowerDesigner导出表到Excel，包含字段, 行冗余表名

使用方式：

打开需要导出的pdm,然后按快捷键：ctrl + shift +x

拷贝以下代码，点击Run(F5), 开始递归目录，稍等片刻就生成Excel

导出的excel样式：


TableCode	TableName	TableComment	ColumnCode	ColumnName	ColumnComment	ColumnDatatype	ColumnLength	ColumnPrimary	ColumnMandatory
PARA_ADMDVS_A	PARA_ADMDVS_A全国行政区划表	全国行政区划表	ADMDVS_CODG	行政区划代码	行政区划代码	VARCHAR(10)	10	TRUE	TRUE
PARA_ADMDVS_A	PARA_ADMDVS_A全国行政区划表	全国行政区划表	ADMDVS_NAME	行政区划名称	行政区划名称	VARCHAR(100)	100	FALSE	FALSE
PARA_ADMDVS_A	PARA_ADMDVS_A全国行政区划表	全国行政区划表	PRNT_ADMDVS_CODG	上级行政区划	上级行政区划	VARCHAR(10)	10	FALSE	FALSE
PARA_ADMDVS_A	PARA_ADMDVS_A全国行政区划表	全国行政区划表	ADMDVS_CODG_PROV	所属省级区划代码	所属省级行政区划代码	VARCHAR(10)	10	FALSE	FALSE
PARA_ADMDVS_A	PARA_ADMDVS_A全国行政区划表	全国行政区划表	ADMDVS_CODG_CITY	所属市级区划代码	所属市级行政区划代码	VARCHAR(10)	10	FALSE	FALSE
PARA_ADMDVS_A	PARA_ADMDVS_A全国行政区划表	全国行政区划表	ADMDVS_LV	行政区划级别	行政区划级别（1省、2市、3县）	VARCHAR(1)	1	FALSE	FALSE

'******************************************************************************
'* File:     Export_model_to_excel.vbs
'* Purpose:  将PDM 的表导入Excel中 ，ctrl+shift+x 粘贴代码点击运行
'* Title:    
'* Category: 
'* Version:  1.0
'* Company:  Sybase Inc. 
'******************************************************************************
 
Option Explicit
 
 
Dim nb
Dim x1  
'
' get the current active model
'
Dim mdl ' the current model
Set mdl = ActiveModel
If (mdl Is Nothing) Then
   MsgBox "There is no Active Model"
End If
Dim fldr
Set Fldr = ActiveDiagram.Parent
nb =2
setExcel()
ListObjects(fldr)
x1.Columns("A:J").EntireColumn.AutoFit 'To adjust the column's width.
MsgBox "导出完成，请打开Excel查看"
 
Private Sub setExcel()
   ' Open & Create Excel Document
   Set x1 = CreateObject("Excel.Application") 
   x1.Visible = True 
   x1.Workbooks.Add 
   x1.Range("A"+Cstr(nb)).Value ="TableCode"
   x1.Range("B"+Cstr(nb)).Value ="TableName"
   x1.Range("C"+Cstr(nb)).Value ="TableComment"  
   x1.Range("D"+Cstr(nb)).Value ="ColumnCode"
   x1.Range("E"+Cstr(nb)).Value ="ColumnName"
   x1.Range("F"+Cstr(nb)).Value ="ColumnComment"     
   x1.Range("G"+Cstr(nb)).Value ="ColumnDatatype"    
   x1.Range("H"+Cstr(nb)).Value ="ColumnLength" 
   x1.Range("I"+Cstr(nb)).Value ="ColumnPrimary" 
   x1.Range("J"+Cstr(nb)).Value ="ColumnMandatory" 
   x1.Range("A"+Cstr(nb)+":J"+Cstr(nb)).font.Bold=true 
   nb = nb+1
End Sub
 
 
Private Sub ListObjects(fldr)
   Dim obj ' running object
   For Each obj In fldr.tables
      DescribeObject obj
   Next
End Sub
 
 
Sub DescribeObject(CurrentObject)
   if CurrentObject.ClassName ="Association-Class link" then exit sub
   output "Found "+CurrentObject.ClassName+" "+CurrentObject.Name+", Created by "+CurrentObject.Creator+" On "+FormatDateTime(CurrentObject.CreationDate,vbShortDate)   
   Dim startRow
   startRow = nb
   Dim col ' running column
   for each col in CurrentObject.columns
         x1.Range("A"+Cstr(nb)).Value = CurrentObject.Code
         x1.Range("B"+Cstr(nb)).Value = CurrentObject.Name   
         x1.Range("C"+Cstr(nb)).Value = CurrentObject.Comment 
         x1.Range("D"+Cstr(nb)).Value = col.Code
         x1.Range("E"+Cstr(nb)).Value = col.Name 
         x1.Range("F"+Cstr(nb)).Value = col.Comment     
         x1.Range("G"+Cstr(nb)).Value = col.Datatype    
         x1.Range("H"+Cstr(nb)).Value = col.Length 
         x1.Range("I"+Cstr(nb)).Value = col.Primary
         x1.Range("J"+Cstr(nb)).Value = col.Mandatory 
         nb = nb+1  
    next
    x1.Range("A"+Cstr(startRow)+":J"+Cstr(nb-1)).Borders.LineStyle = 1
    nb = nb+1  
End Sub