? ??power designer 自帶VBA腳本語言，在某些情況下編程可實現自動化操作；

1 創建表和列

? ? 代碼大體如下；

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

2 導出到excel

? ? 代碼大體如下；

Dim ExcelApp, ExcelBook, ExcelSheetSet ExcelApp = CreateObject("Excel.Application")ExcelApp.visible=FALSESet ExcelBook = ExcelApp.Workbooks.AddSet ExcelSheet = ExcelBook.Sheets.AddExcelSheet.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示例；

總結

以上是生活随笔為你收集整理的power designer 使用vba实现自动化操作学习的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。