Read excel cells and create list.

Hello friends,

Here I am facing a problem in reading excel file through lisp.
I hade download program from this discussions and edited .but it takes too much time for output

Does anybody having program of reading excel file and list same like read-line function of auto lisp

My requirements is as below

Contains of excel file
1000 2000 3000 4000 5000 6000 7000

After reading excel file I need these values in list
Example (“1000†“2000†“3000†“4000†“5000†“6000†“7000â€)

Also I need this in loop next lines 1 by one.
Gentlemen’s pls. help me in this.

Regards
Amit

 

This example should get you started: .....Or at least get this thread
started

(setq l1 "1000 2000 3000 4000 5000 6000 7000")
(setq l2 nil)
(repeat 7
(setq l1 (vl-string-left-trim " " l1))
(setq tst (rtos (atoi l1) 2 0))
(setq l2 (cons tst l2))
(setq l1 (vl-string-left-trim tst l1))
)
(setq l2 (reverse l2))

 

you can read/write "vlaue2" property of Excel range vla-object and then conver data between the variant and VL list. This will have a same speed as VB do.

 

values shud not be in lisp format
(setq l1 "1000 2000 3000 4000 5000 6000 7000")
are in diff. excel cells
1000 2000 3000 4000 5000 6000 7000
pls. tell me again if u kno.

amit

 

thanks 4 reply.

do u have any sample program. coz i am not familer with vlisp functions

amit

 

You can go to http://www/ikozmos.com to download VLXLS.
There is a sample file to show the data exchanged between ACAD and Excel

Following is a very simple to conver Excel data into VL list:

First of all, please load VLXLS.LSP (or vlxls-* functions will not work) and make sure an Excel session with data is opened and set as current active spreadsheet. The codes below will convert all Excel data into VL List

(vlxls-app-init) ;;;Initialize Link between Excel/ACAD
(setq *xl* (vlax-get-object "Excel.Application")) ;;; Get the Excel VLA-Object
(if *xl* (setq Range (vlxls-sheet-get-usedrange *xl* nil))) ;;; Get all used range vla-object
(if Range (setq value (vlax-get-property Range "Value2") ;;; Get the variant value
value (vlxls-variant->list value) ;;; Convert Variant into VL list
))
(vlax-release-object range)
(vlax-release-object *xl*) ;;; Release the vla-object

The return value is a two dimension list, similia format is
'(("" "" "" "")
("" "" "" "")
("" "" "" "")
....
)