Excel afslutter ikke

Hej Eksperter!

Jeg har en funktion, som tager nogle data fra en formular og indsætter i et Excel-dokument.

Det ser desværre ud til, at Excel-programmet ikke altid afslutter igen. Pludselig har jeg så 10-12 processor hængende på serveren, hvilket medfører, at funktionen pludselig ikke vil køre. Ved at dræbe de igangværende processor kører funktionen igen.

Min kode ser således ud:

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(strExcelFile)

    objExcel.Visible = True
   
    intStartRow = objWorkbook.Sheets(1).UsedRange.Rows.Count + 2


    objExcel.Application.Cells(intStartRow,1).Value = Request.Form("Navn")
    objExcel.Application.Cells(intStartRow,2).Value = Request.Form("Adresse")
    objExcel.Application.Cells(intStartRow,3).Value = Request.Form("Postnummer")
    objExcel.Application.Cells(intStartRow,4).Value = Request.Form("Bynavn")
    objExcel.Application.Cells(intStartRow,5).Value = Request.Form("Telefon")
    objExcel.Application.Cells(intStartRow,6).Value = Request.Form("Fax")
    objExcel.Application.Cells(intStartRow,7).Value = Request.Form("Email")
   
    objExcel.Application.Cells(intStartRow,9).Value = Request.Form("KontaktpersonNavn")
    objExcel.Application.Cells(intStartRow,10).Value = Request.Form("KontaktpersonStilling")
    objExcel.Application.Cells(intStartRow,11).Value = Request.Form("KontaktpersonTelefon")
    objExcel.Application.Cells(intStartRow,12).Value = Request.Form("KontaktpersonEmail")
   
           
    arrKlasseNavn = Split(Replace(Request.Form("KlasseNavn"), ", ", ","), ",")
    arrKlasseAntalElever = Split(Replace(Request.Form("KlasseAntalElever"), ", ", ","), ",")
   
    arrKlasselaererNavn = Split(Replace(Request.Form("KlasselaererNavn"), ", ", ","), ",")
    arrKlasselaererTelefon = Split(Replace(Request.Form("KlasselaererTelefon"), ", ", ","), ",")
    arrKlasselaererEmail = Split(Replace(Request.Form("KlasselaererEmail"), ", ", ","), ",")
   
    arrMusiklaererNavn = Split(Replace(Request.Form("MusiklaererNavn"), ", ", ","), ",")
    arrMusiklaererTelefon = Split(Replace(Request.Form("MusiklaererTelefon"), ", ", ","), ",")
    arrMusiklaererEmail = Split(Replace(Request.Form("MusiklaererEmail"), ", ", ","), ",")


    For i = 0 To UBound(arrKlasseNavn)
   
        objExcel.Application.Cells(intStartRow,14).Value = arrKlasseNavn(i)
        objExcel.Application.Cells(intStartRow,15).Value = arrKlasseAntalElever(i)
   
        objExcel.Application.Cells(intStartRow,17).Value = arrKlasselaererNavn(i)
        objExcel.Application.Cells(intStartRow,18).Value = arrKlasselaererTelefon(i)
        objExcel.Application.Cells(intStartRow,19).Value = arrKlasselaererEmail(i)
       
        objExcel.Application.Cells(intStartRow,21).Value = arrMusiklaererNavn(i)
        objExcel.Application.Cells(intStartRow,22).Value = arrMusiklaererTelefon(i)
        objExcel.Application.Cells(intStartRow,23).Value = arrMusiklaererEmail(i)
   
        intStartRow = intStartRow + 1
           
    Next


    objExcel.ActiveWorkbook.Save
    objWorkBook.Close
   
Set objWorkbook = Nothing
objExcel.Application.Quit

Håber nogen kan hjælpe!

På forhånd tak!