relativen Pfad in aufgezeichnetem Excel-Makro angeben

[Zauberei]

Hallo,

ich möchte ein in Excel 2007 aufgezeichnetes Makro bearbeiten.
Während der Aufzeichnung des Makros wurden externe Daten aufgerufen, die in einer CSV-Datei enthalten sind. Dazu musste ich während der Aufzeichnung in einem Explorer-Fenster den Pfad angeben.
Fortan soll sich aber die (monatlich ausgetauschte) CSV-Datei immer im Ordner der Arbeitsmappe befinden und dieser Ordner widerum an beliebigen Orten gespeichert werden können.

Der betroffene Code-Auszug:

Sheets("EVN").Select
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\Zauberei\Desktop\Neuer Ordner\EVN.xls", Destination:=Range( _
"$A$1"))
.Name = "EVN_1"

Der fett markierte Pfad stimmt absofort nicht mehr. Es müsste beispielsweise automatisch der absolute Pfad der geöffneten Arbeitsmappe erkannt und dort vermerkt werden.
Normalerweise macht man das glaube ich mit: ThisWorkbook.Path & "\Pfad\"
Aber hier muss man scheinbar einen Text angeben. Habe aber alles über VBA-Code inzwischen vergessen und weiß daher nicht, wie ich den Code entsprechend ändern muss. Gibt immer Syntax-Fehler

 

[Mr. Snoot]

So:

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & ThisWorkbook.Path & "\EVN.xls", Destination:=Range("$A$1"))