Create a text file for every cell in column A

[VBAProIWish]

Hello All,

I have a workbook with one column (column A) and 400 rows

I would like to create a ".txt" file for every cell.


For example...
If the text in cell A2 says "Orange and Apple", I would like a text file named "Orange and Apple.txt" to be created in the "C:\My Documents" folder.


Thanks much!

 

[kpasa]

Try this:

Sub NewTXTfromColA()
    Dim Filename As String
    Dim TextFile As Integer
    Dim FilePath As String
    For Each cell In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        Filename = cell
        FilePath = "C:\Users\chris\Desktop\" & Filename & ".txt "
        TextFile = FreeFile
        Open FilePath For Output As TextFile
        Print [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=TextFile]#TextFile[/URL] , Filename
        Close TextFile
    Next
End Sub

Of course, add in some error handling to make sure the file name is valid and doesn't contain any forbidden characters.

 

[rpaulson]

try this:

Sub Creat_Txt_File()

mydir = "c:\my Documnets\"

For r = 2 To 400
Data = Cells(r, "A")
If Data <> "" Then
Open mydir & Data & ".txt" For Append As #1 
Print #1 , Data
Close #1 
End If
Next r

End Sub

hth,

Ross

 

[kpasa]

Check out this amazing blog post on how to interact with txt files from VBA: https://www.thespreadsheetguru.com/blog/vba-guide-text-files

 

[VBAProIWish]

Thanks to all!