向所有的高手求救,解决EXCEL不能完全退出的问题

rogertian

在ACCESS调用EXCEL生成文件后,EXCEL并不能完全退出.找了很多这方面的资料,按着去做,但并不可以.有谁有好的方面直接杀掉驻留在内存里面的EXCEL?

注意:我己经在程序最后加上了XLAPP.QUIT

zhuyiwen

    Dim xlApp As Excel.Application
    Dim xlBook As Workbook, xlSheet As Worksheet
    Set xlApp = CreateObject("Excel.Application")
    Set xlApp = New Excel.Application
    xlApp.Visible = True

下面两句是一样的:
    Set xlApp = CreateObject("Excel.Application")
    Set xlApp = New Excel.Application

这里打开了两个EXCEL应用,只要其中的一句,即可
注:第一句为后期绑定,第二句为前期绑定, 两句实现同一个目的, 后者较快.

建议抄别人的代码的时候,一定要理解,否则漏洞百出!

[此贴子已经被作者于2004-1-6 12:43:47编辑过]

rogertian

我无论注释掉哪一句话,都可以看到有一个EXCEL的程序驻留在内存里面.还是不行.

我要飞

在QUIT之前加一句：xlApp = Nothing

anthony

不行,我写过set xlApp = Nothing ,如果放在XLAPP.QUIT之前,XLAPP.QUIT这句就会出错的.

anthony

??

[此贴子已经被作者于2004-1-6 17:12:51编辑过]

rogertian

有谁愿意帮我看一看,我把源程序发给他.现在这个程序太大了.压缩后都有快3M了,不能上传.

zhuyiwen

运行了你贴的程序,没有你所说的情况

rogertian

以下是引用zhuyiwen在2004-1-6 17:30:01的发言：
运行了你贴的程序,没有你所说的情况

如果程序中只写入数据,是没有问题的,但如果把EXCEL定义的宏生成的VBA写进来,定义单元格格式时就会出错了.因为数据大多了,我就拆出来这个有问题的地方,上传请大家再看一看.连续生成两次EXCEL就会出错.

应该是EXCEL生成的VBA的问题.

anthony

试试.
Public xlsApp As New excel.Application
Public xlsBook As New excel.Workbook
Public xlsSheet As New excel.Worksheet

Private Sub ExportExcel()

        Set xlsApp = New excel.Application
        Set xlsBook = xlsApp.Workbooks.Add
        Set xlsSheet = xlsBook.Worksheets.Add
        
        xlsSheet.Application.Visible = True
        
        ' 页眉页脚
        ExportPageHeaderFooter xlsSheet
        
        ' 栏格式
        SheetColumnsFormat xlsSheet
        
        ' 主表体
        ExportMainBody xlsSheet, 1, True        
        
        ' 设定页面
        SetPrintPage xlsSheet
        xlsSheet.PageSetup.Orientation = xlLandscape
        
        Set xlsApp = Nothing
        Set xlsBook = Nothing
        Set xlsSheet = Nothing
        
End Sub