Exporter la fiche d'un fichier csv séparé

J'ai besoin de programmaticaly via VBA/VBS script d'exportation de toutes les feuilles de calcul (4 au total et je sais que les noms de feuille de calcul nommée csv fichiers dans le même dossier, sans charger excel et de l'exécution de la macro manuellement.

Idéalement, le script va prendre dans la source filepath/filename.xls et l'exportation chemin d'accès comme arguments de ligne de commande.

J'ai lu beaucoup de VBA Excel scripts pour le faire dans Excel et j'en ai vu pour le chargement d'un classeur excel pour l'exportation de la première feuille. Cependant, lorsque j'essaie de mélanger les deux, j'obtiens cette erreur:

(1,12) Fin Prévue de la Déclaration

Dim source As Workbook
Set source = Application.Workbooks.Open(WScript.Arguments.Item(0), ReadOnly:=True)
For Each sheet In source.Sheets
.SaveAs Filename:= WScript.Arguments.Item(1) & Source.Sheets.Name, FileFormat:=xlCSV
Next sheet
wb.Close
Bienvenue sur StackOverflow! Merci de poster votre code afin que d'autres puissent vous aider à déboguer. Montrant l'effort est toujours apprécié (et devrait).
Mes excuses, j'ai senti que j'étais probablement la façon de rabais avec le code j'ai essayé de l'exécuter afin de ne pas souhaitez soumettre. Comme je l'ai dit j'en ai un similaire vba de travail qui est la première feuille, ce code est une simple fusion avec quelques autres dans le classeur de script.

OriginalL'auteur Adam Mills | 2011-12-08