Query Abfrage

[taschenlampe]

Hallo zusammen,
heute mal wieder eine Frage.

Ich mache eine Datenverbindung über MS Query, klappt auch soweit. Wie bekomme ich es aber hin das ich als Quelle einen dymanischen Namen verwende?
Der Editor baut ja folgendes: DSN=Excel Files;DBQ=PfadZurDatei\quelle.xls


Ich möchte die Quelle variabel haben und er soll den Namen aus der Datei quelle.xls in Zelle z1 holen.

Wie baue ich das zusammen?

LG und Danke

[Wastl]

Hallo taschenlampe

mit VBA?

Code:

Sub dyn()
datei = ActiveSheet.Cells(1, 1)
Pfad = "DSN=Excel Files;DBQ=PfadZurDatei\" & datei & ".xls"
Debug.Print Pfad
End Sub

[taschenlampe]

danke