Thread: Extracting 3 Arrays from 1 Array

Hi there,

It's a bit difficult to diagnose with only the extract you've posted.

I can run the following code with no problems:

Code:

Sub TEST()

    Const UB1           As Integer = 4

      Dim Col_One       As Variant, x As Integer

      Dim vtData(4, 2)  As Variant

    ReDim Col_One(UB1 + 1)

    For x = 0 To UB1
        Col_One(x) = vtData(x, 0)
    Next x

End Sub

The only significant difference between your code & mine is that I've included a Dim statement for vtData - i.e. my code definitely "knows" what vtData is.

Are you sure that this variant has been declared in your code before the posted extract executes? Obviously it needs to be declared either within the routine itself or at the module or the Public level.

Hope this is helpful.

Regards,

Greg M

Thanks Greg, for your prompt reply.

I should have been more specific in my help request. When I said

that is Dimensioned as a Variant

I should have used my Dim stmt, which is

Code:

Dim vtData As Variant

I tried using your

Code:

Dim vtData(4, 2) As Variant

Two problems: 1) the number of columns is fixed at 3, but the number of rows is a variable; and 2) I get an error at the following stmt

Code:

vtData = BlpBulk.BlpSubscribe(sSec, sFld)

(this is where the Bloomberg data is imported into my VBA Code) The Compile error: states "Can't assign to array".
Obiously, there is more going on here than I am aware.

Any more ideas?

Since I am pulling in my array from Bloomberg, I have simulated the downloaded array; it has the same dimensions. My simulated array is:

Code:

    Dim x As Integer, y As Integer
    'POPULATE ARRAY
    For y = 0 To 2     '<<< THIS BECOMES UB2
        For x = 0 To 4 '<<< THIS BECOMES UB1
            vtData(x, y) = (x * y) + x + y
        Next x
    Next y

Using the following stmt:

Code:

Dim vtData(0 To 4, 0 To 2) As Variant

my code works using the simulated array instead of the one downloaded from Bloomberg; however, this does not solve my problem because I will not know the value of UB1 until the array is downloaded from Bloomberg.

If I use my original Dim stmt for vtData, I get a "Type mismatch" error on the preceding vtData(x, y) = ... stmt for the simulated array.

Later