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\"在即时窗口中输入来调用它。

注意：完成后我将关闭工作簿，因为该工作簿现在是最后保存的文本文件，而不是原始工作簿。