Excel ---- >> HTML?

Hej, jag ska konvertera excel filer från en asp sida men jag får följande fel när jag kör denna kod, fungerar utmärkt tillsammans med Word men när jag fösöker göra en liknande funktion för Excel dokument blir det fel!

Fel:

SaveAs-metoden i Workbook-klassen misslyckades

Kod:

Dim objExcel
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = FALSE
objExcel.WorkBooks.Open(strWordDoc) 'path, filename and extension

'check errors
If Err.Number <> 0 Then
ExcelToHTML = Err.Description
Else

Dim FileFormat
Dim LockComments
Dim Password
Dim AddToRecentFiles
Dim WritePassword
Dim ReadOnlyRecommended
Dim EmbedTrueTypeFonts
Dim SaveNativePictureFormat
Dim SaveFormsData
Dim SaveAsAOCELetter

FileFormat=102 'ändra nummer till 106 om Word 2000 används
LockComments=True
Password=""
AddToRecentFiles=False
WritePassword=""
ReadOnlyRecommended=False
EmbedTrueTypeFonts=False
SaveNativePictureFormat=True
SaveFormsData=False
SaveAsAOCELetter=False

objExcel.ActiveWorkBook.SaveAs strHTMLDoc, FileFormat, LockComments, Password, AddToRecentFiles, WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts,SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter

'check errors (this should be another routine)
If Err.Number <> 0 Then
Response.Write Err.Description & "<br>"
ExcelToHTML = Err.Description
Else
ExcelToHTML = "Konvertering genomförd"

  'Close/Kill
  objExcel.ActiveWorkBook.Close
  objExcel.Quit
  Set objExcel = Nothing

  'check errors (this should be another routine)
  If Err.Number \<\> 0 Then
     ExcelToHTML = Err.Description
  Else
     ExcelToHTML = "Konvertering genomförd"

  End If 'closing/killing Word Object Error Handling

End If 'creating active doc and converting Error Handling
End If 'opening Word Object Error Handling

End Function

P.S Det är inte fel på sökvägar o sånt!