Breaking up CSV files based on date into individual txt files

[anuradhagrewal]

Hi Guys
I have this BSE.csv file that I want to use to update my data.
What I request the experts is to help me with creating individual txt files based on dates that are in column B.
The separator for creating a new txt file is in B column containing the date in (yyyymmdd) format
For eg :
There are approx 4434 entries for date 20240212(yyyymmdd).
Now when the date changes to 20240213 I request that a new txt file be created with the date name for eg : 20240213.txt only for all entries who are for the date 20240213 and so on.
Thus in the end I am looking for 5 txt files mainly from 20240212.txt, 20240213.txt, 20240214.txt,20240215.txt,20240216.txt
Similarly if there are 10,15, or 20 unique dates correspondingly new date files be created for all the given dates

Please help

Best Wishes

Anuradha

 

[rpaulson]

try this on a copy of your file. be WARNED - this will DELETE all existing csv files in you path!

Sub Create_Txt_File()

On Error Resume Next
myPath = "c:\test\"
Kill myPath & "*.csv" 'this will delete all that file type within that folder
On Error GoTo 0

Data = ""
For r = 2 To Cells(Rows.Count, "B").End(xlUp).Row
    lcol = Cells(r, Columns.Count).End(xlToLeft).Column
  
    For c = 1 To lcol
        delim = ""
        If c < lcol Then delim = ","
        Data = Data & Cells(r, c) & delim
    Next c
  
      
    Open myPath & Cells(r, "B") & ".csv" For Append As #1
    Print #1, Data
    Close #1
    Data = ""
Next r
 

End Sub

hth,
Ross

 

[anuradhagrewal]

try this on a copy of your file. be WARNED - this will DELETE all existing csv files in you path!

Sub Create_Txt_File()

On Error Resume Next
myPath = "c:\test\"
Kill myPath & "*.csv" 'this will delete all that file type within that folder
On Error GoTo 0

Data = ""
For r = 2 To Cells(Rows.Count, "B").End(xlUp).Row
    lcol = Cells(r, Columns.Count).End(xlToLeft).Column
 
    For c = 1 To lcol
        delim = ""
        If c < lcol Then delim = ","
        Data = Data & Cells(r, c) & delim
    Next c
 
     
    Open myPath & Cells(r, "B") & ".csv" For Append As #1
    Print #1, Data
    Close #1
    Data = ""
Next r
 

End Sub

hth,
Ross

Hi
Thank you so much. It does make individual txt files based on date. However I need to convert the csv file to xlsx file and copy the code in this excel file then run it.(Can this be fixed as I will need to covert the csv to xlsx)
There is just one help I need from you.
I request you to kindly please modify the code that Row 1 (A1-H1) appears in each text file with a comma separator in the first row of every txt file.
Something like this:
<ticker>,<date>,<open>,<high>,<low>,<close>,<volume>,<o/i>
Thank you for everything

Cheers

Anu


Rest all is fine.