ibcadmin 发表于 2025-8-20 10:30:19

powerdesigner导出excel

楼主找了几个脚本，就这个脚本导出的样式比较好看，记录一下。

导出方式：Tools -> Execute COmmands -> Edit/Run Script 或者用快捷键也可以：ctr+shift+X

'******************************************************************************
Option Explicit
   Dim rowsNum
   rowsNum = 2

Dim Model
Set Model = ActiveModel
If (Model Is Nothing) Or (Not Model.IsKindOf(PdPDM.cls_Model)) Then
Debug.print "null"
Else
    ' Get the tables collection
    '创建EXCEL APP
    dim beginrow
    DIM EXCEL, SHEET
    set EXCEL = CREATEOBJECT("Excel.Application")
    EXCEL.workbooks.add'添加工作表
    SET sheet = EXCEL.workbooks(1).sheets(1)
    sheet.name ="数据字典"
   
   sheet.Range(sheet.cells(1, 1),sheet.cells(1, 9)).Merge
   sheet.cells(1, 1) ="淘宝服装店地址：http://52sunan.taobao.com"
   sheet.Range(sheet.cells(1, 1),sheet.cells(1, 9)).Interior.Color=rgb(146,208,80)
   
   rowsNum=2
   beginrow = rowsNum+1

   Dim tab
   For Each tab In Model.tables
      TableLoop tab,SHEET
   Next
   
   
    EXCEL.visible = true
    '设置列宽和自动换行
    sheet.Columns(1).ColumnWidth=10
    sheet.Columns(2).ColumnWidth=15
    sheet.Columns(4).ColumnWidth=20
    sheet.Columns(5).ColumnWidth=15
    sheet.Columns(6).ColumnWidth=15
   
    sheet.Columns("C:C").EntireColumn.AutoFit
    sheet.Columns("i:i").EntireColumn.AutoFit   
End If

Sub TableLoop(tab, sheet)
   If IsObject(tab) Then
      Dim rangFlag
      rowsNum = rowsNum + 1
      
      sheet.cells(rowsNum, 1) = "表名"
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 9)).Merge
      sheet.cells(rowsNum, 2)=tab.code
      sheet.Range(sheet.cells(rowsNum, 1),sheet.cells(rowsNum, 9)).Borders.LineStyle = "1"
      sheet.Range(sheet.cells(rowsNum, 1),sheet.cells(rowsNum, 9)).Interior.Color=rgb(141,180,226)
      sheet.Range(sheet.cells(rowsNum, 1),sheet.cells(rowsNum, 9)).Borders.Weight ="3"
      
      rowsNum = rowsNum + 2
      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.cells(rowsNum, 8) = "默认值"
      sheet.cells(rowsNum, 9) = "说明"
      sheet.Range(sheet.cells(rowsNum,1),sheet.cells(rowsNum,9)).Interior.Color=rgb(166,166,166)
      
      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, 2) = col.code
         sheet.cells(rowsNum, 3) = col.datatype
         sheet.cells(rowsNum, 4) = IIF(col.Length<>0,col.Length,"")
         sheet.cells(rowsNum, 5) = IIF(col.Primary,"√","")
         sheet.cells(rowsNum, 6) = IIF(col.Primary,"√","")
         sheet.cells(rowsNum, 7) = IIF(col.Mandatory,"√","")
         sheet.cells(rowsNum, 8) = "无"
         sheet.cells(rowsNum, 9) = col.comment
      next

      '设置边框
      DIM RanagBorder
      SET RanagBorder =sheet.Range(sheet.cells(rowsNum-colsNum,1),sheet.cells(rowsNum,9))
      RanagBorder.Borders.LineStyle = "1"
      'RaneBorderFun RanagBorder
      
      rowsNum = rowsNum + 1
      
   End If
End Sub

function IIF(flg,tstr,fstr)
   if flg then
      IIF= tstr
   else
      IIF= fstr
   end if
End function




ibcadmin 发表于 2025-10-26 00:18:25

111

ibcadmin 发表于 2025-10-26 00:20:55

66

zie102 发表于 昨天 22:59

小西米茶坊外約+小西米TG@nos991 學生妹 人妻 奶水媽媽 口爆-顏射-肛交-奶泡-後門-無套-無套愛愛,可69, 有按摩、無套BJ、火車便當 、LG、毒龍鑽、顏射、後門、健談活潑，不會敷衍，態度好

台灣小西米本土妹外送茶吃魚喝茶TG搜nos991


台灣最夯小西米外送茶坊Telegram ：@nos991
臺灣小西米外送茶吃魚喝茶Gleezy：nos988/Line ：bj336 高檔正莖灣小西米外送茶吃魚喝茶Gleezy：nos988/Line ：fba988 高檔正龜空姐援交妹專營蘿莉學生木熟女養老腿女值控禮：外約山叩大白瑩大兒子外約一女萬豆旅館外約三木https://t.me/nos977

成人自拍🔞全台外流影片Telegram 交流頻道：t.me/ns6987
二次元裡番資源Telegram頻道：t.me/nos3397

想找一個讓人心跳加速的夜晚嗎？
甜美外型＋撩人曲線，見面就讓你沉淪
溫柔與熱情兼具，讓你捨不得離開
页: [1]
查看完整版本: powerdesigner导出excel