Script VBS - convertir xls en html
Résolu
vbdourthe
-
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
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.
A voir également:
- Script VBS - convertir xls en html
- Script vidéo youtube - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Vbs windows - Accueil - Optimisation
- Editeur html - Télécharger - HTML
- Convertir epub en kindle - Guide
3 réponses
Bonjour,
Essaie:
ça devrait fonctionner
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