根据excel定义的表机构，导入powerdesigner

在参考网上一些资料的基础上，自己整理。

定义的表机构

在powerdesigner调用的过程

工具>execute 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 Dim strFileNameForFilter Dim cti strFileNameForFilter="文件的位置.xlsm" RQ = vbYes 'MsgBox("Is Excel Installed on your machine ?", vbYesNo + vbInformation, "Confirmation") If RQ = vbYes Then HaveExcel = True ' Open & Create Excel Document Dim x1,xlBookFilter,xlSheetsFilter,xlSheetsFilterName ' Set x1 = CreateObject("Excel.Application") Set xlBookFilter = x1.Workbooks.Open(strFileNameForFilter) xlBookFilter.Activate Dim i, Count Count = xlBookFilter.Sheets.Count For i = 2 To Count 'xlSheetsFilter = xlBookFilter.Sheets(i) 'MsgBox xlSheetsFilter xlBookFilter.Sheets(i).Activate '指定要打开的sheet名称 cti = i a x1,mdl,cti Next Else HaveExcel = False End If

a x1, mdl, cti sub a(x1, mdl, cti) dim rwIndex dim tableName dim colname dim table dim col dim count on error Resume Next

set table = mdl.Tables.CreateNew '创建表 For rwIndex = 2 To 4 '指定要遍历的Excel行标 从第二行开始，遍历表名 With x1.Workbooks(1).Worksheets(i) If .Cells(rwIndex, 2).Value = "" Then '如果遍历到第二列为空，则退出 Exit For End If If .Cells(rwIndex, 2).Value = "表ID" Then table.Name = .Cells(rwIndex , 3).Value '指定表名，第三列的值 count = count + 1 elseIf .Cells(rwIndex, 2).Value = "表名" Then table.Code = .Cells(rwIndex , 3).Value '指定表中文名，第三列的值 else table.Comment = .Cells(rwIndex , 3).Value '指定表注释，第三列的值 End If End With Next

For rwIndex = 7 To 100 '指定要遍历的Excel行标 由于第1行是表头，从第2行开始 With x1.Workbooks(1).Worksheets(i) If .Cells(rwIndex, 3).Value = "" Then '如果遍历到第三列为空，则退出 Exit For End If

set col = table.Columns.CreateNew '创建一列/字段 col.Name = .Cells(rwIndex, 3).Value '指定列说明 col.Code = .Cells(rwIndex, 4).Value '指定列名 col.DataType = .Cells(rwIndex, 7).Value '指定列数据类型并且指定长度 col.Length = .Cells(rwIndex, 6).Value '指定列长度，这一列没用上 col.Comment = .Cells(rwIndex, 17).Value '指定列长度

If .Cells(rwIndex, 9).Value ="Y" then col.Mandatory = True '指定列是否可空，true不可为空 End If If .Cells(rwIndex, 10).Value ="1" then col.Primary = True '指定主键 End If

End With Next

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

Exit Sub End sub

注意：在PD中执行脚本的时候，如果提示：no Active Model，是因为没创建物理模型（ Physical Data Model ），因为 不同的pd模型在使用时 是不同的编码-所以这里测试使用Physical Data Model

导入成功后，再生成可执行的ORA-sql的可执行语句，步骤：

菜单栏database->generation Database选择database-generation,导出可执行sql