现有如下一段代码：
Private Sub Command1_Click()
Dim xls As Object, xlsBook As Object, xlsSheet As Object
Set xls = CreateObject("Excel.Application")
Set xlsBook = xls.Workbooks.Add("c:\" & Date & ".xls")
Set xlsSheet = xlsBook.Worksheets(1)
xlsSheet.Name = Timer
Open "c:\zzzz.txt" For Input As #100
r = 1
Do While Not EOF(100)
    Line Input #100, S
    D = Split(S, ",")
    For c = 0 To UBound(D)
        xlsSheet.Cells(r, c + 1) = D(c)
    Next
    r = r + 1
Loop
Reset
xlsBook.Close
xls.Quit
Set xls = Nothing
End Sub


运行后有如下问题：
1、生成文件：希望达到如果C盘没有日期.xls文件就自动生成并导入TXT文件内容，如果有日期.xls文件则打开文件新建Sheet导入TXT文件内容，不要覆盖；
2、保存文件：希望达到默认保存不出现提示的效果；
3、清除进程：希望达到这段程序运行完毕后，进程中的“EXCEL”也随之关闭的效果。

希望前辈们或在该程序中修改，或帮忙重新写一段代码，我卡在这里好几天了。
多谢各位了！！

附zzzz.txt文件以供测试

[此贴子已经被作者于2017-7-31 23:10编辑过]

这个问题在哪呢？ 后面半句“如果有日期.xls文件则打开文件新建Sheet导入TXT文件内容，不要覆盖”你自己确定一个命名规则，放在代码里面就可以了。
Set xlsBook = xls.Workbooks.Add
' 中间操作的代码 ……
xlbook.SaveAs Filename 'Filename 就是你自己定义的文件，注意这里是全路径

上面这段代码不会出现提示。默认保存，因为没有确定文件名，必然要出现保存窗口要求输入文件名，不管是VB还是excel中手动操作都是这样。


你的代码好像是没有问题的，执行完之后进程也应该是没有了。估计你出现这个问题至因为代码没有完整执行，中途中断了。