Thema Datum  Von Nutzer Rating
Antwort
Rot SAP Tabelle where Bedingung
 09.05.2014 08:46:46 iDope?
NotSolved
23.05.2014 15:17:19 FSWorks
NotSolved

Ansicht des Beitrags:
Von:
iDope?		 Datum:
09.05.2014 08:46:46		 Views:
1668		 Rating:
     
Antwort:
  Ja
Thema:
SAP Tabelle where Bedingung

Hallo,

 

Ich möchte über VBA eine Tabelle aus SAP in Excel importieren. Das klappt auch alles soweit außer dass die WHERE-Bedingung nicht klappt.

Das ist mein Code:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
'Trennzeichen für Werte
                Set RFC_READ_TABLE = SAPFunctions.Add("RFC_READ_TABLE")
                Set strExport1 = RFC_READ_TABLE.Exports("QUERY_TABLE")
                Set strExport2 = RFC_READ_TABLE.Exports("DELIMITER")
                Set tblOptions = RFC_READ_TABLE.Tables("OPTIONS")
                Set tblData = RFC_READ_TABLE.Tables("DATA")
                Set tblFields = RFC_READ_TABLE.Tables("FIELDS")
                       
                strExport1.Value = "USREXTID"
                strExport2.Value = "|"
                     
                'WHERE-Bedingung
               tblOptions.AppendRow
               tblOptions(1, "TEXT") = "BNAME = 'I*'"
          
                'Feldreihenfolge
                tblFields.AppendRow
                tblFields(1, "FIELDNAME") = "BNAME"
                tblFields.AppendRow
                tblFields(2, "FIELDNAME") = "EXTID"
 
                If RFC_READ_TABLE.Call = True Then
 
                    If tblData.RowCount > 0 Then
                    For i = 1 To tblData.RowCount - 1
                        Cells(i, 1) = tblData(i, 1)
                        Next i
                    End If
                Else
                    LoadTableDataFCT = False
                End If
 
End Function
 
Ich hoffe mir kann jemand helfen, vielen Dank (:

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot SAP Tabelle where Bedingung
 09.05.2014 08:46:46 iDope?
NotSolved
23.05.2014 15:17:19 FSWorks
NotSolved