mit Excel schaffe ich es ja inzwischen bestimmte Felder aus der MM03 auzulesen, aber ich brauche es eigentlich in MS Access. Da funktioniert der Code aber nicht.

Ich möchte also eine Matnummer übergeben und dann die Matbezeichung, Warengruppe usw. auslesen.

Der Code in Excel sieht so aus, das läuft nicht in Access.

Sub Daten_aus_MM03()

Dim Matnummer As String
Dim Wrg As String, MatBez1 As String, MatBez2 As String
Dim test1, test2, test3

Set SapGuiAuto = GetObject("SAPGUI") 'Get the SAP GUI Scripting object
Set SAPApp = SapGuiAuto.GetScriptingEngine 'Get the currently running SAP GUI
Set SAPCon = SAPApp.Children(0) 'Get the first system that is currently connected
Set Session = SAPCon.Children(0) 'Get the first session (window) on that connection

Der Code bricht bei dem letzen Set Session ab. Mit der Fehlermeldung

Laufzeitfehler '440'

Die Eigenschaft ist schreibgeschütz

Wie geschrieben in Excel läuft es durch? Muss ich in Access irgendwas einstellen?

Danke und Gruss

Michel

Warum nimmst Du nicht RFC_READ_TABLE ?

http://www.abapforum.com/forum/viewtopic.php?f=1&t=21360 

gruß Jens