Page 1 of 1

CSV to XLS

PostPosted: Mon Jan 30, 2017 6:08 am
by alangonzalez91
Option Explicit

Const xlDelimited = 1
Const xlNormal = -4143

Dim Excel

Set Excel = CreateObject("Excel.Application")
With Excel
.Workbooks.Open "[%1]"
.Sheets(1).Columns("A").TextToColumns .Range("A1"), xlDelimited, , , , True 'semicolon-delimited
.ActiveWorkbook.SaveAs "[%2]", xlNormal
.Quit
End With

[%1] = Source .csv
[%2] = Destination .xls

You need excel office installed

Try it, greetings and blessings

Re: CSV to XLS

PostPosted: Sun Feb 05, 2017 11:23 am
by Neosoft Support
That's a great script. Thank you for sharing it with us.

Re: CSV to XLS

PostPosted: Sun Feb 12, 2017 4:06 am
by yanzco
wow great...
can it do about xls to csv ?

Re: CSV to XLS

PostPosted: Sun Feb 12, 2017 10:08 am
by alangonzalez91
When I find it I post it, greetings!