OS X Excel 2008: экспорт всех листов документов в отдельные файлы с разделителями табуляции

864
Keefer

Можно ли выполнить массовый экспорт нескольких листов в документе Excel в отдельные текстовые файлы с разделителями табуляции? Как таковой, он экспортирует только активный лист. У меня есть документ с 850 листами, все из которых я хотел бы экспортировать как разделенные табуляцией.

1
Посмотрите [здесь] (http://stackoverflow.com/questions/9805124/need-to-modify-this-export-macro-for-text-tab-delimited-output) или [здесь] (http: // stackoverflow.com/questions/59075/macro-to-save-each-sheet-in-an-excel-workbook-to-separate-csv-files) Raystafarian 12 лет назад 0
Я должен отметить, что я на OS X Excel 2008. Это одно решение использует вещи с shell32.dll. Мы уже сделали это, но потерпели неудачу. Keefer 12 лет назад 0

1 ответ на вопрос

1
mischab1

Быстро и просто было бы что-то вроде этого:

Public Sub ExportSheets(wbk As Workbook, sPath As String) Dim sht As Worksheet For Each sht In wbk.Worksheets sht.Select sht.SaveAs sPath & sht.Name & ".txt", XlFileFormat.xlTextMac Next sht wbk.Close MsgBox "Done exporting." End Sub

В Windows вы можете вызвать это, набрав ExportSheets ActiveWorkbook, "C:\Data\"в ближайшем окне.

Примечание. По завершении я закрываю книгу, потому что теперь книга является последним сохраненным текстовым файлом, а не оригинальной книгой.

Похожие вопросы