PowerDesigner Excel导入信息

今天在工作中遇到设计数据库模型，因为字段太多，所以找到了批量导入的方法，现记录一下。

首先excel的格式为字段名，中文字段名，以及数据类型长度。

PowerDesigner中的脚如下:

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:\ta.xls" ----------------------这里为你excel所在的文件位置x1.Workbooks(1).Worksheets("Sheet1").Activate
ElseHaveExcel = False
End If a x1, mdl sub a(x1,mdl)
dim rwIndex
dim tableName
dim colname
dim table
dim col
dim count 'on error Resume Next
For rwIndex = 1 To 1000 step 1   With x1.Workbooks(1).Worksheets("Sheet1")'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 set table = mdl.Tables.CreateNew table.Name = .Cells(rwIndex , 1).Value table.Code = .Cells(rwIndex , 2).Value count = count + 1  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 End If End With
Next MsgBox "生成数据表结构共计" + CStr(count), vbOK + vbInformation, "表" Exit Sub
End sub

导入脚本

打开PowerDesigner中的脚本编辑器，ctrl+x，复制代码点击执行即可。

##执行成功后，选中物理模型，鼠标右键选择show symbols，显示模型就可以显示物理表模型。

加粗样式

PowerDesigner Excel导入信息相关推荐

powerdesigner辅助导入导出excel文件
在数据库建模中会用到Powerdesigner软件进行表结构的设计,有时候我们需要将Excel里面的表结构导入到Powerdesigner中生成模型文件,或者将Powerdesigner中已有的模型导 ...
在线表单信息收集+word模板展示信息（excel收集信息word打印）Excel一行或者多行信息导入word打印
在日常工作中,经常需要统计信息或者说收集信息,收集信息几个小技巧 1.有个编号,简单一半,按001这样的编下去,一排序,马上知道哪个交了,哪个没交 2.用excel收集,效率更高同样一个表格,比如通 ...
PowerDesigner 数据模型导入导出 Excel
目录导出数据模型导出成 Excel 导入 Excel 导入成数据模型附:PowerDesigner16.5 安装包地址链接:https://pan.baidu.com/s/1-JC2QF727 ...
10w 行级别数据的 Excel 导入优化记录
点击上方蓝色"方志朋",选择"设为星标"回复"666"获取独家整理的学习资料! 作者 | 后青春期的Keats 来源 | https://w ...
10w行级别数据的Excel导入优化记录
点击上方"方志朋",选择"设为星标" 回复"666"获取新整理的面试文章作者:后青春期的Keats www.cnblogs.com/kea ...
将 Microsoft Excel 导入至 MySQL
将 Microsoft Excel 导入至 MySQL 一.前言我得到了一份 Microsoft Excel 表格,里面记录了数据信息需要导入至 SQL 数据库. 如果只是导入数据,当然用 MSSQ ...
easypoi实现Excel导入
最近做的一个项目用到了Excel导入,我选择了使用easypoi进行Excel解析. 1.前期准备如果使用maven等项目管理工具,在配置文件pom.xml中,添加以下三个依赖: <depen ...
import excel to mysql_将 Microsoft Excel 导入至 MySQL
将 Microsoft Excel 导入至 MySQL 一.前言我得到了一份 Microsoft Excel 表格,里面记录了数据信息需要导入至 SQL 数据库. 如果只是导入数据,当然用 MSSQ ...
关于Excel导入的问题记录
当Excel导入成为需要时,之前的导出Excel为html方式的方法就受阻了,于是,需要开始新的百度与google来解决问题. 前提为OLEDB+Excel. 根据需求,多数是对于表的数据的导入.于是 ...

PowerDesigner Excel导入信息

导入脚本

PowerDesigner Excel导入信息相关推荐

最新文章

热门文章