Backer456

确保文件名唯一  
strFileName  =  Session.SessionID  &  ".xls"  
strAppPath  =  Request.ServerVariables("PATH_TRANSLATED")  
strAppPath  =  Left(strAppPath,  InstrRev(strAppPath,  "\"))  
strFullPath  =  strAppPath  &  strFileName  
'保存文件  
myWorkbook.SaveAs(strFullPath)  
'关闭Excel  
myWorkbook.Close  
xlApp.Quit  
set  myWorksheet  =  Nothing  
set  myWorkbook  =  Nothing  
set  myxlApp  =  Nothing  
'写出到浏览器中  
Response.Redirect  strFileName