powerdesigner导出字段信息的vba脚本

导出字段等信息（在pd中执行如下脚本，部分地方需要修改）

Option Explicit
ValidationMode = True
InteractiveMode = im_Batch

'on error resume next

Dim mdl ' the current model

' get the current active model
Set mdl = ActiveModel
If (mdl Is Nothing) Then
   MsgBox "There is no current Model"
ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
   MsgBox "The current model is not an Physical Data model."
Else
   ProcessFolder mdl
End If

' This routine copy name into code for each table, each column and each view
' of the current folder
Private sub ProcessFolder(folder)
   Dim tab 'running  table  
   Dim col 'running column
   Dim v_datatype,v_length,v_precision,v_primarykey,v_null,v_flag
   Dim text
   Dim system, file
   Set system = CreateObject("Scripting.FileSystemObject")

  ' Open mode constants...
  Dim ForReading, ForWriting, ForAppending
  ForReading   = 1 ' Open a file for reading only. You can't write to this file.
  ForWriting   = 2 ' Open a file for writing.
  ForAppending = 8 ' Open a file and write to the end of the file.


  Set file = system.OpenTextFile("E:\export.log", ForAppending, true)
   for each tab in folder.tables
      if not tab.isShortcut Then
           IF instr(tab.code,"cust")>0 THEN
           for each col in tab.columns
                if col.Primary=true then '主键判断
                     v_primarykey = 1
                     v_null= 0
                else
                     v_primarykey = 0
                     v_null= 1
                end if
               
                v_dataType = uCase(Col.DataType)
                v_length = col.length  '取数据类型长度
                v_precision= col.precision  '取数据类型精度
               
                if  instr(v_dataType,"VARCHAR")>0 Then   '数据类型判别
                     v_dataType = 12
                elseif instr(v_dataType,"DECIMAL")>0 Then
                     v_dataType = 3
                elseif  instr(v_dataType,"INTEGER")>0 Then
                     v_dataType = 4
                end if
               
                'if v_dataType = 4 then
                '     v_length =16
                '     v_precision = 3
                'end if
               
            
                text = tab.code&":"&col.code&":"&v_datatype&":"&v_length&":"&v_precision&":"&v_primarykey&":"&v_null&":"&col.code&":"&v_flag&vbCrLf
                    file.Write text
           
               next
               end if
      end if
   Next
   file.Close
   output "处理结束!"
end sub