从Excel导入Powerdesigner的方式

今天用了powerDesigner的Excel导入,发现些问题,就此总结一下:

 

首先:必须要使用 ACCESS数据库的建立物理模型:

其次:使用快捷键ctrl+shift+x条用VBS命令脚本,(路径和表数量需要手动修改):

脚本如下:

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:\work\Workspaces\PowerDesigner 15\Excel导入逆向工程(示例).xlsx" '指定 excel文档路径
   x1.Workbooks(1).Worksheets("Sheet1").Activate '指定要打开的sheet名称
Else
   HaveExcel = False
End If

a x1, mdl

sub a(x1, mdl)
dim rwIndex 
dim tableName
dim colname
dim table
dim col
dim count
Dim i

'on error Resume Next
For i=1 to 2 '指定要导入的sheet的个数
   set table = mdl.Tables.CreateNew '创建一个 表实体
   count = count+1
For rwIndex=1 To 200 step 1 '指定遍历的Excel行标
With x1.Workbooks(1).Worksheets(i) '定义需要写入的表结构所在的sheet
'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
      table.Name = .Cells(rwIndex,1).Value '指定 表名,如果在 Excel文档里有,也可以 .Cells(rwIndex, 3).Value 这样指定
      table.Code = .Cells(rwIndex,2).Value '指定 表名
      'tabale.DefaulValue = .Cells(rwIndex,6).value
   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 '指定列数据类型
      'col.DefaultValue = .Cells(rwIndex,6).Value '指定列数据类型
      '设置主键
      If.Cells(rwIndex,4).Value = "Primary Key" Then
      col.Primary=true
      End If
      '设置空值
      If.Cells(rwIndex,4).Value <> "Primary Key" Then
	If.Cells(rwIndex,5).Value="NOT NULL"Then
      		col.Mandatory=true
	End If
      End If
   End If
End With

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

Exit Sub
End sub

导入的表格格式如:

中文表名baseTable5   
namecodetypePKEYIS NULL
a阿斯蒂芬aint(10)Primary KeyNOT NULL
阿斯蒂芬bvarchar(10)  

 

 不过注意在EXCEL是有合并单元格的情况的要注意,是读取出错的,

另外,Mandatory的属性设置是跟primary有冲突

所以要避免两个一起设置

所以才有这段判断:

      '设置空值
      If.Cells(rwIndex,4).Value <> "Primary Key" Then
	If.Cells(rwIndex,5).Value="NOT NULL"Then
      		col.Mandatory=true
	End If
      End If

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值