Source language: Translate to:

CSV to XLS

Questions and information about using VBScript and JavaScript in NeoBook functions

Moderator: Neosoft Support

CSV to XLS

Postby alangonzalez91 » Mon Jan 30, 2017 6:08 am

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
alangonzalez91
 
Posts: 2
Joined: Sun Jun 13, 2010 12:52 pm
Location: Chaco - Argentina

Re: CSV to XLS

Postby Neosoft Support » Sun Feb 05, 2017 11:23 am

That's a great script. Thank you for sharing it with us.
NeoSoft Support
Neosoft Support
NeoSoft Team
 
Posts: 5545
Joined: Thu Mar 31, 2005 10:48 pm
Location: Oregon, USA

Re: CSV to XLS

Postby yanzco » Sun Feb 12, 2017 4:06 am

wow great...
can it do about xls to csv ?
yanzco
 
Posts: 162
Joined: Sun Jul 20, 2014 4:07 am

Re: CSV to XLS

Postby alangonzalez91 » Sun Feb 12, 2017 10:08 am

When I find it I post it, greetings!
alangonzalez91
 
Posts: 2
Joined: Sun Jun 13, 2010 12:52 pm
Location: Chaco - Argentina


Return to NeoBook Functions - VBScript & JavaScript

Who is online

Users browsing this forum: No registered users and 1 guest