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

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

Источник

1 ответ

Решение

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

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\" в ближайшем окне.

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

Источник
Другие вопросы по тегам