将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:XXXXXXX.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模板如下：