ASP无法关闭的EXCEL - Web 开发 / ASP

附件地址http://download.csdn.net/source/2341319
   

由于这里不能上传附件，只能放在这里了

VB code:

<%

strAddr = Server.MapPath(".")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set f = objFSO.GetFile(strAddr&"\1.xls")
if f.attributes<>0 then
f.attributes = 0
end if
Set Excel_File = CreateObject("Excel.Application")
Excel_File.AutomationSecurity=3
Set Excel_WorkBook=Excel_File.Workbooks.open(strAddr&"\1.xls")
Set Excel_Sheet = Excel_WorkBook.Worksheets(1)
'Excel_Sheet.Range("A1" , "A2" ).EntireRow.Delete
'Excel_Sheet.Rows(UsedRange.Rows.count).Delete
If objFSO.FileExists(strAddr&"\Excel\1.xls") Then
objFSO.DeleteFile strAddr&"\Excel\1.xls",True
End If
Set objFSO = Nothing
Excel_WorkBook.SaveAs strAddr&"\Excel\1.xls"
Excel_WorkBook.Save
Excel_File.DisplayAlerts = False
Excel_WorkBook.Close
Excel_WorkBook.Close
Excel_File.Quit
Excel_File.Quit
Set Excel_Sheet = Nothing
Set Excel_WorkBook = Nothing
Set Excel_File = Nothing

%>



麻烦各位高手给看看为什么了

---

没人会么

---

在
  If objFSO.File