10 从Excel打开一个 pdi文件

前面既然可以打开 piw文件，现在要打开pdi文件也就不是难事了

对象换成pdi

Private Sub CommandButton2_Click()

Set appX = GetObject(, "piprocessbook.application.2")

If appX Is Nothing Then
Set appX = CreateObject("piprocessbook.application.2")
End If

AppActivate ("PI ProcessBook")

Set disY = appX.ProcBooks.Open("E:\test.pdi")

End Sub