How to save each row of a spreadsheet as separate text files?

I have a spreadsheet with >4000 rows, where each row has 2 columns. I need separate txt files containing each report and hopefully each file under the name of the respective ID. How can I do that? A...

BI & Data Analysis

excel

Formulas and Functions

Macros and VBA

KIKEMAN78

Copper Contributor

Sep 27, 2021

Hi Hans,

I need a very similar routine, but I need to read the whole row, which may contain a different amount of cells. Can you help me?

HansVogelaar

bosinander

Iron Contributor

Sep 27, 2021

KIKEMAN78 Assuming your version of Excel has the worksheet function TEXTJOIN, append the following into the macro from HansVogelaar

__/ before row 9, insert

Columns("b:b").Insert 'add a temporary column for calculation
Range(Range("b1"), "b" & Range("b1").SpecialCells(xlCellTypeLastCell).Row).Select 'select matching "last" row
Selection.FormulaR1C1 = "=TEXTJOIN(CHAR(9),0,RC[1]:RC[16382])" 'join all texts but col A

__/ before End Sub, insert
Columns("b:b").Delete 'delete the temporary column

Column B will temporarily join all cells to its right, including empty ones, to be exported as HansVogelaar code, and then deleted to reset the file.

If you want to exclude empty cells, change the zero to one
TEXTJOIN(CHAR(9),0, to TEXTJOIN(CHAR(9),1,

Forum Discussion

How to save each row of a spreadsheet as separate text files?

Resources