Экспорт каждого листа в отдельный файл csv

Мне нужно программно с помощью сценария VBA / VBS экспортировать все рабочие листы (всего 4, и я знаю имена ) в рабочий лист с именами CSV-файлов в той же папке, не загружая Excel и не запуская макрос вручную.

В идеале сценарий должен принимать путь к исходному файлу / filename.xls и путь к файлу экспорта в качестве аргументов командной строки.

Я прочитал много сценариев Excel VBA для выполнения именно этого в Excel и видел несколько сценариев для загрузки книги Excel для экспорта первого листа. Однако, когда я пытаюсь смешать эти два, я получаю эту ошибку:

(1,12) Ожидаемый конец инструкции

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