PowerDesigner导入Excel表结构.doc

如何将Excel表结构导入到Powerdesigner中 （适用于Powerdesigner各种版本） 编写测试excel文件 打开pd脚本编辑器 PD菜单栏中，依次点击“Tools -Excute Commands-Edit/Run Script..” 编写脚本 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:/荷露叮咚.xlsx 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 = 1 To 4 step 1 With x1.Workbooks(1).Worksheets(Sheet1) MsgBox 生成数据表结构共计1 =+CStr(.Cells(2,2).Value ), vbOK + vbInformation, 表 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).Value table.Code = .Cells(rwIndex , 2).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, 2).Value col.Comment = .Cells(rwIndex,1).Value col.DataType = .Cells(rwIndex, 3).Value End If End With Next MsgBox 生成数据表结构共计 + CStr(count), vbOK + vbInformation, 表 Exit Sub End sub 测试 第一步：把excel模板文件(例如荷露叮咚.xlsx)拷贝到 D盘根目录下（这里的路径需与脚本中标红的地方匹配。） 第二步：运行脚本 第三步：检查导入效果 PS：可以将脚本保存，下次再导入重复利用。