Hallo zusammen,

ich habe schon im Forum gesucht, aber nix passendes zu meinem Problem gefunden.... Zwischenzeitlich habe ich auf ChatGPT und Google bemüht, aber komme auf keinen grünen Zweig. Ich möchte via VBA auf das Datenmodell meines Power Pivots zugreifen, bekomme aber sobald das Recordset gesetzt werden soll (bei "Set Recordset = Command.Execute") immer eine Fehlermeldung: "Die Methode 'Execute' für das Objekt '_command' ist fehlgeschlagen".
Das VBA script ist denkbar einfach, wollte damit nur prüfen, ob die connection funktioniert. Sobald ich die Command-zuweisungen aukommentiere, also nur die connection öffne und wieder schliesse, bekomme ich keine Fehlermeldung. (Das klappt aber auch nur, wenn ich den Parameter "Initial Catalog=ThisWorkbookDataModel" weglasse und auf MSOLAP.7 einstelle)..
Verweise aktiviert habe ich zu den 4 Standards noch MS Active X Data Objects6.1 Library und MS Active X Dataobject Recordset 6.0 library....

Hier das Script:

Sub TestMSOLAP()
Dim Connection As New ADODB.Connection
Dim Command As New ADODB.Command
Dim Recordset As ADODB.Recordset
Dim Query As String
Query = "select * from tbl_Daten"
Connection.ConnectionString = "Provider=MSOLAP.7;Data Source=$Embedded$"
Connection.Open
Command.ActiveConnection = Connection
Command.CommandText = Query
Set Recordset = Command.Execute
Recordset.Close
Connection.Close
End Sub

Vielen Dank für Eure Hilfe schon im Voraus ;-)

Gruss
Andreas