Creating array of visible (filtered) rows in excel

[stupomer]

Hi Gintaras (and others),
I have a very large excel sheet (~30k rows), and I want to run a process on only the rows that are visible after a filter is applied. Ideally, there would be some way to have a single dimensional array of visible rows (or can do a <sel> range if I select after doing the filter. Then I could do something like

Code:

Copy      Help

ARRAY(int) FilteredRows
[some function to fill array with row numbers of visible/filtered cells]
for _i 0 FilteredRows.len
,if !empty(es.Cell(1 FilteredRows[i])) 
,,es.SetCell(2 FilteredRows[i] "not empty"

I saw something like this 

Code:

Copy      Help

Excel.Range r=es._Range("<sel>")

which would work I think if I select the visible rows after filter applied, but now sure how to use the Range object like an array.

Thanks for any thoughts!,
S

[apeso]

Code:

Copy      Help

 
typelib Excel
Excel.Application a._create
Excel.Workbook b=a.Workbooks.Add()
ExcelSheet es.ws=b.Worksheets.Item(1)
es.Activate(4) ;;activate Excel
es.ws.Application.Sheets.Item(1).Name = "Plan de Trabajo y Retorno del C"
int w=win("" "XLMAIN")
max w
str f.expandpath("$desktop$\test45.xls")
del f; err
b.SaveAs(f Excel.xlNormal @ @ @ @ 1)
es.ws.Application.ActiveWindow.Zoom=85

 Data Dummy and filter
es.ws.Application.ActiveSheet.Range("A1:C5").Value = "XXX YYY ZZZ"
es.ws.Application.ActiveSheet.Range("A3").Value = "Row to filter"
 Apply Filter
es.ws.Application.ActiveSheet.Range("$A$1:$C$5").AutoFilter(1,"XXX YYY ZZZ")
 Select Dummy
es.ws.Application.ActiveSheet.Range("A1:C5").Select
 Select visible cells
es.ws.Application.Selection.SpecialCells(xlCellTypeVisible).Select