说明:近期做部分表结构设计,在word里设计调整好了,需要整理到PowerDesigner中,但是手工录入太麻烦。
找了个工具(地址:http://www.cnblogs.com/hwaggLee/p/5542078.html),将其做了部分修改和完善,并支持多个表同时导入。
使用方法:
1、整理Excel。文件名为Temp.xlsx,放到D:根盘目录下。每个sheet页是一个表,格式如下:
2、打开PowerDesinger,新建模型
3、打开命令执行功能。
4、将脚本复制到窗口中,点Run,生成PD结构
附:脚本文件
'开始
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:\Temp.xlsx"
'指定 excel文档路径
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 sheetIndex
on error
Resume
Next
For
sheetIndex = 1
To
200
'指定要遍历的 Sheet
x1.Workbooks(1).Worksheets(sheetIndex).Activate
'指定要打开的sheet名称
With
x1.Workbooks(1).Worksheets(sheetIndex)
If
.Cells(1, 1).Value =
""
Then
Exit
For
End
If
set table = mdl.Tables.CreateNew
'创建一个 表实体
table.Name = .Cells(1, 2).Value
'指定 表名,如果在 Excel文档里有,也可以 .Cells(rwIndex, 3).Value 这样指定
table.Code = .Cells(1, 4).Value
'指定 表名
count = count + 1
For
rwIndex = 3
To
1000
'指定要遍历的 Excel行标 由于第2行是列的 表头, 从第3行开始
If
.Cells(rwIndex, 1).Value =
""
Then
Exit
For
End
If
set col = table.Columns.CreateNew
'创建一列/字段
'MsgBox .Cells(rwIndex, 1).Value, vbOK + vbInformation, "列"
If
.Cells(rwIndex, 1).Value =
""
Then
col.Name = .Cells(rwIndex, 2).Value
'指定列名-----如果第1列(Name)为空,则显示第2列的Code
Else
col.Name = .Cells(rwIndex, 1).Value
End
If
'MsgBox col.Name, vbOK + vbInformation, "列"
col.Code = .Cells(rwIndex, 2).Value
'指定列名-------第2列是Code
col.DataType = .Cells(rwIndex, 3).Value
'指定列数据类型-----第3列是类型
col.Comment = .Cells(rwIndex, 5).Value
'指定列说明-------第5列是列说明
If
.Cells(rwIndex, 4).Value =
"否"
Then
col.Mandatory = true
'指定列是否可空 true 为不可空 ------第4列指定列是否允许为空
End
If
If
rwIndex = 3
Then
col.Primary = true
'指定主键-------第3行是主键列
End
If
Next
MsgBox
"生成数据 表结构共计 "
+
CStr
(count), vbOK + vbInformation,
" 表"
End
With
Next
Exit
Sub
End
sub
|
说明:
可进一步完善,将类型和长度分开、增加精度、表说明等等。