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
CSV to XLS
Moderator: Neosoft Support
-
- Posts: 6
- Joined: Sun Jun 13, 2010 12:52 pm
- Location: Chaco - Argentina
-
- NeoSoft Team
- Posts: 5628
- Joined: Thu Mar 31, 2005 10:48 pm
- Location: Oregon, USA
- Contact:
Re: CSV to XLS
wow great...
can it do about xls to csv ?
can it do about xls to csv ?
-
- Posts: 6
- Joined: Sun Jun 13, 2010 12:52 pm
- Location: Chaco - Argentina
Re: CSV to XLS
When I find it I post it, greetings!