[VB]Excel à XML
Nico
-
Julien Carillette -
Julien Carillette -
Bonjour
Je cherche à savoir comment sous VB, on peus convertir un fichier au départ Excel, qui sera sélectionné avec une ListBox, en un fichier XML (tout en choisissant le répertoire du nouveau fichier si possible).
Sinon à la rigueur savoir comment ouvrir un fichier Excel sélectionné à partir d'une listBox.
Merci
Je cherche à savoir comment sous VB, on peus convertir un fichier au départ Excel, qui sera sélectionné avec une ListBox, en un fichier XML (tout en choisissant le répertoire du nouveau fichier si possible).
Sinon à la rigueur savoir comment ouvrir un fichier Excel sélectionné à partir d'une listBox.
Merci
A voir également:
- [VB]Excel à XML
- Liste déroulante excel - Guide
- Xml download - Télécharger - Édition & Programmation
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Aller à la ligne excel - Guide
1 réponse
Salut,
Référence Excel dans ton projet VB, puis créé un objet excel.
Ensuite tu fais :
MonFichier = objExcel.GetOpenFileName("Fichiers Excel (*.xls),*.xls")
' ouverture du fichier
objExcel.Workbooks.Open MonFichier
' sauvegarde au format XML
objExcel.ThisWorkbook.SaveAs filename:=MonFichier, fileformat:=xlXMLSpreadsheet
J'ai écris ça sans tester, donc il y a certainement des ajustements à faire, mais je pense que c'est la meilleure solution.
A+,
Kobaya.
Référence Excel dans ton projet VB, puis créé un objet excel.
Ensuite tu fais :
MonFichier = objExcel.GetOpenFileName("Fichiers Excel (*.xls),*.xls")
' ouverture du fichier
objExcel.Workbooks.Open MonFichier
' sauvegarde au format XML
objExcel.ThisWorkbook.SaveAs filename:=MonFichier, fileformat:=xlXMLSpreadsheet
J'ai écris ça sans tester, donc il y a certainement des ajustements à faire, mais je pense que c'est la meilleure solution.
A+,
Kobaya.
J'ai crée un fichier Excel sous Perl. J'aimerais, toujours avec Perl, sauver ce fichier au format XML. Je connais la macro VBA qui le permet, mais la conversion sous Perl ne fonctionne pas jusqu'à présent. J'ai utilisé
$workbook -> SaveAs('C:\report\test.xml', undef, xlXMLSpreadsheet, undef, undef, 1, undef, undef, 1);
Auriez-vous la bonne syntaxe sous la main?
Merci d'avance,
Julien Carillette