power designer 使用vba实现自动化操作学习

    power designer 自带VBA脚本语言，在某些情况下编程可实现自动化操作；

1 创建表和列

    代码大体如下；

Set mdl = ActiveModel set table = mdl.Tables.CreateNew table.Name = "tablename" table.Code = "table" for each Tab in folder.tables dim col set col =tab.columns.createnew col.name="columnname" col.code="columnname" col.comment="columncomment" col.datatype="nvarchar2(255)" next

2 导出到excel

    代码大体如下；

Dim ExcelApp, ExcelBook, ExcelSheet Set ExcelApp = CreateObject("Excel.Application") ExcelApp.visible=FALSE Set ExcelBook = ExcelApp.Workbooks.Add Set ExcelSheet = ExcelBook.Sheets.Add ExcelSheet.Name = "目录" '目录标题栏 With ExcelSheet '内容 .Cells(1,"A").Value = "序号" .Cells(1,"B").Value = "模式名" .Cells(1,"C").Value = "表英文名" .Cells(1,"D").Value = "中文表名" .Cells(1,"E").Value = "处理标志(Y/N)" .Cells(1,"F").Value = "备注" '样式-居中 .Rows(1).HorizontalAlignment = 3 '左右居中 5-填充，左对齐，不会覆盖右边的单元格 .Rows(1).VerticalAlignment = 2 '上下居中 '样式-宽高 .Rows(1).RowHeight = 1/0.035 '高1厘米 .Columns(1).ColumnWidth = 5 '宽，单位：字符 .Columns(2).ColumnWidth = 6 .Columns(3).ColumnWidth = 31 .Columns(4).ColumnWidth = 41 .Columns(5).ColumnWidth = 9 .Columns(6).ColumnWidth = 21 '样式-四周边框 .Range("A1","F1").Borders(1).LineStyle = 1 .Range("A1","F1").Borders(2).LineStyle = 1 .Range("A1","F1").Borders(3).LineStyle = 1 .Range("A1","F1").Borders(4).LineStyle = 1 '样式-其他 .Rows(1).WrapText = True '自动换行 .Range("A1","F1").Interior.Color = D_COLOR_BLUE '背景色-天蓝色 .Range("A1","F1").Font.Size = 10 '字体 .Rows(1).Font.Bold = True '粗体 End With

可查看power designer自带的各种VBA示例；