将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= to x1.Workbooks().Worksheets.Count '第二个sheet页开始
 For rwIndex =  To  step
     With x1.Workbooks().Worksheets(shtIdx)
     'With x1.Workbooks(1).Worksheets(tName)
   'MsgBox "生成数据表结构共计1 ="+CStr(.Cells(2,2).Value ), vbOK + vbInformation, "表"
    If .Cells(rwIndex, ).Value = "" Then
        Exit For
    End If
    if rwIndex= Then
    '创建一个表实体
    set table = mdl.Tables.CreateNew
     '指定表名
     table.Name = .Cells( , ).Value
     '指定表Code
     table.Code = .Cells( , ).Value
     'Comment
     table.Comment = .Cells( , ).Value
     count = count +
    End If
    if rwIndex> Then  '忽略表头
         colName = .Cells(rwIndex, ).Value
         set col = table.Columns.CreateNew  '创建列
         'MsgBox .Cells(rwIndex, 1).Value, vbOK + vbInformation, "列"
         col.Name = .Cells(rwIndex, ).Value '指定列名
         'MsgBox col.Name, vbOK + vbInformation, "列"
         col.Code = .Cells(rwIndex, ).Value '指定列code
         col.DataType = .Cells(rwIndex, ).Value '指定列数据类型
         col.Comment = .Cells(rwIndex,).Value  '指定列Comment
         If .Cells(rwIndex, ).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模板如下：