下面新建Excel应用程序对象的地方添加判断是否正确打开文件的代码
Set xlapp=CreateObject("Excel.Application") '创建Excel应用程序对象
Set xlbook=xlapp.Workbooks.Open(xlsname) '打开指定的文件
If IsEmpty(xlbook) then '如果xlbook对象为空
Set xlbook=xlapp.Workbooks.Add ' 新建工作簿
xlbook.SaveAs xlsname ' 新工作薄保存为指定文件名
End if