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

Question

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

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

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