Office: Objekte in Collections-Container speichern

Hallo!

Ich habe ein kleines Problem in VBA. Und zwar liefter eine SAP-RFC-Baustein eine Ergebnistabelle zurück, aus dieser sollen die Zeilen als Objekte zu einem bestimmten Wert als Key in einem Containerdatentypen (Collection oder Scripting.Dictionary) abgelegt werden.

Das Problem bei der Sache ist, dass VBA scheinbar nur eine Referenz auf die Objekte im Container ablegt, was dazu führt, dass alle Keys richtig gesetzt sind, ihnen als Wert allerdings immer das gleiche Objekt zugeordnet wird.

Ich würde also gerne die Objekte beim "adden" in die Collection dereferenzieren, damit auch das tatsächliche Objekt in der Collections abgelegt wird.

Hier der Code dazu:
Code:

Der Knackpunkt ist die Schleife am Ende der Prozedur, bzw. der Aufruf "all_accounts.add [...]".
Hat hier jemand einen heissen Tipp für mich?

LG
Chris

:)

 

Hallo Chris,

versuchen könntest Du es mit NEW.

Aber nur als Vermutung.

Dim all_accounts As New Collection

 

Hallo Uwe,

Sorry, mein Fehler. Ich hab beim Refactoring für diesen Post leider eine Zeile vergessen:
Code:

Trotzdem besten Dank für deinen Tipp.

LG
Chris


Kleiner Nachtrag:
Die Funktion kompliliert einwandfrei. Hier liegt kein syntaktisches Problem vor. Ich möchte/muss mit einen Weg finden, dass bei der Add-Methode der Collection nicht eine Referenz auf ein Objekt abgelegt wird, sondern das zur Laufzeit instanzierte Objekt an sich.

 

Hallo Chris,

was mir dazu noch einfällt, ist, dass der Key nur als String akzeptiert wird.

all_accounts.Add F2.tables.Item("ACCOUNT_BALANCES"), CStr(looper.value("SAKNR"))

 

Hallo Uwe!

Nochmals besten Dank für deine Hilfe, aber ich glaube du hast meine Frage missverstanden. Der Zugriff auf die Items der Collection funktioniert wunderbar, auch wenn ich über deren Schlüssel ( looper.value("SAKNR") ) gehe. Das ist auch schon ein String, dem entsprechend brauche ich eigentlich nicht typecasten.
Das Problem ist, dass F2.tables.Item("ACCOUNT_BALANCES") ein Objekt enthält. Wenn ich dieses nun der Collection hinzufüge, wird lediglich der Zeiger auf das Objekt in die Collection geschrieben. Das führt dazu, dass ich nachher eine Collection hab, die zwar so viele Items enthält, wie ich auch hinzugefügt habe & diese lassen sich auch über den Wert aus looper.value("SAKNR") ansprechen lassen. Alle Items der Collection präsentieren mir jedoch die gleichen Werte (/das gleiche Objekt) ... weil eben (oder scheinbar) immer nur eine Referenz auf den Speicherbereich, den F2.tables.Item("ACCOUNT_BALANCES") belegt, abgelegt wird.


So ... ich hoffe das hat ein wenig Licht ins dukel gebracht.

LG
Chris

 

Also wenn ich das richtig verstehe ist F2.tables.Item("ACCOUNT_BALANCES") im Prinzip ein Datenfeld vergleichbar mit einem Excel-Bereich?
In dem Fall könntest du versuchen die Werte in einem Feld zu speichern und das in das Collectionobjekt einfügen.
Beispiel 1 speichert die Verweise auf die Tabelle:
Code:

Beispiel 2 speichert die Werte aus der Tabelle:
Code: