Read Excel column data

[Gintaras]

Macro Macro1431

Code:

Copy      Help

act "Microsoft Excel"
spe 10
key CH ;;Ctrl+Home to select A:1
str s s2
rep 5
,;get cell A
,s.getsel
,s.trim
,out s
,
,;set cell C
,key RR ;;Rigt Right
,s2="OK"
,s2.setsel
,
,;next row
,key HD ;;Home Down

or

Macro Macro1438

Code:

Copy      Help

;/exe 1
ExcelSheet es.Init
str s s2
int i nRows
nRows=es.NumRows
for i 1 nRows+1
,;get cell A
,es.GetCell(s 1 i)
,out s
,
,;set cell C
,s2="NO"
,es.SetCell(s2 3 i)