ich habe in VBA in Excel einen Code geschrieben, mit dem ich Salden von Sachkonten auslesen möchte. Hierfür habe ich das BAPI GetGLAccountPeriodBalances vom Business Object GeneralLedger verwendet. Der Code sieht folgendermaßen aus:
- Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
- Sub Schaltfläche1_KlickenSieAuf()
- Dim oBAPICtrl As Object
- Dim oGeneralLedger As Object
- Dim oCompanyCode As Variant
- Dim oGLAccount As Variant
- Dim oFiscalYear As Variant
- Dim oCurrencyType As Variant
- Dim oAccountBalances As Object
- 'Erstellung des BAPI ActiveX Control Objekts
- Set oBAPICtrl = CreateObject("SAP.BAPI.1")
- oBAPICtrl.Connection.Logon
- 'SAP Logon
- MsgBox ("SAP Logon erfolgreich")
- End If
- 'Erstellung einer lokalen Instanz des Objekts GeneralLedger
- Set oGeneralLedger = oBAPICtrl.GetSAPObject("GeneralLedger", "0L")
- 'Deklaration einer lokalen Instanz des Exportparameters AccountBalances
- Set oAccountBalances = oBAPICtrl.DimAs(oGeneralLedger, "GetGLAccountPeriodBalances", "AccountBalances")
- oCompanyCode = Range("F1").Value '=0001
- oGLAccount = Range("F2").Value '=0000140000
- oFiscalYear = Range("F3").Value '=2013
- oCurrencyType = Range("F4").Value '=10
- oGeneralLedger.GetGLAccountPeriodBalances CompanyCode:=oCompanyCode, GLacct:=oGLAccount, _
- Fiscalyear:=oFiscalYear, CurrencyType:=oCurrencyType, AccountBalances:=oAccountBalances
- Range("F10") = oAccountBalances.Data(1, 7)
- End Sub
- GeSHi ©
Mein Problem ist nun, dass der Export-Parameter AccountBalances zwar mit den gewünschten Daten gefüllt wird. Allerdings werden die Daten in Tabellenform zurückgegeben (siehe Screenshot des Lokalfensters im Anhang) und ich weiß nicht, wie man diese ins Excel bekommt. Ich habe es mit Range("F10") = oAccountBalances.Data(1, 7) probiert, aber dabei kommt ein Laufzeitfehler.
Wäre super, wenn mit einer von Euch hierbei weiterhelfen könnte.
Viele Grüße
tomtom82