If wsNew.Application.Version = "11.0" Then '判定是否为2003
wsNew.SaveAs(strSavePath) Else wsNew.SaveAs(strSavePath, MSExcel.XlFileFormat.xlExcel8) End If