[已解决]不能关闭打开的Excel进程

winwiner

configdata.zip (3.6 KB, 下载次数: 8)

2012-2-12 10:02 上传

点击文件名下载附件
请教各位：
见下面3段代码：
第一段和第二段代码都可以将打开的Excel.exe 进程关闭，
第三段代码不能够将Excel.exe进程关闭，每运行一次就会增加一个Excel.exe 进程
请问这是为什么？如何可以解决？
附件已更新上。
拜谢各位！

第一段
Private Sub Command2_Click()
    Dim xl
    Set xl = CreateObject("Excel.Application")
    xl.Visible = True
    xl.Application.Quit
    Set xl = Nothing
End Sub

第二段
Private Sub Command3_Click()
    Dim xl
    Set xl = CreateObject("Excel.Application")
    xl.Visible = True
    xl.Quit
    Set xl = Nothing
End Sub

第三段
Private Sub Command4_Click()
    On Error Resume Next
   
    Dim fileaddress()
    Dim path As String
    path = "C:\configdata.xls"
   
    Dim i As Integer, k As Integer
   
    Dim gxl1 As Object, gbook1 As Object, gwkssheet1 As Object, cell1 As Object, cell2 As Object
    Set gxl1 = CreateObject("Excel.Application")
    On Error GoTo 0
   
    gxl1.Visible = True
    gxl1.DisplayAlerts = False
   
    '打开配置文件，读取数据
    Set gbook1 = gxl1.Workbooks.Open(path)
    Set gwkssheet1 = gbook1.Sheets("Sheet1")
   
    Set cell1 = gwkssheet1.Range("A2")
    Set cell2 = gwkssheet1.Range("A65536").End(xlUp)
    k = cell2.Row - 1
    ReDim fileaddress(1 To k)
    For i = 1 To k
        fileaddress(i) = Cells(cell1.Row + i - 1, 1).Value
    Next
   
    gbook1.Close
    gxl1.Application.Quit
    config = fileaddress
    Set cell1 = Nothing
   Set cell2 = Nothing
   Set gwkssheet1 = Nothing
   Set gbook1 = Nothing
   Set gxl1 = Nothing
   Erase fileaddress
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2012-2-12 14:15

我这运行正常，可以按代码关闭文件和Excel。
1楼的语句是否删除了中间什么语句了？否则毫无意义呀。
另：
你这句语句
fileaddress(i) = Cells(cell1.Row + i - 1, 1).Value
似乎应该改成
fileaddress(i) = gwkssheet1.Cells(cell1.Row + i - 1, 1).Value
否则无法得到数据

跳转到最佳答案楼层

zjdh

估计问题在configdata.xls中，只有上传文件才能分析！

wenchduan

有个附件明了些呢

zjdh

我这运行正常，可以按代码关闭文件和Excel。
1楼的语句是否删除了中间什么语句了？否则毫无意义呀。
另：
你这句语句
fileaddress(i) = Cells(cell1.Row + i - 1, 1).Value
似乎应该改成
fileaddress(i) = gwkssheet1.Cells(cell1.Row + i - 1, 1).Value
否则无法得到数据

winwiner

附件文件附上，请各位老师指导。
这里先拜谢了！

winwiner

zjdh 发表于 2012-2-12 14:15
我这运行正常，可以按代码关闭文件和Excel。
1楼的语句是否删除了中间什么语句了？否则毫无意义呀。
另： ...

非常感谢zjdh的帮助。
问题就是在这一句上，fileaddress(i) = Cells(cell1.Row + i - 1, 1).Value
加上gwkssheet1运行就没有问题了。
谢谢。

上面的代码摘自VB调用Excel程序的一部分，又是针对问题调试用的，所以显得没有意义。
再次感谢zjdh的帮助！{:071:}