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!