excel转换pdm文件脚本

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.Application.Visible = True
   x1.Workbooks.Open "e:\t_mr_diag1.xls"
   'x1.Workbooks(1).Worksheets("Sheet1").Activate
Else
   HaveExcel = False
End If




a x1, mdl

sub a(x1, mdl)
dim rwIndex