利用VBA把PowerDesigner的comment复制到name

Option   Explicit
'-------------------------------------------------------------------------------
'作用：PowerDesigner物理模型复制comment到name
'
'作者: Lio5n
'
'时间: 2015-12-22
'
'版本: V2.0
'
'注意：如果name有值，将会覆盖；可以重复执行，不会多次复制
'-------------------------------------------------------------------------------
ValidationMode   = True
InteractiveMode  = im_Batch

'----------------------------------请按需设置-----------------------------------

CONST   CopyType = "ONE"            '执行模式 [ ONE-单表 ALL-所有表 ]
CONST   TabCode  = "TabCode"        '单表模式下，表的Code
CONST   ViewCode = "ViewCode"       '单表模式下，视图的Code

'-------------------------------------------------------------------------------

Dim   mdl   '当前模型
Dim   Cnt   '处理个数
Cnt = 0

Set mdl = ActiveModel
If ( mdl Is Nothing ) Then
MsgBox "未找到活动的模型！"
ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
MsgBox "当前模型不是物理模型！"
Else
ProcessFolder mdl
MsgBox "执行完成，共检索 [ " + CStr(Cnt) + " ] 张表！"
End If

Private Sub ProcessFolder(folder)
On Error Resume Next

Dim Tab   '定义表
For Each Tab In folder.tables
If CopyType = "ONE" And UCase(Tab.code) <> UCase(TabCode) Then
ElseIf Not Tab.isShortcut Then
Cnt = Cnt + 1

'表处理
If Trim(Tab.comment) <> "" Then
Tab.name = Trim(Tab.comment)
End If

'字段处理
Dim Col
For Each Col In Tab.columns
If Trim(Col.comment) <> "" Then
Col.name = Trim(Col.comment)
End If
Next

End If
Next

'视图处理
Dim View
For Each View In folder.Views
If CopyType = "ONE" And UCase(View.code) <> UCase(ViewCode) Then
Else
If Not View.isShortcut Then
Cnt = Cnt + 1
If Trim(View.comment) <> "" Then
View.name = Trim(View.comment)
End If
End IF
End If
Next

'进入子floder
Dim f
For Each f In folder.Packages
If Not f.isShortcut Then
ProcessFolder f
End If
Next

End Sub