excel转换成pdm

1、将数据字典中的数据表结构粘贴到Excel文件中，整理成如下图所示格式

2、在powerdesigner中创建PDM工程，选中该工程，然后打开脚本代码窗口：Tools－ExecuteCommands －　Edit\RunScript ，编写代码脚本。

脚本

'

Dim mdl ' thecurrent model

Set mdl =ActiveModel

If (mdl IsNothing) Then

MsgBox "没有活动的模版"

End If

 

Dim HaveExcel

Dim RQ

RQ = vbYes'MsgBox("Is Excel Installed on your machine ?", vbYesNo +vbInformation, "Confirmation")

If RQ = vbYesThen

HaveExcel = True

' Open &Create Excel Document

Dim x1 '

Set x1 =CreateObject("Excel.Application")

x1.Workbooks.Open"C:\Users\axy