现有如下一段代码：
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编辑过]