数据导出自动保存问题（关于vb与excel）

[lindqp]

首先定义
Set xlApp = CreateObject("Excel.Application")
Set xlBook = Nothing
Set xlSheet = Nothing
Set xlBook = xlApp.Workbooks().Add
Set xlSheet = xlBook.Worksheets("sheet1")
数据导出后使用
xlApp.Application.Visible = false
不显示excel窗口,但是系统已经自动打开excel进程，如果使用xlBook.SaveAs c:\filename.xls 如此文件已经存在不能自动覆盖原文件。还有导出后的excel进程怎么自动关闭
使用
Set xlApp = Nothing '"交还控制给Excel
Set xlBook = Nothing
Set xlSheet = Nothing
后发现excel进程任然存在。
注：如将xlApp.Application.Visible = true，显示出导出数据并打开excel窗口，无此问题。
问：怎么自动保存导出文件并关闭excel进程！

[lindqp]

定义的内容copy错误
应该是：
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlQuery As Excel.QueryTable

[battlet]

我也有同样的问题，谁能在一个星期内解决我再给200分！~
各位高手快出手吧，谢谢啦~

[battlet]

up
.........

[chenyu5188]

UP

[faib920]

xlApp.Quit
Set xlApp =Nothing
Set xlBook = Nothing
Set xlSheet = Nothing

[ww_wyc]

装个Excel的帮助看看不就明白了吗

[FreshAir]

1.自动关闭EXCEL进程：
xlApp.Application.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

2.覆盖已存在文件：
strFile = "c:\filename.xls"
If Dir(strFile) <> "" Then
Kill strFile
End If
xlBook.SaveAs strFile