Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1308to1312
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

txt in xls einlesen - variabler Pfadname

txt in xls einlesen - variabler Pfadname
03.05.2013 21:28:38
Michael
Hallo,
per macro-recorder habe ich folgende Zeilen aufgenommen:
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Laptop\TestA\TestB\TestC\Test.txt", Destination:=Range("$A$1"))
Die Struktur
C:\Laptop\TestA\TestB\TestC\Test.txt
C:\Laptop\TestA\Test.xlsm.
Mein Problem:
Die Struktur ist gleichbleibend nur der Name des Ordner und der Pfad sind nicht konstant. Durch welchen Ausdruck muss ich "C:\Laptop\TestA\" ersetzen damit das Macro nur in der Ordnerstruktur nach der txt-Datei schaut wo es selbst steht.
Danke, viele Grüße
Michael

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: txt in xls einlesen - variabler Pfadname
04.05.2013 09:35:22
Michael
Hallo,
grundsätzlich sollte der Befehl ThisWorkbook.Path lauten um den Teil "C:\Laptop\TestA\" variabel zu halten. Allerdings führen die beiden "" zu einem Fehler, denn ich nicht zu umgehen weiß.
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;ThisWorkbook.Path & "\TestB\TestC\Test.txt" ", Destination:=Range("$A$1"))
Hat jemand eine Idee?
Danke, viele Grüße
Michael

AW: txt in xls einlesen - variabler Pfadname
04.05.2013 15:15:36
Michael
Habs gefunden
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" &ThisWorkbook.Path & "\TestB\TestC\Test.txt", Destination:=Range("$A$1"))
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige