Dim adoVerbindung As New ADODB.Connection
Dim adoRecordset As New ADODB.Recordset
Dim sVerbindung As String
Dim sQuery As String
sVerbindung = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0 Xml;HDR=YES';Data Source=\\sharepoint.site\folder\folder\exceldatei.xlsx"
On Error GoTo adoError
adoVerbindung.Open (sVerbindung)
sQuery = "Select Spalte1 from [Tabelle1$]"
With adoRecordset
.Source = sQuery
.ActiveConnection = adoVerbindung
.Open
loZielTabelle.Range(2, 1).CopyFromRecordset adoRecordset
End With
[......]