PowerDesigner 中模型设计导出Excel表格

今天项目做设计，客户要看数据设计，需要到处Excel表格。去网上搜索下，把使用总结如下：

已经完成设计的pd设计
打开pd,快捷键Ctrl + Shift + X或者Tools>Exectue Commands > Edit/Run Script

代码一：到处到单个excel中 推荐使用这个

‘******************************************************************************
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, SHEETLIST
      set EXCEL = CREATEOBJECT("Excel.Application")
      EXCEL.workbooks.add(-4167)‘添加工作表
      EXCEL.workbooks(1).sheets(1).name ="表结构"
      set SHEET = EXCEL.workbooks(1).sheets("表结构")

      EXCEL.workbooks(1).sheets.add
      EXCEL.workbooks(1).sheets(1).name ="目录"
      set SHEETLIST = EXCEL.workbooks(1).sheets("目录")
      ShowTableList Model,SHEETLIST

      ShowProperties Model, SHEET,SHEETLIST

      EXCEL.workbooks(1).Sheets(2).Select
      EXCEL.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 =true
      sheet.Columns(2).WrapText =true
      sheet.Columns(4).WrapText =true
      ‘不显示网格线
      EXCEL.ActiveWindow.DisplayGridlines = False

 End If
‘-----------------------------------------------------------------------------
‘ Show properties of tables
‘-----------------------------------------------------------------------------
Sub ShowProperties(mdl, sheet,SheetList)
   ‘ Show tables of the current model/package
   rowsNum=0
   beginrow = rowsNum+1
   Dim rowIndex
   rowIndex=3
   ‘ For each table
   output "begin"
   Dim tab
   For Each tab In mdl.tables
      ShowTable tab,sheet,rowIndex,sheetList
      rowIndex = rowIndex +1
   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,rowIndex,sheetList)
   If IsObject(tab) Then
     Dim rangFlag
     rowsNum = rowsNum + 1
      ‘ Show properties
      Output "================================"
      sheet.cells(rowsNum, 1) =tab.name
      sheet.cells(rowsNum, 1).HorizontalAlignment=3
      sheet.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=3
      sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 7)).Merge
      ‘设置超链接，从目录点击表名去查看表结构
      ‘字段中文名    字段英文名    字段类型    注释    是否主键    是否非空    默认值
      sheetList.Hyperlinks.Add sheetList.cells(rowIndex,2), "","表结构"&"!B"&rowsNum
      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.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=10
            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, 3) = ""
          ‘sheet.cells(rowsNum, 4) = col.name
          sheet.cells(rowsNum, 2) = col.code
          sheet.cells(rowsNum, 3) = col.datatype
        sheet.cells(rowsNum, 4) = col.comment
          If col.Primary = true Then
        sheet.cells(rowsNum, 5) = "Y"
        Else
        sheet.cells(rowsNum, 5) = " "
        End If
        If col.Mandatory = true Then
        sheet.cells(rowsNum, 6) = "Y"
        Else
        sheet.cells(rowsNum, 6) = " "
        End If
        sheet.cells(rowsNum, 7) =  col.defaultvalue
      next
      sheet.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 = 10
      rowsNum = rowsNum + 2

      Output "FullDescription: "       + tab.Name
   End If

End Sub
‘-----------------------------------------------------------------------------
‘ Show List Of Table
‘-----------------------------------------------------------------------------
Sub ShowTableList(mdl, SheetList)
   ‘ Show tables of the current model/package
   Dim rowsNo
   rowsNo=1
   ‘ For each table
   output "begin"
   SheetList.cells(rowsNo, 1) = "主题"
   SheetList.cells(rowsNo, 2) = "表中文名"
   SheetList.cells(rowsNo, 3) = "表英文名"
   SheetList.cells(rowsNo, 4) = "表说明"
   rowsNo = rowsNo + 1
   SheetList.cells(rowsNo, 1) = mdl.name
   Dim tab
   For Each tab In mdl.tables
     If IsObject(tab) Then
         rowsNo = rowsNo + 1
      SheetList.cells(rowsNo, 1) = ""
      SheetList.cells(rowsNo, 2) = tab.name
      SheetList.cells(rowsNo, 3) = tab.code
      SheetList.cells(rowsNo, 4) = tab.comment
     End If
   Next
    SheetList.Columns(1).ColumnWidth = 20
      SheetList.Columns(2).ColumnWidth = 20
      SheetList.Columns(3).ColumnWidth = 30
     SheetList.Columns(4).ColumnWidth = 60
   output "end"
End Sub

代码二：将结构到处到多个sheet中

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, 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.name
      ‘设置边框
      sheet.Range(sheet.cells(rowsNum+1,1),sheet.cells(rowsNum+1,3)).Borders.LineStyle = "2"

      ‘增加Sheet
      BOOK.Sheets.Add , BOOK.Sheets(BOOK.Sheets.count)
      BOOK.Sheets(rowsNum+1).Name = tab.code 

      Dim shtn
      Set shtn = EXCEL.workbooks(1).sheets(tab.code)
      ‘设置列宽和换行
       shtn.Columns(1).ColumnWidth = 30
       shtn.Columns(2).ColumnWidth = 20
       shtn.Columns(3).ColumnWidth = 20
       shtn.Columns(5).ColumnWidth = 30
       shtn.Columns(6).ColumnWidth = 20   

       shtn.Columns(1).WrapText =true
       shtn.Columns(2).WrapText =true
       shtn.Columns(3).WrapText =true
       shtn.Columns(5).WrapText =true
       shtn.Columns(6).WrapText =true

       ‘设置列标题
       shtn.cells(1, 1) = "字段中文名"
       shtn.cells(1, 2) = "字段名"
       shtn.cells(1, 3) = "字段类型"
       shtn.cells(1, 5) = tab.code
       shtn.cells(1, 6) = tab.Name
       ‘设置边框
       shtn.Range(shtn.cells(1, 1),shtn.cells(1, 3)).Borders.LineStyle = "1"
       shtn.Range(shtn.cells(1, 5),shtn.cells(1, 6)).Borders.LineStyle = "1"
       ‘设置背景颜色
       shtn.Range(shtn.cells(1, 1),shtn.cells(1, 3)).Interior.ColorIndex = "19"
       shtn.Range(shtn.cells(1, 5),shtn.cells(1, 6)).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.datatype
            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

原文地址：https://www.cnblogs.com/louby/p/10320333.html

时间： 2024-08-28 00:02:27

PowerDesigner 中模型设计导出Excel表格的相关文章

从SQL Server 2005 中 导入 导出 excel 表格

1.从 数据库 中 导出 excel  表格 定义 一个 gridview1 protected void Button1_Click(object sender, EventArgs e) //倒出数据 {     if (GridView1.Rows.Count == 0)   {       return;    }   else  {       GridView1.AllowPaging = false;//先将数据分页取消,才能全部导出数据      bind(); Export("

Laravel5.4中将数据表中数据导出excel表格

在composer.json中添加 运行composer update 在config中添加 运行 php artisan vendor:publish 添加配置文件 方法中直接导出 注意:  引入Excel

ABAP中ALV导出excel表格时有个字段总是少一位

这是SAP的一个Bug,FM方式ALV Grid和Class ALV Grid都会出现,但是ALV List好像没有这个BUG. 在以下几个条件满足的时候就会出现这个问题: 1.字段对应的域Convers. routine = ALPHA,也就是有前导零的字段,比如供应商号.商品号.客户号等. 2.做ALV Fieldcat的时候,没有指定参考表和参考字段. 3.列的表头文本(seltext_s等)比实际显示的数据短. 所以解决问题的时候从2.3两点下手即可. REPORT z_barry_fi

java中使用jxl导出Excel表格详细通用步骤

该方法一般接收两个参数,response和要导出的表格内容的list. 一般我们将数据库的数据查询出来在页面进行展示,根据用户需求,可能需要对页面数据进行导出. 此时只要将展示之前查询所得的数据放入session中备份一份,在调用导出方法时,从session中获取即可, 如果为后台直接导出,直接查询数据库后将结果传入即可,当然也可以在导出Excel方法中查询. 查询方法: // 获取查询结果存入session中        Object resultList = request.getAttr

PHP导入导出excel表格图片(转)

写excel的时候,我用过pear的库,也用过pack压包的头,同样那些利用smarty等作的简单替换xml的也用过,csv的就更不用谈了.呵呵.(COM方式不讲了,这种可读的太多了,我也写过利用wps等进行word等的生成之类的文章 )但是在读的时候,只用过一种,具体是什么忘了,要回去翻代码了.基本上导出的文件分为两种:1:类Excel格式,这个其实不是传统意义上的Excel文件,只是因为Excel的兼容能力强,能够正确打开而已.修改这种文件后再保存,通常会提示你是否要转换成Excel文件.优

Java中导入导出Excel -- POI技术

一.介绍: 当前B/S模式已成为应用开发的主流,而在企业办公系统中,常常有客户这样子要求:你要把我们的报表直接用Excel打开(电信系统.银行系统).或者是:我们已经习惯用Excel打印.这样在我们实际的开发中,很多时候需要实现导入.导出Excel的应用. 目前,比较常用的实现Java导入.导出Excel的技术有两种Jakarta POI和Java Excel 下面我就分别讲解一下如何使用这两个技术实现导入.导出Excel 二.使用Jakarta POI导入.导出Excel Jakarta PO

使用NPOI将数据库里信息导出Excel表格并提示用户下载

使用NPOI进行导出Excel表格大家基本都会,我在网上却很少找到导出Excel表格并提示下载的 简单的代码如下 1 //mvc项目可以传多个id以逗号相隔的字符串 2 public ActionResult execl(string ids) 3 { 4 List<PayLog> list = new List<PayLog>(); 5 string[] idsstring = ids.Split(new char[] { ',' }, StringSplitOptions.Re

laravel 5.4 导出excel表格

1.在laravel根目录下面找到一个composer.json文件 打开并在require下面加上一句话,如图所示: 注:以后这个excel的版本号可能还会修改 2.执行 composer install 3.在config下面的app.php中修改如下: 在providers 中加上 Maatwebsite\Excel\ExcelServiceProvider::class, 在aliases 中加上 "Excel" => Maatwebsite\Excel\Facades\

VB.NET版机房收费系统---导出Excel表格

datagridview,翻译成中文的意思是数据表格显示,使用DataGridView控件,可以显示和编辑来自不同类型的数据源的表格,将数据绑定到DataGridView控件非常简单和直观,大多数情况下,只需要设置DataSource属性即可,在绑定到包含多个列表或表的数据库源时,只需将DataMember属性设置为绑定的列表或表的字符串即可.机房收费系统多次用到数据表格的显示,并且导出为Excel表格,第一次机房收费系统是用VB版本的,她导出Excel的方法如下: 打开VB-工程-应用-勾选M