Copy Excel data to Notepad file

Basic code:

Option Explicit

Sub sExcelToTexr()

Dim lLR As Long, i As Long
Const csFolder As String = "C:\Temp\Stores\"
Dim sFilePath As String, sCellData As String

lLR = Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To lLR
    sFilePath = csFolder
    sFilePath = sFilePath & Range("A" & i).Value
    sFilePath = sFilePath & ".txt"
    sCellData = Range("D" & i).Value
    
    Open sFilePath For Output As #1
    Print #1, sCellData
    Close #1
Next 'i

End Sub

You might want to put some error checking in but it works as it is with your test data (having set up the folder/sub-folder in advance)


Regards, TMS

This should do it:

Option Explicit

Sub StoresToText()
Dim Store As Range, fNAME As String, fPATH As String

fPATH = "C:\TEMP\Stores\"               'dont' forget the final \ in this path string!

For Each Store In ThisWorkbook.Sheets("Sheet1").Range("A:A").SpecialCells(xlConstants)
    If Cells(Store.Row, "D") <> "" Then
        Open fPATH & Store.Text & ".txt" For Output As #1
        Print #1, Trim(Cells(Store.Row, "D").Value)
        Close #1
    End If
Next Store

End Sub

Thanks for the rep.

Option Explicit

Sub sExcelToTexr()

Dim lLR As Long, i As Long
Const csFolder As String = "C:\Temp\Stores\"
Dim sFilePath As String, sCellData As String

lLR = Range("AE" & Rows.Count).End(xlUp).Row

For i = 8 To lLR
    sFilePath = csFolder
    sFilePath = sFilePath & Range("AE" & i).Value
    sFilePath = sFilePath & ".txt"
    sCellData = Range("AE" & i).Offset(, 3).Value
    
    Open sFilePath For Output As #1
    Print #1, sCellData
    Close #1
Next 'i

End Sub

Regards, TMS

Like so, colored in red to point it out:

Option Explicit

Sub StoresToText()
Dim Store As Range, fNAME As String, fPATH As String

fPATH = "C:\TEMP\Stores\"               'dont' forget the final \ in this path string!

For Each Store In ThisWorkbook.Sheets("Sheet1").Range("AE4:AE" & Rows.Count).SpecialCells(xlConstants)
    If Cells(Store.Row, "AH") <> "" Then
        Open fPATH & Store.Text & ".txt" For Output As #1
        Print #1, Trim(Cells(Store.Row, "AH").Value)
        Close #1
    End If
Next Store

End Sub

As it appears you've reached a conclusion, I've marked this thread SOLVED for you.
FYI, this is done through the Thread Tools located above the first post in this thread. Thanks.