Excel ectraction row by row

[Gintaras]

Macro Macro1456

Code:

Copy      Help

;/exe 1
ARRAY(str) a
ExcelSheet es.Init

;get selected row index. If selected single column, select A-W.
int r nc
es.GetSelectedRange(0 nc r)
if(nc=1) es.SelectRange(F"A{r}:W{r}")

;get data from selection
es.GetCells(a "sel")

;select next row
r+1
es.SelectRange(F"A{r}:W{r}")


;results
int i
for i 0 a.len(1)
,out a[i 0]
;A in a[0 0], B in a[1 0], C in a[2 0], ...