Enregistrer des feuilles Excel individuelles au format CSV

Question

Je dois analyser des feuilles de calcul Excel. Maintenant, je sauvegarde chaque feuille de calcul individuelle en tant que .csv et ça fonctionne très bien. J'utilise OpenCSV pour analyser les fichiers, etc. mais la création de ces fichiers .csv est pénible.

Quel serait le moyen le plus simple et le plus rapide de sauvegarder des feuilles de calcul individuelles en tant que .csv dans Excel ? Je suppose qu'une sorte de macro VBA ferait l'affaire, mais comme je ne suis pas programmeur VBA, je ne sais pas comment faire. Peut-être que je peux simplement enregistrer une macro d'une manière ou d'une autre ?

Answer 1

Très approximativement,

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
    ws.SaveAs "C:\docs\" & ws.Name & ".csv", xlCSV
Next

Cela ne comprend pas de gestion d'erreur ni ne prend en compte les noms de feuilles pouvant conduire à des noms de fichiers illégaux. Tout dépend de la robustesse dont vous avez besoin pour l'ensemble du processus.

Answer 2

Comme première réponse, voici le code utilisé pour enregistrer un fichier au format CSV :

ActiveWorkbook.SaveAs "C:\Marthinus.csv", fileformat:=6

Plus d'informations sur SaveAs