Jo, jag försöker konvertera ett Excel dokument på servern med följande kod:
Function ExcelToHTML(strExcelDoc, strHTMLDoc)
On Error Resume Next
'Starta konvertering
Dim objExcel
Set objExcel = CreateObject("Excel.Application")
'objExcel.Visible = FALSE
objExcel.WorkBooks.Open(strExcelDoc) 'path, filename and extension
check errors
If Err.Number <> 0 Then
ExcelToHTML = Err.Description
Else
objExcel.ActiveWorkBook.SaveAs
Filename = "& strHTMLDoc &",_
FileFormat = xlHTML,_
Password = "" ,_
WriteResPassword = "" ,_
ReadOnlyRecommended = True ,_
CreateBackup = False ,_
AccessMod = xlNoChange ,_
ConflictResolution = xlOtherSessionChanges ,_
AddToMru = False ,_
TextCodePage = False ,_
TextVisualLayout = False
'Close/Kill
objExcel.ActiveWorkBook.Close
objExcel.Quit
Set objExcel = Nothing
Men det enda den gör är att den skapar en fil som heter FALSE.xls på ett helt annat ställe. Och filen jag vill konvertera heter inte ens FALSE.xls!!!
Någon som har ett par tips att ge, det här skriptet har gett mig problem i 2 månader och all kodning för själva "SaveAs" kommer ifrån Microsoft MSDN, förstår inte vad som kan vara fel!