Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Name einer Textdatei in Zelle einlesen

Name einer Textdatei in Zelle einlesen
27.01.2016 16:56:39
juhop
Hallo Leute,
ich habe eine Frage. Gibt es eine Möglichkeit den Namen einer Textdatei in eine Zelle in Excel zu importieren? Bzw. wenn man eine Textdatei durch Visual Basic automatisch einlesen lässt, dass der Name der Datei in eine gesonderte Zelle eingefügt wird? Den Code zum einlesen der Textdatei habe ich bereits, das Einlesen von dem Namen funktioniert leider noch nicht.
Danke für eure Hilfe
Gruß
juhop

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Name einer Textdatei in Zelle einlesen
27.01.2016 17:10:35
Werner
Hallo,
toll, dass die den Code zum Einlesen der Textdatei schon hast. Hier hat ihn aber außer dir niemand.
Gruß Werner

AW: Name einer Textdatei in Zelle einlesen
02.02.2016 09:54:28
juhop
Kein Problem Werner, den Code teile ich Dir doch gerne mit ;)
Nun aber zum einetlichen Problem. Gibt es eine Möglichkeit den Namen der besagten Textdatei zu importieren?
Code für den Import der Textdatei:
If Len(strFile) Then
With ActiveSheet
.UsedRange.Clear
For Each objQT In .QueryTables
objQT.Delete
Next
With .QueryTables.Add(Connection:= _
"TEXT;" & strFile, Destination:=Range("$A$4"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = ","
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End With
End If

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige