Create Txt file from Excel

[prakashgusain]

Hello,
I want to create text files using Excel VBA.
Save them with cell value in column A and text file to contain text in column B

Column A Column B
FileName1 Content 1
FileName2 Content 2
FileName3 Content 3
FileName4 Content 4
FileName4 Content 5

Save all these files to Folder in desktop. Number of files goes 100+

 

[RustamMika]

Hi

prakashgusain​

Codes below create the files in same folder, from where you will run it...

Sub prakashgusain()
  pth = ThisWorkbook.Path
  Set myObj = CreateObject("Scripting.FileSystemObject")
      With myObj
            For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
            fl_name = pth & "\" & Cells(i, 1).Value & ".txt"
                Set fl = .CreateTextFile(fl_name, True, True)
                fl.WriteLine (Cells(i, 2).Value)
                fl.Close
            Next
            Set fl = Nothing
   End With
   Set myObj = Nothing
   MsgBox "task complete"
End Sub

 

[prakashgusain]

Dear RustamMika, thanks a lot. Worked like a charm.