Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("E:\VB\MXS.xls")
xlApp.Visible = True
就是打开EXCEL

解决方案 »

  1.   


    一张是直接打开EXCEL,一张是用VB打开EXCEL
      

  2.   

    没有太理解你的意思,,,直接打开 Excel 以及用 VB 来打开 Excel 会有什么区别吗?你说的(加载项)是在 Excel 选项里面调出来的哦
      

  3.   

        Set ex1 = CreateObject("excel.Application")
        Set exwbook = ex1.Workbooks().Open("E:\VB\MXS.xls")
        ex1.Visible = True并没有遇到你所说的问题~看截图你是用office2003~我是用office2010~不知道是不是版本问题
      

  4.   

    能共享一下加载项的dll和打开的xls吗?我这里没法重现.