Das Archiv des Excel-Forums

WG: Auswahlbox txt Datei importieren

Bild

Betrifft: WG: Auswahlbox txt Datei importieren
von: ZECI

Geschrieben am: 03.10.2003 11:55:54

Hy Leute:

habs soweit mit eurer Hilfe geschafft aber jetzt habe ich das folgende Problem:
bei ".Refresh BackgroundQuery:=False" komme ich nicht mehr weiter.

weiß da jemand Rat ?

Danke ZECI



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: AW: WG: Auswahlbox txt Datei importieren
von: ZECI
Geschrieben am: 03.10.2003 13:04:21

hab den Fehler selbst gefunden :

die Lösung:

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fFile, Destination:=Range("A100"))


 Bild

Excel-Beispiele zum Thema " WG: Auswahlbox txt Datei importieren"

Textdatei in Tabellenblatt importieren download Textdatei nach Begriff durchsuchen und Fundzeile importieren download
Diagramm exportieren und in Tabellenblatt importieren download Suchbegriffe in UserForm eingeben, Fundstelle importieren download
Benannte Bereich aus mehreren Arbeitsmappen importieren download Textdatei mit 250.000 Zeilen anlegen und importieren download
Name und Vorname suchen, Werte und Fundstellen importieren download Grafik importieren und in Zelle zentrieren download
Arbeitsblatt aus einer anderen Arbeitsmappe importieren download Textdatei über QueryTables importieren download
Textdatei in ein neues Tabellenblatt der Arbeitsmappe importieren download Alle Textdateien eines Verzeichnisses importieren download
Werte aus Textdatei importieren und umwandeln download Werte aus anderen Arbeitsmappen importieren download