VBA - Pfad zuweisen

Computer: Software & Programmierung Office Software
1

Hallo,

Ich habe mir ein Makro erstellt (mittels „Makro aufzeichnen“), mit dem ich Daten aus einer csv-Datei importieren kann. Klappt auch alles wunderbar. Mein Problem ist jetzt, dass das Makro direkt den Zielordner angibt („TEXT;C:\Test\testdatei.csv“, ), in welchem die csv-Datei liegt. Ich möchte das aber allgemeiner halten, d.h. die csv Datei liegt im selben Ordner, wie das Workbook. --> Sonst gebe ich das Ziel mit path = ThisWorkbook.path an. Wie muss ich es hier machen?

Auszug des Makros:

Sub Daten_einlesen()

With ActiveSheet.QueryTables.Add(Connection:= _
„TEXT;C:\Test\testdatei.csv“, _
Destination:=Range(„A2“))
…

Wer kann mir helfen?

Boergi

2

Hallo Boergi,

das klingt doch so, als hättest du’s schon fast. Ich meine, du musst die beiden Befehle zur zusammenbauen.
Ungetestet:

 With ActiveSheet.QueryTables.Add(Connection:= \_
 "TEXT;" & ThisWorkbook.Path & "\testdatei.csv", \_
 Destination:=Range("A2"))

Gruß, Andreas

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Einwandfrei!

Vielen Dank.