Vba - Copy data from .csv to .xlsx separating data in columns

[mark84]

Hi guys,
I d want to copy the data from a .csv file (named "Step1.csv") to another .xlsx file named Step2.xlsx (sheet "Output")
When I try to use vba code, it copies to the Step2.xlsx the data but with a wrong format, so all the fields are not separated in columns, but for each raw all the fields are in a cell, separated with ";".
Could you suggest me a vba code that copies the data from the .csv file to the .xlsx separating each field in a column?
I attach the two explamples: as is situation and to be situation.
Thanks in advance

Regards,
Marco

 

[BenMcBen]

Maybe attach code and example (few lines) .csv file?

 

[mark84]

I've already attached an extract of the .csv file, it's a pic (as is_.png)

This is the code I used, but there is the problem I wrote before.


Sub From csv()
Dim WK1 As Workbook
Dim WK2 As Workbook
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim FileAltro As String
Application.ScreenUpdating = False

Set WK1 = ThisWorkbook
Set WK2 = Workbooks.Open("C:\Users\marco\Downloads\Step1.csv")

Set sh1 = WK1.Worksheets("Output")
Set sh2 = WK2.Worksheets("Step1")

sh2.Range("A:J").Copy
sh1.Range("A1").PasteSpecial Paste:=xlValues

Application.CutCopyMode = False
WK2.Close SaveChanges:=False

Application.ScreenUpdating = True
Close:
Set sh2 = Nothing
Set sh1 = Nothing
Set WK1 = Nothing
Set WK2 = Nothing
End Sub



Thanks in advance

 

[mark84]

could someone try to help me please?
Thanks so much!

 

[mark84]

Nobody knows the solution?

 

[BenMcBen]

If you attach the csv as an attachment - not a picture I will take a look.