Arbeiten mit arrays in VBA

Bin ich ein bisschen ein problem, die Arbeit mit arrays in VBA, wo das gleiche wäre trivial in (fast) jeder anderen Sprache auch:

Public Function getArray() As MyType()
    'do a lot of work which returns an array of an unknown length'
    'this is O(N^2) or something equally intensive so I only want to call this once'
End Function

Public Sub doSomething()
    Dim myArray() As MyType
    Set myArray = getArray() 'FAILS with "Cannot assign to array error"'
End Sub

Ich denke, es könnte sein, dass ich zu definieren, die Länge des Arrays im Voraus, oder ReDim ein dynamisches array. Aber ich weiß nicht, die Länge des zurückgegebenen Arrays vor der Zeit, und ich möchte vermeiden, den Aufruf der Funktion zweimal:

Public Sub doSomething()
    Dim myArray(0 To UBound(getArray()) As MyType  'not entirely sure if this would work, but it involves calling getArray twice which I'd like to avoid
    Set myArray = getArray()
End Sub

In C# - oder Java-das äquivalent wäre:

public MyType[] getArray(){
    //do some work and return an array of an unknown length
}

public void doSomething(){
    MyType[] myArray;
    myArray = getArray();  //one line and I don't need to define the length of array beforehand
}

InformationsquelleAutor Iain Sproat | 2011-02-24

arrays vba

~~Bei der Zuweisung von arrays von benutzerdefinierte Objekte in vba, müssen Sie übergeben, um als Varianten~~ ich habe ein voll funktionsfähiges Muster.

Klassenmodul mit dem Namen MyType:

Public Once As Integer
Public Twice As Integer
Public Thrice As Integer

Code im Standardmodul:

Public Function getArray() As MyType()
Dim i As Integer, arr() As MyType
    'do a lot of work which returns an array of an unknown length'
    'this is O(N^2) or something equally intensive so I only want to call this once'
    For i = 0 To Int(Rnd() * 6) + 1
        ReDim Preserve arr(i)
        Set arr(i) = New MyType
        arr(i).Once = i
        arr(i).Twice = i * 2
        arr(i).Thrice = i * 3
    Next i
    getArray = arr
    MsgBox "Long process complete"
End Function

Public Sub doSomething()
Static myArray() As MyType
Dim i As Integer
    If UBound(myArray) = -1 Then
        myArray = getArray()
    End If
    For i = LBound(myArray) To UBound(myArray)
        Debug.Print myArray(i).Once & vbTab & _
                    myArray(i).Twice & vbTab & _
                    myArray(i).Thrice
    Next i
End Sub

Public Sub Test()
Dim i As Integer
    For i = 1 To 3
        Debug.Print "Run Number " & i & vbCrLf & String(10, "-")
        doSomething
        Debug.Print
    Next i
End Sub

Wenn Sie das erste mal ausführen doSomething ein array mit zufälliger Länge wird generiert, und Sie werden sehen, eine Meldung, die sagt, "Lange Prozess abgeschlossen". Nachfolgende Aufrufe doSomething wird die erneute Verwendung der array erstellt, das erste mal.

Wenn Sie kopieren Sie diesen code und führen Sie einfach die Test sub aufrufen doSomething drei mal. Sehen Sie die message-box einmal und die Ausgabe von doSomething im Direktfenster drei mal.

InformationsquelleAutor mwolfe02

2

Gut, man könnte das array übergeben, als Referenz an die Funktion wie folgt:
```
Public Sub MyFunc(ByRef arr() As MyType)
  ...
End Sub


Dim myArr() as MyType
MyFunc myArr
```
Innerhalb der Funktion können Sie ReDim array wollte.

InformationsquelleAutor dwo
1

Es ist durchaus möglich, ein array zurückgeben, von einer Funktion in VBA. Nach MSDN:

[Y]ou kann auch eine Prozedur aufrufen, die ein array zurückgibt und zuordnen zu einem anderen array. [ . . . ] Beachten Sie, dass die Rückgabe eines Arrays aus einer Prozedur, Sie weisen einfach das array mit dem Namen der Prozedur.

So brauchen Sie nur zu ändern Sie Ihren bestehenden code durch entfernen Set von der Zuweisungsanweisung:
```
Public Function getArray() As MyType()
    'do a lot of work which returns an array of an unknown length'
    'this is O(N^2) or something equally intensive so I only want to call this once'
End Function

Public Sub doSomething()
    Dim myArray() As MyType
    myArray = getArray
End Sub
```
- Ich habe noch nicht persönlich ausprobiert, da ich keinen Zugang zu Office, aber es ist genau das gleiche wie das gezeigte auf der MSDN-Website (siehe link in meiner Antwort). Ich habe wenig Grund zu der Annahme, dass es nicht funktionieren wird.
- Mea culpa. Ich ging zurück und erneut geprüft, meine eigenen Tests. Es scheint, dass das, was Sie haben, wird in der Tat Arbeit. Ich habe auch aktualisiert, meine Antwort entsprechend.
- Ich schrieb eine schnelle Antwort, die sehr ähnlich aussah wie dieses, es getestet, und fand dann dieses war bereits hier. So habe ich von Ihnen positiv bewertet werden als eine richtige Lösung und nicht die Mühe zu posten mine. Aber ja, es funktioniert.
- Ich hab da zu dem gleichen Schluss kommen (siehe meinen Kommentar direkt über Euch). Würde ich löschen, mein ursprüngliche Kommentar wenn nicht für die Tatsache, dass dann alle follow-ups würde keinen Sinn mehr ergeben.
- Sie wurden zunächst richtig, dass arrays übergeben werden können, als Variant anstelle von einem bestimmten Typ, aber wie hast du da rausgefunden, das ist unabhängig von der Tatsache, dass Sie erstellt haben, ein Objekt einer benutzerdefinierten Klasse. Vielen Dank für den code testen und zu überprüfen, dass es tatsächlich funktioniert.
InformationsquelleAutor Cody Gray
1

Ich denke, dass Sie gerade benötigen, um loszuwerden, das set im Set myArray = getArray()

Dieser verhält sich richtig:
```
Option Explicit

Public Function getArray() As Integer()
    Dim test(1 To 5) As Integer
    test(1) = 2
    test(2) = 4
    getArray = test
End Function

Public Sub doSomething()
    Dim myArray() As Integer
    myArray = getArray()
    Debug.Print (myArray(2))
End Sub
```
- Das gibt der "Objekt-variable oder With-block variable nicht festgelegt" Fehler, damit ich denke, die Set erforderlich ist
- Dies könnte sein, wenn das array leer ist.
- Es funktioniert für mich, ohne den Satz das ist. Was ist myType? Ich habe nur Ganzzahlen verwendet.
- myType ist eine Klasse ich habe die in einer Klasse definiert Modul.
- Und das ist, warum diese Lösung funktioniert nicht für diesen speziellen Fall. Arbeiten mit benutzerdefinierten Objekten erschwert die Dinge in VBA.
- Sind Sie darauf hindeutet, dass dies unmöglich?
- Nein. Ich habe eine funktionierende Lösung, die sich mit dem benutzerdefinierten Objekt-Problem.
InformationsquelleAutor sheepez

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.