![OS X Excel 2008:将所有文档表导出到单独的制表符分隔文件](https://linux22.com/image/1309595/OS%20X%20Excel%202008%EF%BC%9A%E5%B0%86%E6%89%80%E6%9C%89%E6%96%87%E6%A1%A3%E8%A1%A8%E5%AF%BC%E5%87%BA%E5%88%B0%E5%8D%95%E7%8B%AC%E7%9A%84%E5%88%B6%E8%A1%A8%E7%AC%A6%E5%88%86%E9%9A%94%E6%96%87%E4%BB%B6.png)
是否可以将 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\"
在即时窗口中输入来调用它。
注意:完成后我将关闭工作簿,因为该工作簿现在是最后保存的文本文件,而不是原始工作簿。