使用vb将excel导入PowerDesigner,生成表结构

PowerDesigner导入Excel

1、设计表

095556_4AYi_2903180.png

2、脚本编写

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:\docs\data\bid.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 = 2 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

3、 打开PowerDesigner,创建物理模型(Physical Data Model)

4、在PowerDesigner菜单栏中,依次点击“Tools ->Excute Commands->Edit/Run Script..”

Center

5、script脚本拷贝到运行页面,点击Run,运行即可

6、PowerDesigner生成数据字典参考:http://blog.csdn.net/jyf0412/article/details/21900075

转载于:https://my.oschina.net/maojindaoGG/blog/1789696

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 扫一扫,分享海报

表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值