<%
on error resume next
dim straddr
straddr=server.MapPath(".")
dim objExcelapp
set objExcelapp=server.CreateObject("excel.application")
objexcelapp.workbooks.open(straddr&"\test.xls")
dim objexcelbook,objexcelsheets,objexcelsheet
set objexcelbook=objexcelapp.activeworkbook
set objexcelsheets=objexcelbook.worksheets
set objexcelsheet=objexcelbook.sheets(1)
objexcelsheet.cells(13,5).value=111111
'objexcelbook.save '为什么不加这一句老是出现死进程?我不想存盘啊!还有用'objexcelbook.saveas straddr&"\temp.xls"也有错!
set objexcelsheet=nothing
set objexcelbook=nothing
set objexcelsheets=nothing
objexcelapp.quit
set objExcelapp=nothing
%>