Convert csv to xls with other actions

Hi Again All

I have searched the web and tried piecing together bits of code but can't seem to get this to work. I am tired but thats no excuse.

What I need is a macro (VBA) to open a user selected csv delete row 2 and divide all cells containing a value in Cell range K2:AD50 by 100 then save as (current date).xls in folder C:\input\.


Any body able to share a bit of code with me.

Thanks in advance.

Evan

Thanks for the quick reply

We get updates for our bookings sent to us in csv format and I need to convert them to xls. They come with row 2 blank which i need to delete and I need to divide all cells values in K2:AD50 by 100 then save as current date xls.

I need the operator to be able to select the csv file but it can be saved to c:\input.

Hope this is understandable.

Evan

Sorry here are the sample files.
Added txt to csv to upload.

Evan

Did you see my samples.

Evan

see attachment, run macro "txt"

folder c:\input\" should exist for it to operate

I Tried this but had problem with file name searched web and found a change which worked and saved with date in format dd-mm-yy.xls

But when I tried to open the xls file it said the format was wrong and it concactenated all cell values in rows to one cell.

Any ideas

The change I made is as follows.

With ActiveWorkbook: .SaveAs Filename:="C:\input\" & Format(Now(), "dd-mm-yy") & ".xls": End With

please try now

Thank You

Works Fine

Evan

if you are satisified with the outcome please mark the thread as solved

Dear Watersev

I finally, after illness, got around to trying your macro on received data.

It seems to reformat the date field to some uk format and some us format which corupts the end result.

Any ideas.

Evan

check attachment, on the csv file attached works as required