How to export each column in Excel into individual text files?
In Excel, exporting an entire worksheet to a text file is simple with the Save As function. However, if you need to save each column as a separate text file, the process requires a few additional steps. This guide will show you how to efficiently export each column individually using VBA code, or alternatively, how to save multiple worksheets as individual text, PDF, or CSV files with the help of Kutools for Excel.
Export each column into individual text files with VBA code
Export multiple worksheets into individual text / pdf / csv files with Kutools for Excel
Export each column into individual text files with VBA code
The following VBA code can help you save each column's data as an individual text file in Excel. Please follow these steps:
1. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.
2. Click Insert > Module, and paste the following macro in the Module Window.
VBA code: Export each column into individual text files:
Sub SaveValueToText()
Dim xFRNum, xFCNum As Long
Dim xStrDir As String
Dim xMaxR, xMaxC As Integer
Dim xCells As Range
Dim xIntX As Long
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
With xObjFD
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
xStrDir = .SelectedItems.Item(1) & Application.PathSeparator
Else
Exit Sub
End If
End With
Set xCells = ActiveSheet.Cells
xMaxR = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
xMaxC = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
For xFCNum = 1 To xMaxC
Open xStrDir & xFCNum & "_" & ActiveSheet.Cells(1, xFCNum).Text & ".txt" For Output As #1
For xFRNum = 1 To xMaxR
Print #1, Cells(xFRNum, xFCNum).Value
Next xFRNum
Close #1
Next
End Sub
3. After pasting the code, please press F5 key to run this code, and a Browser dialog box is popped out, then choose a folder to put your exported text files, see screenshot:
4. Then click OK button, and each column data in active worksheet has been exported into text file individually, see screenshot:
Export multiple worksheets into individual text / pdf / csv files with Kutools for Excel
If you need to export multiple worksheets into individual text, pdf or csv files, the Kutools for Excel’s Split Workbook feature can do you a favor.
After installing Kutools for Excel, please do with following steps:
1. Click Kutools Plus > Workbook > Split Workbook, see screenshot:
2. In the Split Workbook dialog box, check the worksheets that you want to save as txt, pdf, csv files, and then check Save as type option, then select the file type that you want to save as, and then click Split button, in the displayed Browse For Folder dialog box, choose a folder to put the exported files, see screenshot:
3. Then click OK button, and your selected worksheets have been exported to the individual specific file format as you need, see screenshot:
Kutools for Excel - Supercharge Excel with over 300 essential tools. Enjoy permanently free AI features! Get It Now
Best Office Productivity Tools
Supercharge Your Excel Skills with Kutools for Excel, and Experience Efficiency Like Never Before. Kutools for Excel Offers Over 300 Advanced Features to Boost Productivity and Save Time. Click Here to Get The Feature You Need The Most...
Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier
- Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
- Open and create multiple documents in new tabs of the same window, rather than in new windows.
- Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
All Kutools add-ins. One installer
Kutools for Office suite bundles add-ins for Excel, Word, Outlook & PowerPoint plus Office Tab Pro, which is ideal for teams working across Office apps.
- All-in-one suite — Excel, Word, Outlook & PowerPoint add-ins + Office Tab Pro
- One installer, one license — set up in minutes (MSI-ready)
- Works better together — streamlined productivity across Office apps
- 30-day full-featured trial — no registration, no credit card
- Best value — save vs buying individual add-in