用asp向excel单元格中写入数据(只写了50条)狂慢,超时错误,如何解决

Question

代码如下:(不写入数据的话不慢)  
set objexcelApp=server.CreateObject("Excel.Application")
    objexcelapp.WorkBooks.open ("e:\ajdy.xls")   
set objexcelBook=objexcelapp.activeWorkBook 
set objexcelsheets=objexcelBook.worksheets
set objexcelsheet=objexcelBook.sheets(1)
i=0
do while not objrs.eof
    for j=1 to  15
  if not isnull(objrs.fields(j-1).value) then
     objexcelsheet.cells(i,j)=objrs.fields(j-1).value
  else 
     objexcelsheet.cells(i,j)=""
      end if
next
i=i+1 
loop       
   objexcelsheet.printout
   objexcelapp.quit
   set objexcelapp=nothing

Answer 1

ctrl+alt+del 看看有几个excel.application