- 编写测试EXCEL,格式如图所示:
- 打开PowerDesigner,创建物理模型(Physical Data Model)
- 在PowerDesigner菜单栏中,依次点击“Tools ->Excute Commands->Edit/Run Script..”
- 修改脚本,指定excel所在路径及文件名
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 x1sApp,xlsWorkBook,xlsSheet
RQ = vbYes 'MsgBox("Is Excel Installed on your machine ?", vbYesNo + vbInformation, "Confirmation")
If RQ = vbYes