Anyways pasting a previous function pasted to convert .csv to .xls
Function ConvertCSVFiletoXLSFile(sSrcFile, sDestFile)
Const xlWorkbookNormal = -4143
Set oExcel = CreateObject("Excel.Application")
oExcel.DisplayAlerts = False
oExcel.Workbooks.Open(sSrcFile)
oExcel.ActiveWorkbook.SaveAs sDestFile,xlWorkbookNormal
oExcel.Workbooks.Close()
set oExcel =Nothing
End Function
ConvertCSVFiletoXLSFile "C:\sampls.csv", "C:\sample.xls"
> --
> You received this message because you are subscribed to the Google
> "QTP - HP Quick Test Professional - Automated Software Testing"
> group.
> To post to this group, send email to Mercu...@googlegroups.com
> To unsubscribe from this group, send email to
> MercuryQTP+...@googlegroups.com
> For more options, visit this group at
> http://groups.google.com/group/MercuryQTP?hl=en
--
Regards,
Ganesh Muralidharan
'God Never Forgets'
--