Auswahlbox des zu importierenden *.txt files

Bild

Betrifft: Auswahlbox des zu importierenden *.txt files
von: ZECI
Geschrieben am: 02.10.2003 16:43:19

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

Bild


Betrifft: AW: Auswahlbox des zu importierenden *.txt files
von: ChrisL
Geschrieben am: 02.10.2003 16:48:43

Hi ZECI

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


Gruss
Chris


Bild


Betrifft: kannst Du mir nochmal helfen ?
von: ZECI
Geschrieben am: 03.10.2003 11:24:13

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


Bild


Betrifft: weiss nicht
von: ChrisL
Geschrieben am: 03.10.2003 12:11:31

Hi ZECI

Kenne die Antwort leider nicht.

Gruss
Chris


Bild


Betrifft: AW: Auswahlbox des zu importierenden *.txt files
von: Michael Scheffler
Geschrieben am: 02.10.2003 16:49:07

Hi,

nimm Application.GetOpenFileName

Gruß

Micha


Bild


Betrifft: AW: Auswahlbox des zu importierenden *.txt files
von: Reinhard
Geschrieben am: 02.10.2003 16:56:16

Hi Zeci,
etwa so:
...
TextDatei = Application.GetOpenFilename("Text Files (*.txt), *.txt")
With ActiveSheet.QueryTables.Add(_
Connection:= "TEXT;" & Textdatei, _
Destination:= Range("A100"))
...
Gruß
Reinhard


Bild


Betrifft: AW: Auswahlbox des zu importierenden *.txt files
von: zeci
Geschrieben am: 02.10.2003 17:06:09

Danke funkt tadellos

ZECI


Bild


Betrifft: erbitte nochmal Hilfe
von: ZECI
Geschrieben am: 03.10.2003 11:19:22

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


Bild


Betrifft: erledigt
von: t
Geschrieben am: 03.10.2003 13:05:48

http://xlforum.herber.de/messages/318644.html


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Überlauf in Schleife"