"Step-by-Step learning VBA" export Excel content as a single TXT file

Here I will directly on the source:

Sub Export Txt1 () Dim file as String, arr, I ' defines the name of the text file = Thisworkbook.path & "\ New salary table. txt" ' Determines if there is a text file with the same name, there is an antecedent delete if Dir (file <> "then Kill file" reads the current data into the array arr = Sheet1.range ("A1"). CurrentRegion ' writes all the data in the array to a text file using the Print statement Open file for Output as #1For i = 1 to UBound (arr) Print #1, Join (Application.index (AR R, I), ",") Next closes the text file close #1End Sub

The results of the operation are as follows:

Above is written from Excel txt, my beam crooked an article is read from TXT and then written to Excel: click

Reference article: click

"Step-by-Step learning VBA" export Excel content as a single TXT file