У меня Excel 2010.
Нашел это:Пакетный конвертер XLS в CSV
Но мне на самом деле нужно экспортировать все листы Excel как отдельные файлы CSV. Не уверен, что это так работает. Кроме того, если бы я использовал метод выше, как бы я на самом деле использовал скрипт VB? (не знаком с программированием)
решение1
Вот очищенная версия скрипта из поста, на который вы дали ссылку:
Option Explicit
Const xlXMLSpreadsheet = 46
Const xlCSV = 6
Dim xl, wb, ws
Dim args : Set args = WScript.Arguments
If args.Count <> 1 Then
WScript.Echo "Syntax: cscript " & WScript.ScriptName & " filename"
WScript.Quit(1)
End If
Set xl = CreateObject("Excel.Application")
Set wb = xl.Workbooks.Open(args(0))
xl.DisplayAlerts = False
For Each ws In wb.Worksheets
ws.activate
wb.SaveAs CreateObject("Scripting.FileSystemObject").GetBaseName(args(0)) _
& "_" & Replace(ws.Name, " ", "_") & ".csv", xlCSV
Next
xl.DisplayAlerts = True
wb.Close False
xl.Quit
WScript.Quit
Он должен делать то, что вам нужно. Вызвать его можно так из командной строки:
cscript SCRIPT.vbs INPUT.xls
Создает выходные файлы INPUT_SHEETNAME.csv
.