PowerDesigner16通过导入excel生成数据表
一、准备工作
- 电脑安装PowerDesigner16;
- 准备好要导入的excel;
如下图所示:
【注:第二行的列名可根据自身需求定!】
二、PowerDesigner16工作空间
打开PowerDesigner16软件,在工作空间中:
01、点击:菜单栏文件——>新建模型——>Model types——>Physical Data Model; (如下图)
02. 脚本(可根据你的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
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 "C:\Users\