Script VBS - convertir xls en html
Résolu
Bonjour,
Voici mon problème.
Je souhaiterais automatiser la conversion de fichier Excel (.xls) en .html avec VBScript. La sauvegarde en .xls fonctionne, mais pas avec le paramètre xlHTML.
Voici mon code:
Set ObjExcel = CreateObject("Excel.Application")
Set ActiveWorkbook = ObjExcel.Workbooks.Open("C:\vols\vol.xls")
ObjExcel.visible = false
ObjExcel.DisplayAlerts = False
Filename = "vol"
ActiveWorkbook.SaveAs "C:\vols\test\", xlHTML
ObjExcel.Workbooks(1).Close
ObjExcel.DisplayAlerts = True
ObjExcel.Quit
Lors de l'execution avec "cscript.exe", il me renvoi:
(11,2)Microsoft Office Excel: La méthode SaveAs de la classe Workbook a échoué.
Je travaille sous Office 2007
Merci d'avance pour votre réponse.
Voici mon problème.
Je souhaiterais automatiser la conversion de fichier Excel (.xls) en .html avec VBScript. La sauvegarde en .xls fonctionne, mais pas avec le paramètre xlHTML.
Voici mon code:
Set ObjExcel = CreateObject("Excel.Application")
Set ActiveWorkbook = ObjExcel.Workbooks.Open("C:\vols\vol.xls")
ObjExcel.visible = false
ObjExcel.DisplayAlerts = False
Filename = "vol"
ActiveWorkbook.SaveAs "C:\vols\test\", xlHTML
ObjExcel.Workbooks(1).Close
ObjExcel.DisplayAlerts = True
ObjExcel.Quit
Lors de l'execution avec "cscript.exe", il me renvoi:
(11,2)Microsoft Office Excel: La méthode SaveAs de la classe Workbook a échoué.
Je travaille sous Office 2007
Merci d'avance pour votre réponse.
3 réponses
-
Bonjour,
Essaie:
Set ObjExcel = CreateObject("Excel.Application") Set ActiveWorkbook = ObjExcel.Workbooks.Open("C:\vols\vol.xls") ObjExcel.visible = false ObjExcel.DisplayAlerts = False Filename = "vol" ActiveWorkbook.SaveAs "C:\Vols\Test\" & Filename, 44 ObjExcel.Workbooks(1).Close ObjExcel.DisplayAlerts = True ObjExcel.Quit
ça devrait fonctionner -
Ca marche nickel, merci beaucoup.
-
De rien, au plaisir de te relire sur le forum
