CSV To PDF

Dim objExcel, strExcelPath

strExcelPath = "c:\temp\Test.csv"
Set objExcel = CreateObject("Excel.Application")
objExcel.WorkBooks.Open strExcelPath
objExcel.ActiveSheet.ExportAsFixedFormat 0, "c:\temp\Test.pdf" ,0, 1, 0,,,0
objExcel.ActiveWorkbook.Close
objExcel.Application.Quit