How to export multiple columns into individual text files in Excel?
Normally, you can export a worksheet to txt file in Excel quickly and easily by using the Save As function. But, have you ever tried to save each column data into text file individually from an Excel worksheet? This article, I will talk about how to solve this job as quick as possible.
The following VBA code can help you to save each column data to text file individually in Excel, please do as this:
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 multiple columns 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:
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:
You are guest
or post as a guest, but your post won't be published automatically.
To post as a guest, your comment is unpublished.· 1 years agoHi there. Thanks in advance for the VBA code. I was wondering if instead of saving each .txt file as ANSI coding it can be made as UTF-8. Is it possible? Regards.
To post as a guest, your comment is unpublished.· 2 years agoGreat, you made my day with the code to export multiple columns into individual text files! Many thanks!