VB中调用Excel，当程序结束时如何保存文件呢？

Question

sFileName = App.path + "\temp*.xls"
    sTemp = Dir(sFileName)
    Do Until sTemp = ""
        On Error Resume Next
        Kill App.path + "\" + sTemp
        On Error GoTo 0
        sTemp = Dir
    Loop
先用上面一段程序把原程序的删除

Answer 1

如果是第一次保存使用saveas方法，否则在判断save属性为false后用save方法保存

Answer 2

xlbook是有SAVE和SAVEAS命令的，但是需要指定具体哪一个WORKBOOK
如下
XLAPP.Workbooks(i).Saved = True /FALSE 判断文件是否需要保存
XLAPP.Workbooks(I).SaveAs  文件名
如果你之打开一个文件的话  I 的值为1就行了