"Data Type Mismatch" Error while "For Each" Loop is working

[sokolowitzky]

Hello,
I have found some macros in this forum. While testing them, I found out that I get error during "for each" loop.
I have found another code in wiki pages of openoffice, which contains "for each" loop, I received the same error.
I tried some other ways but no joy. Somehow I keep getting error.

Do you might have any idea about where I might be wrong?

Here is the code below, originally from(https://wiki.openoffice.org/wiki/Docume ... s#For_Each)

Code: Select all

SUB TEST_VARIABLE
Const d1 = 2
Const d2 = 3
Const d3 = 2
Dim i
Dim a(d1, d2, d3)
For Each i In a()
    ' ... Inner part of loop 
Next i
END SUB

[JeJe]

Works for me - what are you putting in the loop?

[FJCC]

The code also works for me. Here is a modified version that prints the numbers 1 through 12. Does it work for you?

Code: Select all

SUB TEST_VARIABLE
Const d1 = 1
Const d2 = 2
Const d3 = 1
Dim i
Dim a(d1, d2, d3)

j=0
For Each i In a()
    j=j+1
    print j
Next i

END SUB

[JeJe]

Code: Select all

SUB TEST_VARIABLE
Const d1 = 2
Const d2 = 3
Const d3 = 2
Dim i
dim a(d1, d2, d3)

a(0,0,0)="first"
a(2,3,2)="last"

For Each i In a()
msgbox i
    ' ... Inner part of loop
Next i
END SUB