How to convert CSV file to Excel

You can convert a CSV file to Excel by using Pre-Script feature of Process Runner. Follow the following steps to convert CSV file to Excel.

7.Remove the content in the scripting area and paste the script below in the scripting area.

Dim strFileName

Dim strFileNameXL

Dim FSObj

Dim wBook '==== Excel workbook object

Dim wSheet

Const xlDelimited = 1

Dim wsBook

Dim wsSheet

Dim objExcel

strFileName ="C:\YourFile.CSV"

strFileNameXL ="C:\YourFile.xls" '========= Keep a blank file with this name that you will use as an external Excel file

set FSObj = CreateObject("Scripting.FileSystemObject")

If FSObj.FileExists(strFileNameXL) Then

Set wsBook = GetObject(strFileNameXL)

Set wsSheet = wsBook.Worksheets(1)

End If

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

ObjExcel.Workbooks.OpenText strFileName,,,xlDelimited,,,,,,,True,"," '======= Here is is assumed that fields are separated by comma. If you want to use any other character as field separator, put that character here in place of comma

ObjExcel.ActiveSheet.Cells.Select

ObjExcel.Selection.Copy

wsBook.Application.Visible = True

wsBook.Windows(wsBook.Name).Visible = True

wsBook.Activate

wsSheet.Cells("1","A").Select

wsSheet.Paste

ObjExcel.CutCopyMode = False

ObjExcel.ActiveWorkbook.Close false

ObjExcel.Quit

9.Now with next run comma separated text file will be converted into Excel file before run.