No products in the basket.
This example sends a large amount of data from a row into a text file in the same path as the excel file is saved.
With thousands of columns per row available, it would take a long time and be open to errors to assign each cell on a row, set the delimit character between each when all you need to do is have a column/row loop.
This goes from the 5th row to the last row, taking each cell on the row (up to the maximum columns) and delimiting it with a ~ and outputting it to a text file. It is very quick and very efficient.
This simple and short piece of code is invaluable for exporting large amounts of data to a text file.
Set ws = Worksheets("Data")
lastr = .Cells(.Rows.Count, "A").End(xlUp).Row
FileUser = ActiveWorkbook.Name
'On Error Resume Next
FileuserDocFILE = ThisWorkbook.Path & "\Text_Output.txt" 'name the .txt database to hold the info
'On Error GoTo 0
For r = 5 To lastr
Application.StatusBar = r
For c = 1 To 682 'Takes all the cells up to column 682
output = output & ws.Cells(r, c) & "~"
Open FileuserDocFILE For Append As #1 'Use Output instead of APPEND to overwrite data
Print #1, output
output = Empty