VBA verbindung aus Excel zu einer Sharepoint Liste

Mantus erstellt 28 Sept. 2016 13:59

Hallo Community,

ich habe folgende Aufgabenstellung erhalten und kommen nicht recht weiter:

Ich muss Daten aus einer Sharepoint liste in einer Unterwebsite (Name Datum etc.) in ein Formular übertragen. Da die Daten gefiltert werden sollten hatte ich an VBA gedacht. Ich hab im Internet auch das ein oder andere gefunden mit ADO aber so wirklich will es nicht laufen. Habt ihr einen Weg wie ich die Daten in das Formular übertragen kann ?

Das was ich bisher gefunden habe sieht so aus:

Sub TestPullFromSharepoint()
 Const sDEMAND_ROLE_GUID As String = "{97770A2F-418B-4D04-BDD4-C1AB446F8BB8}"
 Const sSHAREPOINT_SITE As String = "http://IchBinDieAdresseZurUnterwebsite/kfz/"

' This pulls the data from a SharePoint list. Don't forget a reference
' to the MS ActiveX Objects in "References".

' Variable declarations.
Dim cn As New ADODB.Connection
Dim rs As Recordset
Dim sConn As String
Dim sSQL As String

' Build the connection string: use the ACE engine, the database is the URL if your site
' and the GUID of your SharePoint list is the LIST.
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=2;RetrieveIds=Yes;" & _
"DATABASE=" & sSHAREPOINT_SITE & ";" & _
"LIST=" & sDEMAND_ROLE_GUID & ";"

Set rst = cn.Execute("Select * from List")


'
' Build your SQL the way you would any other. You can add a WHERE clause
' if you need to filter on some criteria.
sSQL = "SELECT tbl.[Vorname] FROM [KFZ-Kennzeichen] as tbl;"

' Open up the recordset.
rs.Open sSQL, cn, adOpenStatic, adLockOptimistic

' Copy the recordset data to a worksheet.
 ThisWorkbook.Worksheets("Sheet1").Range("A2").CopyFromRecordset rs

End Sub

Leider bekomme ich dabei immer einen Automatisierungsfehler sobald ich die Connection öffnen will.

Villeicht hat ja einer von euch so einen Auftrag in der Art schon mal gehabt und kann mir weiter helfen

MfG

Mantus