topic Macro - Loop Through Table in QlikView

Macro - Loop Through Table

Sat, 24 Mar 2012 13:44:15 GMT

I need a sample macro that loops thorugh a table and reads out some values. I can't find one.

Macro - Loop Through Table

flipside — Sat, 24 Mar 2012 20:53:00 GMT

Hi,

From API Guide.qvw ...

set TableBox = ActiveDocument.GetSheetObject( "TB01" )

for RowIter = 0 to TableBox.GetRowCount-1

for ColIter =0 to TableBox.GetColumnCount-1

set cell = TableBox.GetCell(RowIter,ColIter)

msgbox(cell.Text)

flipside

Macro - Loop Through Table

Sun, 25 Mar 2012 22:40:25 GMT

Hi flipside

Where in the API did you get this? The Automation Examples sheet? If so, what search did you do on member?

Macro - Loop Through Table

flipside — Mon, 26 Mar 2012 08:22:39 GMT

Hi Ian,

I'm working in QV10 and got it from ...

Class = TableBox

Member = GetCell

... showing as introduced in 6.0x.

flipside

Macro - Loop Through Table

Mon, 26 Mar 2012 17:43:01 GMT

If I don't want to loop through each column but just get a value from one column how would i do that?

set TableBox = ActiveDocument.GetSheetObject( "tb_emails_to_send" )

for RowIter = 0 to TableBox.GetRowCount-1

set cell = ?

msgbox(cell.Text)

Macro - Loop Through Table

Mon, 26 Mar 2012 18:21:29 GMT

This code moves from column to column and row to row and keepings counting. It gets the value in the 16th spot in the loop and puts into the variable vValue and exits the sub routine.

hths,

Stephen

sub ParetoCountInvValue1

vCounter1 = 0

vCounter2 = 0

set table = ActiveDocument.GetSheetObject( "CH01" )

for RowIter = 0 to table.GetRowCount-1

for ColIter =0 to table.GetColumnCount-1

set cell = table.GetCell(RowIter,ColIter)

vCounter1 = vCounter1 + 1

if vCounter1 = 16 then

'msgbox ColIter

'msgbox(cell.Text)

set v = ActiveDocument.Variables("vValue")

v.SetContent cell.Text,true

exit sub

else

end if

end sub

Macro - Loop Through Table

flipside — Mon, 26 Mar 2012 21:17:27 GMT

You just need to specify the column index (starting at zero for column 1) so looping through values in the first column would need...

set cell = TableBox.GetCell(RowIter,0)

flipside