PowerDesigner excel导入table 批量修改批量删除批量添加

最新推荐文章于 2023-10-16 11:41:51 发布

原创

最新推荐文章于 2023-10-16 11:41:51 发布 · 993 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#powerdesigner

本文介绍了如何利用VBScript脚本在PowerDesigner中进行Excel表格导入、批量修改表前缀、批量删除和添加表字段的操作，提供了一种高效整理表结构的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

这几天使用了 PowerDesigner 来整理表结构，分享下。

下面，我们通过 VBScript脚本实现了 excel导入表字段、批量修改表前缀、批量添加表字段、批量添加表字段。

执行脚本：
ctrl + shift + x 打开运行VBS 代码窗口，粘贴脚本后，运行

1.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 "E:\temp\123.xls" '指定 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

on error Resume Next

set table = mdl.Tables.CreateNew '创建一个 表实体
table.Name = "Sheet1" '指定 表名，如果在 Excel文档里有，也可以 .Cells(rwIndex, 3).Value 这样指定
table.Code = "Sheet1" '指定