Macro to convert comma delimited csv file to excel file??

Sub csvopen()
    Workbooks.OpenText Filename:= _
        "yourpathfilename.csv", Origin:= _
        xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
        , ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:= _
        True, Space:=False, Other:=True, OtherChar:=".", FieldInfo:=Array(1, 1) _
        , TrailingMinusNumbers:=True
End Sub