VBA to create multiple .txt files?

[cbaird2]

Hello,
I have an Excel 2010 sheet with 2 columns, 1 column with a list of dates that I want to use as part of a file name, and another column with formatted information that I want to put into separate .txt files. I have no idea where to begin to write a macro to do this, but I know copy/paste manually would take forever and would no doubt end up in some screw ups.

In this file, it is D2:D493 for the file name, and E2:E493 for the text in the files. Each file will have 2 lines of text (so D2 and D3 are the same date, and so on down the column). I'd like the macro to insert "PRICE" infront of the date in the file name.

Does anyone have anything like this available? Thanks in advance for any help - it would be a giant time saver for me!

thanks again!!

 

[John_w]

If I've understood you correctly this should do what you want. Just change the output folder string and date format (I've used yyyymmdd) in the code.

Sub Create_Files()

    Dim row As Long
    Dim fileName As String, folder As String
    
    folder = "C:\temp\Excel\"
    
    For row = 2 To 493 Step 2
        fileName = "PRICE" & Format(Cells(row, "D").Value, "yyyymmdd") & ".txt"
        Open folder & fileName For Output As #1
        Print #1, Cells(row, "E").Value
        Print #1, Cells(row + 1, "E").Value
        Close #1
    Next
    
End Sub

 

[cbaird2]

John w, this worked marvelously. This saved me a boatload of time. I already lost one day's work trying to create a shortcut on this project, and you just saved me at least 3 hours minimum plus. Thank you SO much!!