1. Exports range from worksheet "Names" (sheet that may not be the currently active sheet) to txt file with comma separated values in text file.
2. The export of range starts from Row 2 and consists of data till last row for columns F & G.
However, I now need export data from column F to column AV viz. 43 columns, and modifying the macro to manually write all the columns in the macro would be time consuming (and probably slow down execution too).
I was wondering if the macro can be modified to export data in all 43 columns with only changing a few lines of code.If not, perhaps someone could help me with fresh code for the above requirements.
I would be OK with the data being separated with commas or with tabs, since I need to re-import the data to another excel file.
On Error Resume Next
Dim FilePath As String
Dim LastRow As Long
Dim CellData As String
Dim CellData1 As String
Dim WS2 As Worksheet
Dim i As Long
Dim RowsNos As Long
Set WS2 = Workbooks("Book1.xlsm").Sheets("Names")
FilePath = "C:\Data" & "\" & "Data.txt"
RowsNos = Workbooks("Book1.xlsm").Sheets("Names").Range("F" & Rows.Count).End(xlUp).Row
Open FilePath For Output As #1
For i = 2 To RowsNos
CellData = WS2.Cells(i, 6).Value '<< Col F is being exported
CellData1 = WS2.Cells(i, 7).Value '<< Col G is being exported
Print #1, CellData & "," & CellData1
Note: Sample file attached.