on error resume next
sub  DelAllFile(folderspec)  
        Dim fso,   f,   f1,   fc,   s  
        Set fso   =   CreateObject("Scripting.FileSystemObject")  
        Set f   =   fso.GetFolder(folderspec)  
        Set fc   =   f.Files    
        For Each   f1   in   fc  
              fso.deletefile(f1)  
              if err.number<>0   then 
                exit   sub
              end   if 
        Next  
      set fso=nothing     
End  sub  

function getTemporaryFile(myFileSystem)
dim tempFile,dotPos
tempFile=myFileSystem.getTempName
dotPos=instr(1,tempFile,".")
getTemporaryFile=mid(tempFile,1,dotPos)&"xls"
end function

set objExcel=CreateObject("Excel.Application")
objExcel.Workbooks.Open(server.mappath("book")&"1.xlt") '打开Excel模板
objExcel.Sheets(1).select '选中工作页
set sheetActive=objExcel.ActiveWorkbook.ActiveSheet
sheetActive.range("g4").value=date() '这里添加的是时间，当然也可以是你指定的任何数据
sheetactive.cells(2,3)="success"   

set myFs=createObject("scripting.FileSystemObject")
filePos=server.mappath("\") & "\tmp\" '要存放打印临时文件的临时目录
fileName=getTemporaryFile(myFs) '取得一个临时文件名

 
DelAllFile(filePos)

'myFs.DeleteFile filePos&"*.xls" '删除该目录下所有原先产生的临时打印文件
set myFs=nothing

objExcel.ActiveWorkbook.saveas filePos&filename
objExcel.quit
set objExcel=Nothing

%>