Excel ectraction row by row

[Gintaras]

insert after es.GetCells...

Code:

Copy      Help

;make selected cells green
Excel.Range sr=es.ws.Application.Selection
sr.Interior.ColorIndex = 4
sr.Interior.Pattern = Excel.xlSolid

or

Macro Excel get row

Code:

Copy      Help

Acc ac=acc("Fill Color" "DROPLIST" win("" "XLMAIN") "MsoCommandBar" "" 0x1001)
ac.Mouse(1)

The second code does not erase Undo.