LISTING 1: Code to Convert a .csv File to an .xls File
Option Explicit

Const xlNormal = &HFFFFEFD1
Dim appExcel

Set appExcel = CreateObject("Excel.Application")

appExcel.Workbooks.Open "C:\report.csv"
appExcel.ActiveWorkbook.SaveAs "C:\report.xls", xlNormal

appExcel.Workbooks.Close
appExcel.Quit