通过Excel生成PowerDesigner表结构设计

Posted 闲汉

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了通过Excel生成PowerDesigner表结构设计相关的知识,希望对你有一定的参考价值。

说明:近期做部分表结构设计,在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

  说明:

  可进一步完善,将类型和长度分开、增加精度、表说明等等。

 

以上是关于通过Excel生成PowerDesigner表结构设计的主要内容,如果未能解决你的问题,请参考以下文章

powerdesigner 生成sql脚本

如何使用powerdesigner建数据表并生成脚本

数据库表结构转成设计书,PowerDesigner 表格导出为excel

PowerDesigner导出数据表结构到Excel 所有表结构在同一个Sheet中

PowerDesigner生成数据库表和逆向生成表结构(MySQL数据库)

PowerDesiginer导入表结构excel