Option Explicit ValidationMode = True InteractiveMode = im_Batch Dim mdl Set mdl = ActiveModel If(mdl Is Nothing) Then MsgBox " there is no current model" ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then MsgBox " there is not an physical data model" Else ProcessFolder mdl End If Private sub ProcessFolder(folder) Dim Tab for each Tab in folder.tables Dim col for each col in tab.columns MsgBox "table "+ tab next next End sub
vbs
猜你喜欢
转载自ning2-eye.iteye.com/blog/2040398
今日推荐
周排行