Dim xlapp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet'Set xlapp = New Excel.Application
Set xlapp = CreateObject("excel.application")
   
Set xlBook = xlapp.Workbooks.Add
Set xlSheet = xlBook.Sheets(1)
      
xlapp.Visible = True
xlSheet.Cells(1, 1) = "yang"
Set xlapp = Nothing
-----------------------------
当我关闭book1(注意不是直接关闭整个excel,只是按book1右上方的关闭按钮),系统就会提示出错,但office2000下一切正常,请问大家遇到过这类问题吗?
---------
还有使用Set xlapp = New Excel.Application或
Set xlapp = CreateObject("excel.application")效果是否一样,他们有无不同之处.

解决方案 »

  1.   

    Dim xlapp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet'Set xlapp = New Excel.Application
    Set xlapp = CreateObject("excel.application")
       
    Set xlBook = xlapp.Workbooks.Add
    Set xlSheet = xlBook.Sheets(1)
          
    xlapp.Visible = True
    xlSheet.Cells(1, 1) = "yang"xlapp.quit          '不要set = nothing?
      

  2.   

    首先表示感谢,但我的开发思路是这样的,生成excel的同时
    通过visible=true,让用户自己修改excel内容,选择是打印还是保存.
    如果那样的话我就不能直接使用QUIT了,如果我QUIT的话,客户还得再重新打开一次excel,而且你还要告诉用户文件的路径.