ADO - Query - Überschriften mit Sonderz
30.01.2023 16:35:57
Christian
ich möchte mit folgendem CODE : bestimmte Spalten in mein Tabellenblatt importieren. Die Quelldatei hat in der Überschrift teilweise Sonderzeichen wie z.B ( " + etc.
aufgrund dessen funktioniert der CODE nicht :-( . Hat jemand eine Lösung, dass ich nicht zuerst in der Quelldatei die Überschriften ändern muss.
Vielen Dank im Voraus.
Christian
Sub ADO()
' Variable deklarieren
Dim Connection As New ADODB.Connection
Dim Query As String
Dim rs As New ADODB.Recordset
' Connection herstellen
Connection.Open "Provider=MSDASQL.1;DSN=Excel Files;DBQ=C:\Tagesangebot\CRM_DATEN.xlsx;HDR=Yes';"
' Query definieren und ausführen
Query = "SELECT Angebotsbezeichnung, HSP FROM [Tabelle1$]"
rs.Open Query, Connection
' Daten ins Tabellenblatt laden
DB.Range("E12").CopyFromRecordset rs
' Connection schließen
Connection.Close
End Sub