在PD中导入Excel自动生成表结构

有Excel的数据表结构，但是没有数据库实例，所有没有办法用PowerDesigner的反转功能。
300多张表，8000多个字段，而且数据表中的表名及字段名用中文代码缩写，想着都晕。
不过它内置的脚本功能确实不错，根据自带的脚本，写了一个实现从Excel读取表结构，包括Name、Code、DataType、Comments等。


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 "E:/数据库结构.xls"


x1.Workbooks(1).Worksheets("Sheet1").Activate


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


For rwIndex = 2016 To 2015


With x1.Workbooks(1).Worksheets("Sheet1")


If .Cells(rwIndex, 1).Value = "" Then


Exit For


End If


If .Cells(rwIndex, 3).Value = "" Then


set table = mdl.Tables.CreateNew


table.Name = .Cells(rwIndex + 1, 10).Value


table.Code = .Cells(rwIndex + 1, 9).Value


count = count + 1


Else


colName = .Cells(rwIndex, 1).Value


set col = table.Columns.CreateNew


'MsgBox .Cells(rwIndex, 1).Value, vbOK + vbInformation, "列"


col.Name = .Cells(rwIndex, 1).Value


'MsgBox col.Name, vbOK + vbInformation, "列"


col.Code = .Cells(rwIndex, 3).Value




if .Cells(rwIndex, 7).Value <> "" Then


col.Comment = "单位：" + .Cells(rwIndex, 7).Value + " 。 " + .Cells(rwIndex, 8).Value


else


col.Comment = .Cells(rwIndex, 8).Value


end if




if .Cells(rwIndex, 2).Value = "Y" Then


col.Primary = true


end if


If .Cells(rwIndex, 4).Value = "C" Then


col.DataType = "NVARCHAR2(" + .Cells(rwIndex, 5).Value + ")"


elseif .Cells(rwIndex, 4).Value = "D" Then


col.DataType = "DATE"


elseif .Cells(rwIndex, 4).Value = "N" Then


if .Cells(rwIndex, 6).Value = "" Then


col.DataType = "NUMBER(" + .Cells(rwIndex, 5).Value + ")"


else


col.DataType = "NUMBER(" + .Cells(rwIndex, 5).Value + ", " + .Cells(rwIndex, 6).Value + ")"


end if


end if


End If


End With


Next


MsgBox "生成数据表结构共计 " + CStr(count), vbOK + vbInformation, "表"




Exit Sub


End sub