VBA JOIN XL97 + thread expanded Table-It & XL97

[erik.van.geit]

Hi, gurus,

JOIN is not available in XL97
a workaround is to loop
or is there something better ?

Option Explicit

Sub test()

Dim arr(10) As Variant
Dim i As Long
Dim txt As String

    For i = 1 To 10
    arr(i) = i
    Next i
    
On Error Resume Next
MsgBox "...." & Join(arr, vbLf) & "....", 64, "EXCEL 2000 +"

    For i = 1 To 10
    txt = txt & vbLf & arr(i)
    Next i
    
MsgBox "...." & txt & "....", 64, "EXCEL 97"

End Sub

I didn't find much documentation on this.
Can you point me to some links or do you know a better workaround ?

kind regards,
Erik

 

[erik.van.geit]

Hi, Erik

I didn't know he is talking about Table-It add-in...

I should have pushed SUBMIT earlier
changed the topictitle

 

[picklefactory]

Thanks for the reply Erik, I didn't have chance to check your suggestion at work (Can you believe they kept me working???), I'm now at home where I have XP. I'll have to wait till Monday to try it. I'll repost then.
Cheers

 

[erik.van.geit]

OK,

have a nice weekend

 

[picklefactory]

Hi Erik
Back again. I've tried your suggestion above and get the same error with a simple formula, the debug shows the hang on the following line, I have no clue what it doesn't like.

If arr1(i, j) <> vbNullString And arr2(i, j) <> 1 Then

Is that any help? Incidentally, that was using the formulas only Table-It
Cheers

 

[picklefactory]

PS i and j are all=1 in both parts.

 

[erik.van.geit]

please send me by email
the range you want to work with (change background color)

when you are in debugmode what are the values of
arr1(i, j) & arr2(i, j)
(hover with mouse over cells to see what they are)

let's hope to find it
Erik