excel表设计模型转powerdesigner pdm模型

前言

最近使用excel设计表结构，想根据表结构在powerdesigner生成pdm模型，进而生成sql语句。一开始每个表都去复制粘贴，由于表数量太多，最终放弃，考虑使用脚本的方式直接转换。网上普遍使用vb脚本完成这个功能，由于vb我并没学过，所以在别人代码的基础上稍加修改，为自己所用。代码不可能完美，只为满足功能需要，如有错误，敬请谅解。

代码

Option Explicit

Dim excelPath,colNameIndex,colCommentIndex,colTypeIndex,colTypeLengthIndex,colIsPrimaryKeyIndex,colIsNotNullIndex,colDefaultValueIndex,colMultiValueIndex

'......修改区域......
excelPath = "D:\develop\测试excel.xlsx" 'excel文件路径（路径根据实际情况）
colNameIndex = 1 '字段名下标（下标根据实际情况）
colCommentIndex = 2 '字段注释下标（下标根据实际情况）
colTypeIndex = 3 '字段类型下标（下标根据实际情况）
colTypeLengthIndex = 4 '字段类型长度下标（下标根据实际情况）
colIsPrimaryKeyIndex = 5 '是否主键下标（下标根据实际情况）
colIsNotNullIndex = 6 '是否唯一下标（下标根据实际情况）
colDefaultValueIndex = 7 '默认值下标（下标根据实际情况）
colMultiValueIndex = 8 '多值下标（下标根据实际情况）
'......修改区域......

Dim mdl,x1sApp,xlsWorkBook,xlsSheet

Set mdl = ActiveModel
If (mdl Is Nothing) Then
    MsgBox "There is no Active Model"
End If
'打开excel文档