open *.csv file as *.xls makro

[kajro]

How to ask user about path and open synteza.csv file as column separate
view
like synteza.xls?

Workboks.Open open it only as csv.

I ask to makro of course.

Thanks and sory for fatal English

 

[Guest]

Try this:

Dim fileToOpen As Variant
fileToOpen = Application.GetOpenFilename("CSV Files (*.csv), *.csv")
If fileToOpen = False Then
' user pressed cancel or some other error deal with it
End If
Workbooks.OpenText Filename:=fileToOpen, DataType:=xlDelimited, Comma:=True