VBA RFC Export Struktur übergeben
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
5 Beiträge
•
Seite 1 von 1
5 Beiträge
Seite 1 von 1
Hallo zusammen,
ein Kollege hat einen Funktionsbaustein programmiert, welcher 3 Import Parameter besitzt:
Parameter1 = Einzelfeld Charakter 20
Parameter2 = Einzelfeld Charakter 20
Parameter3 = Tabelle mit 5 Spalten (Tabkey, Sign, Option, Low, High)
Nun würde ich diesen Funktionsbaustein gerne über Excel VBA aufrufen und die Parameter übergeben.
Das Funktioniert im ersten Schritt wunderbar:
Nun würde ich Parameter3 gerne noch mit weiteren Zeilen befüllen.
Hieran scheitere ich leider. Meine Idee war es, dies mit einem Index zu machen
(also z.B.: .
exports.Item("Parameter3").[1].Value("TABKEY") = "ACCOUNT"
exports.Item("Parameter3").[2].Value("TABKEY") = "ENTITY"
etc.)
Leider wird der Index nicht unterstützt. Auch - ähnlich wie bei Tabellen-Objekten - mit Rows.Add zu arbeiten, schlägt leider fehl.
Hat jemand eine Idee wie ich das Problem lösen kann bzw. ist mein Vorhaben überhaupt umsetzbar?
Viele Dank und beste Grüße
Tobias
ein Kollege hat einen Funktionsbaustein programmiert, welcher 3 Import Parameter besitzt:
Parameter1 = Einzelfeld Charakter 20
Parameter2 = Einzelfeld Charakter 20
Parameter3 = Tabelle mit 5 Spalten (Tabkey, Sign, Option, Low, High)
Nun würde ich diesen Funktionsbaustein gerne über Excel VBA aufrufen und die Parameter übergeben.
Das Funktioniert im ersten Schritt wunderbar:
Code: Alles auswählen.
.exports("Parameter1") = "abc"
.exports("Parameter2") = "123"
Set Table = .exports.Item("Parameter3")
.exports.Item("Parameter3").Value("TABKEY") = "ACCOUNT"
.exports.Item("Parameter3").Value("SIGN") = "I"
.exports.Item("Parameter3").Value("OPTION") = "EQ"
.exports.Item("Parameter3").Value("LOW") = "2304100000"
.exports.Item("Parameter3").Value("HIGH") = ""Hieran scheitere ich leider. Meine Idee war es, dies mit einem Index zu machen
(also z.B.: .
exports.Item("Parameter3").[1].Value("TABKEY") = "ACCOUNT"
exports.Item("Parameter3").[2].Value("TABKEY") = "ENTITY"
etc.)
Leider wird der Index nicht unterstützt. Auch - ähnlich wie bei Tabellen-Objekten - mit Rows.Add zu arbeiten, schlägt leider fehl.
Hat jemand eine Idee wie ich das Problem lösen kann bzw. ist mein Vorhaben überhaupt umsetzbar?
Viele Dank und beste Grüße
Tobias
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Moin Tobias.
schau es Dir doch hier mal an:
http://www.tricktresor.de/blog/werte-pe ... portieren/
Tabellen Objekt
es geht auch mit Feldnamen :
Struktur Objekt
Demnach sähe Dein Coding so aus:
gruß Jens
schau es Dir doch hier mal an:
http://www.tricktresor.de/blog/werte-pe ... portieren/
Tabellen Objekt
Code: Alles auswählen.
:
:
'******** Create Table Object ************
Set SMDTabObj = SMDFunc.Tables("FIELDS")
SMDTabObj.freetable
SMDTabObj.appendrow
SMDTabObj.cell(1, 1) = "CHECKTABLE"
SMDTabObj.cell(2, 1) = "KEYFLAG"
:
:
Code: Alles auswählen.
SMDTabObj.cell("FELD1", 1) = "CHECKTABLE"
SMDTabObj.cell("FELD2", 1) = "KEYFLAG"
Struktur Objekt
Code: Alles auswählen.
:
:
Set SMDStrucObj = SMDFunc2.Imports("OLWRKOBJ")
X1 = SMDStrucObj.Value("OBJNAME")
X2 = SMDStrucObj.Value("STATUS")
:
:
Code: Alles auswählen.
Dim SMDStrucObj as Object
Set SMDStrucObj = <FunctionsObject??>.exports("Parameter3")
SMDStrucObj.Value("TABKEY") = "ACCOUNT"
SMDStrucObj.Value("SIGN") = "I"
SMDStrucObj.Value("OPTION") = "EQ"
SMDStrucObj.Value("LOW") = "2304100000"
SMDStrucObj.Value("HIGH") = ""
<:: XING-Gruppe Tricktresor::>
Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen –
Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen.
Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen –
Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen.
Hallo Jens,
vielen Dank für deine Antwort.
Der Code
funktioniert bei mir ohne Probleme. Allerdings kann ich immer nur ein Value pro Feld mitgeben, also eine Datenreihe erzeugen.
Mit meinem Code würde der Inhalt der Import-Struktur so aussehen:
TABKEY SIGN OPTION LOW HIGH
ACCOUNT I EQ 2304100000
Wie kann ich an meine Struktur eine weitere Datenzeile hinzufügen.
Das Ergebnis der Import-Struktur sollte z.B. so aussehen:
TABKEY SIGN OPTION LOW HIGH
ACCOUNT I EQ 2304100000
ENTITY I EQ 1000
Ich habe es z.B. schon mit
versucht. Das funktioniert aber leider nicht, da es sich um eine Import-Struktur handelt und nicht - wie z.B. beim RFC_READ_TABLE Funktionsbaustein - um ein Table-Objekt.
Viele Grüße
Tobias
vielen Dank für deine Antwort.
Der Code
Code: Alles auswählen.
Set Table = rfc_journal.exports("IT_FILTER")
Table.Value("TABKEY") = "ACCOUNT"
Table.Value("SIGN") = "I"
Table.Value("OPTION") = "EQ"
Table.Value("LOW") = "2304100000"
Table.Value("HIGH") = ""Mit meinem Code würde der Inhalt der Import-Struktur so aussehen:
TABKEY SIGN OPTION LOW HIGH
ACCOUNT I EQ 2304100000
Wie kann ich an meine Struktur eine weitere Datenzeile hinzufügen.
Das Ergebnis der Import-Struktur sollte z.B. so aussehen:
TABKEY SIGN OPTION LOW HIGH
ACCOUNT I EQ 2304100000
ENTITY I EQ 1000
Ich habe es z.B. schon mit
Code: Alles auswählen.
Table.Rows.Add
Table.Value("TABKEY") = "ENTITY"
Table.Value("SIGN") = "I"
Table.Value("OPTION") = "EQ"
Table.Value("LOW") = "1000"
Table.Value("HIGH") = ""Viele Grüße
Tobias
Moin Tobias
Eine Struktur ist immer Eindimensional und entspricht einer Feldleiste.
Damit kann man keine 2 te Zeile anhängen !
Falls der Kollege kein Zeit (oder so) hat, kannst Du den Baustein auch kopieren und entprechend anpassen.
lg Jens
Nun vielleicht ist er so nett und macht aus dem Import Parameter einen Tables Parameter.punkjunk hat geschrieben:ein Kollege hat einen Funktionsbaustein programmiert, welcher 3 Import Parameter besitzt:
Eine Struktur ist immer Eindimensional und entspricht einer Feldleiste.
Damit kann man keine 2 te Zeile anhängen !
Falls der Kollege kein Zeit (oder so) hat, kannst Du den Baustein auch kopieren und entprechend anpassen.
lg Jens
<:: XING-Gruppe Tricktresor::>
Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen –
Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen.
Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen –
Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen.
Seite 1 von 1
Vergleichbare Themen
3
Antw.
Antw.
2867
Views
Views
0
Antw.
Antw.
924
Views
Views
FuBa zum übergeben der PSP-Struktur an MS Project
von Johannes » 30.10.2005 13:38 • Verfasst in Financials
von Johannes » 30.10.2005 13:38 • Verfasst in Financials
3
Antw.
Antw.
3196
Views
Views
Variablen und Strukturken in größere Struktur übergeben.
von lav007 » 01.06.2016 13:23 • Verfasst in ABAP® für Anfänger
von lav007 » 01.06.2016 13:23 • Verfasst in ABAP® für Anfänger
10
Antw.
Antw.
1090
Views
Views
Tabelle vom Typ einer lokalen Struktur an Importing Parameter meiner Methode übergeben
von cecslucas » 21.04.2022 16:48 • Verfasst in ABAP® für Anfänger
von cecslucas » 21.04.2022 16:48 • Verfasst in ABAP® für Anfänger
2
Antw.
Antw.
1919
Views
Views
Struktur als Kopie von vorhandener Struktur anlegen
von Marwin » 20.04.2005 15:29 • Verfasst in ABAP® Core
von Marwin » 20.04.2005 15:29 • Verfasst in ABAP® Core
Frage die ABAP Experten
Über diesen Beitrag
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.