请问:如何同时打开两个Excel应用程序,用他们同时打开不同表格文件?谢谢!

解决方案 »

  1.   

    dim ex1,ex2
    set ex1=createobject("excel.application")
    set ex2=createobject("excel.application")
    dim wb1,wb2
    set wb1=ex1.workbooks.open("....xls")
    set wb2=ex2.workbooks.open("...xls")
    ex1.visible=true
    ex2.visible=true
      

  2.   

    以上是VBS,VB定义变量要明确一些!如:dim ex1 as excel.application
      

  3.   


    谢谢,两位!
    Excel这样的应用程序没有问题,可是我做Catia二次开发时就不行!其实,和Excel做法一样。
    我是运行程序,窗体打开时,启动一个Catia,然后再点击Command1启动另一个Catia并打开文件。现在我只能启动一个Catia,就是窗体打开时的,用它打开我的文件!Private Sub Command1_Click()
            Dim CATIANew As INFITF.Application
            Set CATIANew = CreateObject("CATIA.Application")
            CATIANew.Visible = True
            Dim PPP As Document
            
            Set PPP = CATIANew.Documents.Open(PartF)
            MsgBox PPP.FullName
    End sub这是怎么回事?!