Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Auswahlbox des zu importierenden *.txt files

Forumthread: Auswahlbox des zu importierenden *.txt files

Auswahlbox des zu importierenden *.txt files
02.10.2003 16:43:19
ZECI
Hey Leute,

habe immer wieder verschiedene txt files zu importieren, habe ein Makro erstellt welches tadellos funkt aber ich möchte anstatt immer dem gleichen File
eine Abfragebox bei Beginn des Makros erhalten mit der ich dann die jeweilige txt Datei suchen kann und diese dann mit immer den gleichen Parametern importieren.

Hat da jemand ne Lösung für mich ?

Grüße ZECI

Hier ein Auszug vom Makro:


Sub neu()

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\01\evac_34950866_103569110_EUR_43_4430_Paper_EFT.txt", Destination:= _
Range("A100"))
.Name = "evac_34950866_103569110_EUR_43_4430_Paper_EFT"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 3
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierNone
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(9, 9, 9, 1, 1, 2, 9, 9, 9, 5, 9, 9, 1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9)
.Refresh BackgroundQuery:=False
End With
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auswahlbox des zu importierenden *.txt files
02.10.2003 16:48:43
ChrisL
Hi ZECI

Dim fFile As Variant
fFile = Application.GetOpenFilename("Text-Dateien (*.txt), *.txt")
If fFile = False Then Exit Sub


Gruss
Chris
kannst Du mir nochmal helfen ?
03.10.2003 11:24:13
ZECI
habs soweit geschafft aber jetzt habe ich das folgende Problem:
bei ".Refresh BackgroundQuery:=False" komme ich nicht mehr weiter.

Sub Import()


Dim fFile As Variant
fFile = Application.GetOpenFilename("Text-Dateien (*.txt), *.txt")
If fFile = False Then Exit Sub

With ActiveSheet.QueryTables.Add(Connection:="TEXT;fFile", _
Destination:=Range("A100"))
.Name = fFile
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 3
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierNone
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(9, 9, 9, 1, 1, 2, 9, 1, 1, 5, 9, 9, 1, 9, 1, 9, 9, 9, 9, 9, 9, _
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9)
.Refresh BackgroundQuery:=False
End With
Anzeige
weiss nicht
03.10.2003 12:11:31
ChrisL
Hi ZECI

Kenne die Antwort leider nicht.

Gruss
Chris
AW: Auswahlbox des zu importierenden *.txt files
02.10.2003 16:49:07
Michael Scheffler
Hi,

nimm Application.GetOpenFileName

Gruß

Micha
AW: Auswahlbox des zu importierenden *.txt files
02.10.2003 16:56:16
Reinhard
Hi Zeci,
etwa so:
...
TextDatei = Application.GetOpenFilename("Text Files (*.txt), *.txt")
With ActiveSheet.QueryTables.Add(_
Connection:= "TEXT;" & Textdatei, _
Destination:= Range("A100"))
...
Gruß
Reinhard
Anzeige
AW: Auswahlbox des zu importierenden *.txt files
02.10.2003 17:06:09
zeci
Danke funkt tadellos

ZECI
erbitte nochmal Hilfe
03.10.2003 11:19:22
ZECI
habs soweit geschafft aber jetzt habe ich das folgende Problem:
bei ".Refresh BackgroundQuery:=False" komme ich nicht mehr weiter.

Sub Import()


Dim fFile As Variant
fFile = Application.GetOpenFilename("Text-Dateien (*.txt), *.txt")
If fFile = False Then Exit Sub

With ActiveSheet.QueryTables.Add(Connection:="TEXT;fFile", _
Destination:=Range("A100"))
.Name = fFile
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 3
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierNone
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(9, 9, 9, 1, 1, 2, 9, 1, 1, 5, 9, 9, 1, 9, 1, 9, 9, 9, 9, 9, 9, _
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9)
.Refresh BackgroundQuery:=False
End With
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