PowerDesigner 中模型設計導出Excel表格

阿新 • • 發佈：2019-01-25

set exce then ctrl 目錄增加 running eat column

今天項目做設計，客戶要看數據設計，需要到處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

View Code

代碼二：將結構到處到多個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

View Code

PowerDesigner 中模型設計導出Excel表格

set exce then ctrl 目錄增加 running eat column 今天項目做設計，客戶要看數據設計，需要到處Excel表格。去網上搜索下，把使用總結如下：已經完成設計的pd設計打開pd,快捷鍵Ctrl + Shift + X或者Tools>

vue+iview中的table表格導出excel表格

日期 [] 格式 exportcsv 程序 div 文件夾代碼名稱一、iveiw框架中table中有exportCsv()方法可以導出.csv後綴文件，類似於excel文件，但是並不是excel文件。二、實現table表格導出excel文件利用Blob.js 和 E

原生JavaScript 導出excel表格（兼容ie和其他主流瀏覽器）

toe rip idt exce cti get pad bsp ttext 因同事的需求是想前端導出excel表格，網上找了一些demo，自己修改了一下，可能以後會用到，記錄下來吧，兼容ie和一些主流瀏覽器，ie可能會報錯，原因參考這裏，edge 瀏覽器還沒有辦法導出，

laravel 5.4 導出excel表格

配置文件 fig namespace com cad 修改表格新建 eat 1.在laravel根目錄下面找到一個composer.json文件打開並在require下面加上一句話，如圖所示：註：以後這個excel的版本號可能還會修改 2.執行 compo

PHPExcel導出excel表格

aar reac creat write row eba port 導出excel 瀏覽器 if(!function_exists(‘exportExcel‘)){ //導出excel文件 function exportExcel($datas, $save_m

ThinkPHP實現導出Excel表格

() exp epo -type pty lena exc 數據庫 itl /** * 導出數據為excel表格 *@param $data 一個二維數組,結構如同從數據庫查出來的數組 *@param $title excel的第一行標題

java導出Excel表格

tco error: uil location hssf exception ron build except POI簡介：Jakarta POI 是一套用於訪問微軟格式文檔的Java API。Jakarta POI有很多組件組成，其中有用於操作Excel格式文件的HS

PHP 導出Excel表格

select vendor mar pan tty sig TP 修改 pla 在實際開發中，有很多場景是需要導出Excel表格的，比如後臺的統計數據，客戶希望能導出為表格的形式，今天介紹一下TP5框架內實現Excel表格的導出功能，首先下載phpexce

poi快速導入導出excel表格

pri sub ren 賦值 tran inpu system for tostring @RequestMapping("reportToExcel")@ResponseBodypublic ResultJsonInfo reportExcel(WxSchoolWisdo

laravel5.4 導出 Excel 表格

出現 pac brush inf namespace post png exc 數據 1.執行 composer require maatwebsite/excel 2. composer.json 文件出現(或者手動添加) 3.在config目錄下 app.ph

vue實現前端導出excel表格

turn ret load 表格 nload 創建 col ins lte 1.在src目錄下創建一個文件(vendor)進入Blob.js和Export2Excel.js 2.npm install -S file-saver 用來生成文件的web應用程序 3.npm i

golang導出Excel表格

print with err pri main article val 瀏覽器 imp 設置樣式： package main import ( "github.com/tealeg/xlsx" "fmt" ) func main() { var

c#/.net 導出excel表格

erl 文件夾 DDM [] count mat https rop pin 1.本片主要講述excel導出的樣式處理，導出方法看前一篇 static void Main(string[] args) {

導出excel表格util

導出 value flush ica apache 內容 .info 工作 string import lombok.extern.slf4j.Slf4j;import org.apache.poi.hssf.usermodel.*;import org.apache.po

springboot實現數據庫中數據導出Excel功能

header top 查找 ldo cati servlet excel lec 什麽功能介紹網上查找了一堆的數據導出代碼，可能是自己基礎比較薄弱的原因還是別的什麽原因，導致一直沒有運行成功，就算是運行成功的，結果也是差強人意。在此總結一下自己借鑒別人

java導出excel表格方法

name tps 由於 inf catch 做網站 com 產生 add 深圳網站建設公司，一般會使用asp.net,java,php做網站底層開發，由於網站使用過程中，會產生大量數據，這些數據包含留言信息，或者新聞信息，由於我們今天是做java網站建設，來開發網站，所以我

將頁面中表格數據導出excel格式的文件（vue）

表示 webpack ade bpa upd 調用 clas 使用目錄　　近期由於項目需要，需要將頁面中的表格數據導出excel格式的文件，折騰了許久，在網上各種百度，雖然資料不少，但是大都不全，踩了許多坑，總算是皇天不負有心人，最後圓滿解決了。　　1、安裝相關依賴

Java 從數據庫中查找信息導入Excel表格中

多結果 tput session false 狀態結果 mmu call excel表格前端js function Excel (){ //ajax請求 $.ajax({ url : "outPutAboutShopInf

asp.net c# 網頁導出excel 多表格多個sheet

sys file table 網頁 pro objects class cat false /// <summary> ///可導出多個sheet表 /// </summary> /// <param

【POI】導出excel文件，不生成中間文件，直接將內存中的數據創建對象下載到瀏覽器

src sheet xssf xls close creat 下載 position new 不是從InputStream中read，然後outputStream再write @RequestMapping("download4Excel") public v

PowerDesigner 中模型設計導出Excel表格

今天項目做設計，客戶要看數據設計，需要到處Excel表格。去網上搜索下，把使用總結如下：

已經完成設計的pd設計

打開pd,快捷鍵Ctrl + Shift + X或者Tools>Exectue Commands > Edit/Run Script

代碼一：到處到單個excel中 推薦使用這個

代碼二：將結構到處到多個sheet中

相關推薦

代碼一：到處到單個excel中推薦使用這個