У меня есть файл Excel с 20 листами. Есть ли способ быстро преобразовать файл в 20 CSV-файлов-по одному для каждого листа?
конечно, я могу сделать это вручную, но мне придется много обрабатывать эти файлы, поэтому было бы здорово иметь какую-то утилиту командной строки (или даже переключатели командной строки Excel).
3399
метод vembutech определенно более отполированное разрешение. Вот легкий макрос VBA, который будет экспортировать все листы из одной книги.
идет в активную папку книги Все имена workbookname_sheetname.csv
KompSub exportcsv()
Dim ws As Worksheet
Dim path As String
path = ActiveWorkbook.path & "\" & Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)
For Each ws In Worksheets
ws.Activate
ActiveWorkbook.SaveAs Filename:=path & "_" & ws.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False
Next
End Sub
за комментарий. Исходный макрос просто использует функцию Сохранить как (что похоже на закрытие оригинала). Если вы хотите сделать это, оставив оригинал открытым, необходимо скопировать в новую книгу, сохранить, закройте новую книгу.
Sub exportcsv()
Dim ws As Worksheet
Dim path As String
path = ActiveWorkbook.path & "\" & Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)
For Each ws In Worksheets
ws.Copy
ActiveWorkbook.SaveAs Filename:=path & "_" & ws.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close False
Next
End Sub
вместо пакетного скрипта можно использовать конвертер XLS в CSV что бы дать вам лучший пользовательский интерфейс
прямая ссылка: http://cwestblog.com/wp-content/uploads/2013/04/XLS-to-CSV-Converter-1.1.0.zip
распаковать .Файл HTA.
дважды щелкните на .Файл HTA
найдите папку, где у вас есть файл xls
выберите схему именования csv и нажмите запустите конвертацию, которая конвертирует все xls файлы из папки в csv файлы
Если ваша папка имеет 3 xls файлы с 3-мя листами, то он будет создавать 9 csv-файлов для каждого листа, и вы можете определить файл csv с CSV именования схемы
надеюсь, что это помогает!
макрос от ExtendOffice сохранить вкладки в папке "Документы":
Sub ExportSheetsToCSV()
Dim xWs As Worksheet
Dim xcsvFile As String
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Copy
xcsvFile = CurDir & "\" & xWs.Name & ".csv"
Application.ActiveWorkbook.SaveAs Filename: = xcsvFile, _
FileFormat: = xlCSV, CreateBackup: = False
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
Next
End Sub
вот это Python-скрипт getsheets.py (зеркала), вы должны установить pandas и xlrd прежде чем использовать его.
выполнить это:
pip3 install pandas xlrd # or `pip install pandas xlrd`
как это работает?
$ python3 getsheets.py -h
Usage: getsheets.py [OPTIONS] INPUTFILE
Convert a Excel file with multiple sheets to several file with one sheet.
Examples:
getsheets filename
getsheets filename -f csv
Options:
-f, --format [xlsx|csv] Default xlsx.
-h, --help Show this message and exit.
преобразовать в несколько xlsx:
$ python3 getsheets.py goods_temp.xlsx
Sheet.xlsx Done!
Sheet1.xlsx Done!
All Done!
преобразовать в несколько csv:
$ python3 getsheets.py goods_temp.xlsx -f csv
Sheet.csv Done!
Sheet1.csv Done!
All Done!
 |  |  |  |  |  |  |  |  |  |
Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]
