我想通过一段代码，检查目录下一个excel文件是否存在，如果存在就打开，如果不在则打开目录地下的模板，下面这段代码执行结果是，如果目录地下有这个文件可以执行，成功的进行下一步代码，可是如果没有这个文件，excel好像也就闪一下，没有打开模板然后就关闭了，为什么啊，请高手解惑，谢谢
Dim patch,filename
filename=CStr(Year(Now))&CStr(Month(Now))&CStr(Day(Now))
patch= "C:\"&filename&".xls"
Set objExcelApp =CreateObject("Excel.Application")
objexcelapp.Visible=True
If objExcelApp.fileexists(patch) Then

objExcelApp.Workbooks.Open (patch)
Else
objExcelApp.Workbooks.Open ("C:\moban.xls")
End If
。。。。。
objExcelApp.ActiveWorkbook.SaveAs patch
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp= Nothing