Convert a csv file to excel file by VBA

Code snippet

This subrountine converts a CSV file to an excel file

Public Sub CSVToXLS(ByVal CSVfilePath As String, ByVal XLSFilePath As String)

    Dim FSO As New FileSystemObject
    Dim workbookName As String
    Dim applicationPath As String

   workbookName = ActiveWorkbook.Name
   applicationPath = Application.ActiveWorkbook.path
 
 Workbooks.OpenText CSVfilePath, , , xlDelimited, xlDoubleQuote, False _
  , True, True, , , , dataTypes

  ActiveWorkbook.SaveAs Filename:=XLSFilePath, FileFormat:=xlNormal

  ActiveWorkbook.Close

  Workbooks.Item(workbookName).Activate
   
End Sub