如何在Excel中將多列導出到單個文本文件？

通常，您可以使用“另存為”功能將工作表快速輕松地導出到Excel中的txt文件。 但是，您是否曾經嘗試過將每個列數據從Excel工作表分別保存到文本文件中？ 本文，我將討論如何盡快解決此工作。

使用VBA代碼將多列導出到單個文本文件

將多個工作表導出到單獨的文本/pdf/csv 文件中 Kutools for Excel

使用VBA代碼將多列導出到單個文本文件

以下VBA代碼可以幫助您在Excel中將每個列數據分別保存到文本文件中，請執行以下操作：

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。

2。 點擊 插頁 > 模塊，然后將以下宏粘貼到 模塊 窗口。

VBA代碼：將多列導出到單個文本文件中：

Sub SavevalueToText()Dim xFRNum, xFCNum As LongDim xStrDir As StringDim xMaxR, xMaxC As IntegerDim xCells As RangeDim xIntX As LongDim xObjFD As FileDialogSet xObjFD = Application.FileDialog(msoFileDialogFolderPicker)With xObjFD.AllowMultiSelect = False.ShowIf .SelectedItems.Count > 0 ThenxStrDir = .SelectedItems.Item(1) & Application.PathSeparatorElseExit SubEnd IfEnd WithSet xCells = ActiveSheet.CellsxMaxR = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).RowxMaxC = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).ColumnFor xFCNum = 1 To xMaxCOpen xStrDir & xFCNum & "_" & ActiveSheet.Cells(1, xFCNum).Text & ".txt" For Output As #1For xFRNum = 1 To xMaxRPrint #1, Cells(xFRNum, xFCNum).ValueNext xFRNumClose #1NextEnd SubCopy

3。 粘貼代碼后，請按 F5 運行此代碼的關鍵，以及 瀏覽器 彈出對話框，然后選擇一個文件夾來放置導出的文本文件，請參見屏幕截圖：

4。 然后點擊 OK 按鈕，活動工作表中的每個列數據已分別導出到文本文件中，請參見屏幕截圖：

將多個工作表導出到單獨的文本/pdf/csv 文件中 Kutools for Excel

如果您需要將多個工作表導出為單個文本，pdf或csv文件，則 Kutools for Excel“ 拆分工作簿 功能可以幫您一個忙。

備注:申請這個 拆分工作簿，首先，您應該下載 Kutools for Excel，然后快速輕松地應用該功能。

安裝后 Kutools for Excel, 請執行以下步驟：

1。 點擊 Kutools 加 > 工作簿 > 拆分工作簿，請參見屏幕截圖：

2。 在 拆分工作簿 對話框中，選中要另存為txt，pdf，csv文件的工作表，然后選中 保存類型 選項，然后選擇您要另存為的文件類型，然后單擊 分裂 按鈕，在顯示的 瀏覽文件夾 對話框中，選擇一個文件夾來放置導出的文件，請參見屏幕截圖：

3。 然后點擊 OK 按鈕，并且您選擇的工作表已根據需要導出為單個特定文件格式，請參見屏幕截圖：

點擊下載并 Kutools for Excel 現在！

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel