Microsoft Office Tutorials and References
In Depth Information
Kapitel 7 – Tipps und Tricks
Else
SAP_Verbindung = True
End If
End With
End Sub
Wenn die Verbindung zustande kommt, enthält das Objekt
SAP_Connection die Funktionsbausteine, das Makro kann eine wei-
tere Objektvariable einsetzen, um den Funktionsbaustein RFC_
READ_TABLE auszulesen.
Set objektvariable = SAP_Function.Add("RFC_READ_TABLE")
Das Makro dimensioniert alle benötigten Variablen, fordert den
Tabellenamen vom Anwender an, legt ein neues Tabellenblatt an und
schreibt zuerst die Spaltentitel und dann die SAP-Daten in das Tabel-
lenblatt.
Dim objTabellen As Object
Dim objOptionen As Object
Dim objFields As Object
Dim objTabdaten As Object
Dim i, j As Integer
Dim strRow As String
Dim varDataRow As Variant
Dim bolColumn As Boolean
bolColumn = False
Set objTabellen = SAP_Function.Add("RFC_READ_TABLE")
With objTabellen
.exports("QUERY_TABLE") = InputBox("Bitte Tabellenbezeichnung eingeben")
.exports("DELIMITER") = "|"
End With
With objTabellen
Set objOptionen = .tables("OPTIONS")
Set objFields = .tables("FIELDS")
Set objTabdaten = .tables("DATA")
End With
'Aufruf des Funktionsbausteins
ret = objTabellen
'Daten in Excel-Tabelle übertragen
If objTabdaten.RowCount > 0 And ret = True Then
Sheets.Add
For i = 1 To objTabdaten.RowCount
strRow = objTabdaten(i, 1)
varDataRow = Split(strRow, "|")
If bolColumn = False Then
For j = 0 To UBound(varDataRow)
Cells(1, j + 1).Value = objFields(j + 1, 1)
Next j
bolColumn = True
End If
Search JabSto ::




Custom Search