將Excel表結構導入到Powerdesigner

　　我們經常會在excel中設計整理表結構，整理完需要導入到Powerdesigner中，可以通過以下腳本來實現快速，具體操作方法：

　　打開PowerDesigner，新建模型，點擊Tools|Execute Commands|Edit/Run Script菜單或按下快捷鍵Ctrl + Shift + X打開腳本窗口，輸入示例VBScript腳本，修改其中的Excel模板路徑，點Run按鈕執行即可

Option Explicit   
Dim mdl ' the current model 
Set mdl = ActiveModel 
If (mdl Is Nothing) Then   
  MsgBox "There is no Active Model" 
End If 
Dim HaveExcel 
Dim RQ  
RQ = vbYes 'MsgBox("Is Excel Installed on your machine ?", vbYesNo + vbInformation, "Confirmation") 
If RQ = vbYes Then  
   HaveExcel = True  
' Open & Create Excel Document 
 Dim x1 '  
  Set x1 = CreateObject("Excel.Application")
  x1.Workbooks.Open "D:\XXX\XXXX.xls"  '指定excel文檔路徑
Else
   HaveExcel = False 
End If 
a x1, mdl 
sub a(x1,mdl) 
dim rwIndex 
dim tableName 
dim colname 
dim table 
dim col 
dim count 
  
'on error Resume Next 

dim  shtIdx
for shtIdx=2 to x1.Workbooks(1).Worksheets.Count '第二個sheet頁開始
For rwIndex = 1 To 120 step 1   
    With x1.Workbooks(1).Worksheets(shtIdx)
    'With x1.Workbooks(1).Worksheets(tName)
  'MsgBox "生成數據表結構共計1 ="+CStr(.Cells(2,2).Value ), vbOK + vbInformation, "表" 
   If .Cells(rwIndex, 1).Value = "" Then 
       Exit For 
   End If  
   if rwIndex=1 Then
   '創建一個表實體
   set table = mdl.Tables.CreateNew 
    '指定表名
    table.Name = .Cells(2 , 2).Value 
    '指定表Code
    table.Code = .Cells(2 , 1).Value 
    'Comment
    table.Comment = .Cells(2 , 2).Value 
    count = count + 1  
   End If
   if rwIndex>1 Then  '忽略表頭
        colName = .Cells(rwIndex, 1).Value 
        set col = table.Columns.CreateNew  '創建列
        'MsgBox .Cells(rwIndex, 1).Value, vbOK + vbInformation, "列" 
        col.Name = .Cells(rwIndex, 3).Value '指定列名
        'MsgBox col.Name, vbOK + vbInformation, "列"
        col.Code = .Cells(rwIndex, 3).Value '指定列code
        col.DataType = .Cells(rwIndex, 4).Value '指定列數據類型
        col.Comment = .Cells(rwIndex,5).Value  '指定列Comment
        If .Cells(rwIndex, 6).Value = "Y" Then'指定主鍵
        col.Primary = true
        End If
        '指定列是否可空
        'If .Cells(rwIndex, 7).Value = "Y" Then
         '         col.Mandatory = true'指定列是否可空,true為不可空                  
        'End If
    End If
  End With 
Next 
Next   
MsgBox "生成數據表結構共計" + CStr(count), vbOK + vbInformation, "表" 
Exit Sub 
End sub

　　Excel模板如下：