Export Text with Cell name

[blujason]

Hello Mr. Excel,

I have looked through the forum and cannot seem to get the proper answer to work.

I am trying to export text from one cell and use another cell as the file name - and go to a specific folder

An Example of my sheet is:

ResponseId	Writing Prompt 1	Writing Prompt 2
1​	Text data
2​		Text data
3​	Text data
4​	Text data
5​		Text data
6​		Text data
7​		Text data
8​		Text data
9​	Text data
10​	Text data

On the export, the txt file would be named from ResponseID, and the txt file will include Column B or C. If I were to export row 4 - the file would be named 4.txt and contain the text entered under writing prompt 1 for that cell.

Make sense?

Thank you for any guidance.

Jason

 

[Colo]

Hi Jason,
For testing, prepare a folder named "temp" under the C drive.

Sub Sample()
    Const sPath As String = "c:\temp\"    'output folder for text files
    Dim i As Long, f As Integer

    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row    'last data row
        f = FreeFile
        Open sPath & Cells(i, 1).Value & ".txt" For Output As #f
        Print #f, Cells(i, 2).Value & Cells(i, 3).Value
        Close #f
    Next
    MsgBox "done"
End Sub