3

У меня Excel 2010.

Нашел это: Пакетный Конвертер XLS в CSV

Но мне действительно нужно экспортировать все листы Excel в виде отдельных файлов CSV. Не уверен, что так работает. Кроме того, если бы я использовал вышеуказанный метод, как я могу использовать скрипт VB? (не знаком с программированием)

1 ответ1

2

Вот очищенная версия скрипта из поста, на который вы ссылались:

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 .

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .