Code to spit out to notepad text format

[matthewjapp]

Hi there, I have some code which does various bits and bobs, the result is two columns in Sheet2 (A and B) and for each column I need it generating a text file for column A and a text file for column B (both columns could have from 1 to x number of ranges....

any takers?

Ta

 

[John_w]

Try this:

Sub SaveColumnsTXT()

    Dim saveRange As Range
    Dim newWorkbook As Workbook
    Dim col As Integer
    
    For col = 1 To 2
        Set saveRange = Sheets("Sheet2").Columns(col)
        Set newWorkbook = Workbooks.Add(xlWBATWorksheet)
        saveRange.Copy newWorkbook.Sheets(1).Range("A1")
        newWorkbook.SaveAs "Column " & Chr(64 + col) & ".txt", FileFormat:=xlText
        newWorkbook.Close False
    Next
    
End Sub