VB 导出数据到EXCEL并自动保存文件

在导出数据到EXCEL的时候，有些机子可以保存成功，有些机子会提示以下的错误，不知哪里出错了，该如何修改呢？（数据可以成功导出到EXCEL，但就是不能自动保存）

xlBook.SaveAs FileName:=App.path & "\" & strFolder & "\" & strFilename & ".xls", FileFormat:=xlExcel8

vb excel

补充：VB ,  VBA