Aufruf von BAPI-Funktion (Rückgabewerte) in VBA

Aufruf von BAPI-Funktion (Rückgabewerte) in VBA

Hallo,

habe eine neue Funktion und weiß nicht, wie ich die Tabellenwerte auslesen kann.

Lokale Schnittstelle:
*" IMPORTING
*" VALUE(MATERIAL)LIKE CSAP_MBOM-MATNR
*" VALUE(BOM_USAGE)LIKE CSAP_MBOM-STLAN
*" .....
*" weitere 8 VALUES()... OPTIONAL
*" EXPORTING
*" VALUE(FL_WARNING) LIKE CAPIFLAG-FLWARNING
*" TABLES
*" T_STPO STRUCTURE STPO_API02 OPTIONAL
*" T_STKO STRUCTURE STPO_API02 OPTIONAL
*" .....
*" wietere tables STRUCTURE... OPTIONAL

Der Quellcode dazu:

Public SAPConnestion()
...
Set theFunc = FunctionCtrl.Add("FUNKTIONSNAME")
Set Tabelle1 = theFunc.Tables("T_STPO")

theFunc.Exports("MATERIAL")="12345678"
theFunc.Exports("BOM_USAGE")="2"
...
Debug.Print Tabelle1.RowCount ' hier:1
Debug.Print Tabelle1.ColumnCount ' hier:88

If Tabelle1.RowCount<>0 ' es dibt eine Stückliste

For wert =1 To Tabelle1.ColumnCount

' hier müsste ich die Spaltenwerte der Tabelle
zurückbekommen, weiß aber nicht wie
Next
End If
...
End sub

Grüße
stori

Hallo stori,

ich würde es so machen:

For Each Row In theFunc.tables("T_STPO").Rows
debug.print Row(Row.Index)
Next Rows

Das ist jetzt ungetestet, bei Row(Row.Index) bin ich mir nicht ganz sicher.

Analog dazu kannst du dir auch die Spaltenüberschriften holen:

For Each Column in theFunc.tables("T_STPO").Columns
debug.print Column.ColumnName
debug.print Column.intlength
Next Column

Die Anzahl der Spalten kann man auch so ermitteln:

debug.print theFunc.tables("T_STPO").ColumnCount
oder Zeilen
debug.print theFunc.tables("T_STPO").RowCount

Und wenn man es so macht, spart man sich Schreibarbeit

Private Sub blablabla
Dim T_STPO as Object
.....dein Code .....set theFunc = sowieso
und dann
Set T_STPO = theFunc.tables("T_STPO")
......und weiter
For Each Row in T_STPO
..... blabla
Next Row
End Sub

Wie gesagt, ist ungeprüft ,-)

gruß´
danielA.