Экспорт каждого листа в отдельный CSV-файл - PullRequest
Новая
       11

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

5 голосов
/ 08 декабря 2011

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

В идеале сценарий должен принимать исходный файл filepath / 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

Ответы [ 2 ]

10 голосов
/ 25 декабря 2011

A для запуска этого кода будет выглядеть примерно так:

  1. Файл VBS может быть выполнен из командной строки
  2. Имя папки избыточнокак будто файл существует (объект FSO проверяет это), тогда папка, в которой он находится, также должна существовать
  3. Код автоматизирует Excel для разделения листов

два ключевых момента, на которые следует обратить вниманиепо сравнению с вашим VBA выше

  • вы не можете затемнить объект VBS как строку, рабочую книгу и т. д. (отсюда ваша первоначальная ошибка).Вы можете только затемнить их

  • Вы не можете использовать именованную константу, такую ​​как xlCSV в VBScript, следовательно, использование 6 ниже в качестве формата CSV 

    Dim strFilename  
Dim objFSO  
Set objFSO = CreateObject("scripting.filesystemobject")  
strFilename = "C:\temp\test.xlsx"  
If objFSO.fileexists(strFilename) Then  
  Call Writefile(strFilename)  
Else  
  wscript.echo "no such file!"  
End If  
Set objFSO = Nothing  

Sub Writefile(ByVal strFilename)  
Dim objExcel  
Dim objWB  
Dim objws  

Set objExcel = CreateObject("Excel.Application")  
Set objWB = objExcel.Workbooks.Open(strFilename)  

For Each objws In objWB.Sheets  
  objws.Copy  
  objExcel.ActiveWorkbook.SaveAs objWB.Path & "\" & objws.Name & ".csv", 6  
  objExcel.ActiveWorkbook.Close False  
Next 

objWB.Close False  
objExcel.Quit  
Set objExcel = Nothing  
End Sub
0 голосов
/ 10 декабря 2011

Для начала:

Учитывая книгу Excel, содержащую лист Демо, как 

-------------------------------
SELECT * FROM Demo
-------------------------------
|F1|F2 |F3        |F4        |
| 1|1.1|12/10/2011|text elm 1|
| 2|2.2|12/11/2011|text elm 2|
| 3|4.4|12/12/2011|text elm 3|
-------------------------------

и ADODB.Connection с ConnectionString как: 

Provider=MSDASQL.1;Extended Properties="DBQ=<FullPathToYourXls>;Driver={Microsoft
 Excel Driver (*.xls)};

все, что вам нужно .Execute - это оператор SELECT INTO, такой как 

SELECT * INTO [Demo.csv] IN '<PathToYourCsvFolder>' 'Text;' FROM Demo

чтобы получить: 

type ..\data\ExcelCsv2\Demo.csv
"F1";"F2";"F3";"F4"
1;1,10;10.12.2011 00:00:00;"text elm 1"
2;2,20;11.12.2011 00:00:00;"text elm 2"
3;4,40;12.12.2011 00:00:00;"text elm 3"

(немецкий язык)

Оператор SELECT INTO создаст соответствующий раздел 

[Demo.csv]
ColNameHeader=True
CharacterSet=1252
Format=Delimited(;)
Col1=F1 Integer
Col2=F2 Float
Col3=F3 Date
Col4=F4 Char Width 50

в файле schema.ini автоматически.

...