是否可以将 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\"
在即时窗口中输入来调用它。
注意:完成后我将关闭工作簿,因为该工作簿现在是最后保存的文本文件,而不是原始工作簿。