PowerDesigner导出Excel数据字典：自定义模板生成

'从powerdesigner直接导出excel数据字典，快捷键Ctrl+Shift+X
'需新建一个excel文件替换脚本中的“D:\\abcd.xls”
'@author victorysoft chenlb
Option Explicit 
Dim mdl ' the current model 
Set mdl = ActiveModel 
Dim Tab 'running table 
dim i,k
i=1
k=1
dim objExcel,objWorkBook,objWorkSheet
Set objExcel = CreateObject("Excel.Application") 
Set objWorkBook = objExcel.Workbooks.Open("d:\\aaa.xlsx") 
Set objWorkSheet = objWorkBook.Sheets(1) 
dim tablename 
tablename = ""
for each Tab in ActiveModel.Tables 
    output Tab.name
   if tablename <> Tab.name then
      objWorkSheet.cells(i,1)=Tab.name + ":" + Tab.code
      setCellboeders objWorkSheet,objWorkSheet.cells(i,1),objWorkSheet.cells(i,4)
      objWorkSheet.Range(objWorkSheet.cells(i,1),objWorkSheet.cells(i,4)).Merge
      objWorkSheet.Range(objWorkSheet.cells(i,1),objWorkSheet.cells(i,4)).Interior.ColorIndex = 6
      i = i + 1
      objWorkSheet.cells(i,1)="序号"
      objWorkSheet.cells(i,2)="列名"
      objWorkSheet.cells(i,3)="列代码"
      objWorkSheet.cells(i,4)="数据类型"
      objWorkSheet.cells(i,5)="主键"
      objWorkSheet.cells(i,6)="唯一键"

      objWorkSheet.cells(i,7)="外键"
      objWorkSheet.cells(i,8)="非空"
      objWorkSheet.cells(i,9)="精度"
      objWorkSheet.cells(i,10)="小数"
      objWorkSheet.cells(i,11)="量纲"
      objWorkSheet.cells(i,12)="附录表"
      objWorkSheet.cells(i,13)="描述"
      objWorkSheet.Columns(1).ColumnWidth = 4
      objWorkSheet.Columns(2).ColumnWidth = 20
      objWorkSheet.Columns(3).ColumnWidth = 20
      objWorkSheet.Columns(4).ColumnWidth = 10
      objWorkSheet.Columns(5).ColumnWidth = 4
      objWorkSheet.Columns(6).ColumnWidth = 6
      objWorkSheet.Columns(7).ColumnWidth = 25
      objWorkSheet.Columns(8).ColumnWidth = 4
      objWorkSheet.Columns(9).ColumnWidth = 4
      objWorkSheet.Columns(10).ColumnWidth = 4
      objWorkSheet.Columns(11).ColumnWidth = 18
      objWorkSheet.Columns(12).ColumnWidth = 20
      objWorkSheet.Columns(13).ColumnWidth = 50
      setCellboeders objWorkSheet,objWorkSheet.cells(i,1),objWorkSheet.cells(i,13)
      objWorkSheet.Range(objWorkSheet.cells(i,1),objWorkSheet.cells(i,13)).Font.Bold = True
      objWorkSheet.Range(objWorkSheet.cells(i,1),objWorkSheet.cells(i,13)).HorizontalAlignment = 3
      i = i+1
   end if 
   
   dim col
   dim j
   j = 1
   for each col in Tab.columns