kann mir jemand sagen wie ich [ DBQ=C:\Users\D10\OneDrive - Test\NCDatenbank.xlsx ] diesen Pfad durch eine Variable ersetzen kann, sodass ich nur die Variable anpassen muss und nicht immer die Connection ?
Vielen Dank !
Mein Code:
Sub CS()
'Zuerst unter Extras\Verweise\MS ActiveX Data Objects 6.1 Libary aktivieren
'Variablen deklarieren
Dim Connection As New ADODB.Connection
Dim Query As String
Dim rs As New ADODB.Recordset
Dim arr As Variant
'Connection herstellen
Connection.Open "Provider=MSDASQL.1;DSN=Excel Files;DBQ=C:\Users\D10\OneDrive - Test\NCDatenbank.xlsx;HDR=Yes';"