Herbers Excel-Forum - das Archiv

Dateiauswahl zum importieren von txt Dateien

Bild

Betrifft: Dateiauswahl zum importieren von txt Dateien
von: Udo

Geschrieben am: 07.03.2005 20:19:47
Hallo, ich habe ein Makro zur Aufteilung einer Text Datei erstellt.
https://www.herber.de/bbs/user/19329.txt
Die bezieht sich aber auf einen festen Pfad!!
wie könnte das Makro ergänzt werden um eine Datei auf dem Rechner vorher auswählen zu können??
Bild

Betrifft: AW: Dateiauswahl zum importieren von txt Dateien
von: Matthias G

Geschrieben am: 07.03.2005 20:31:59
Hallo Udo,
so vielleicht?
Sub Protokoll_einlesen()
Dim fn
fn = Application.GetOpenFilename("Textdateien, *.txt", , "Textdatei auswählen:")
If fn = False Then Exit Sub
With ActiveSheet.QueryTables.Add(Connection:=fn, _
Destination:=Range("A2"))
.Name = "protokoll"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = ":"
.TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
.Refresh BackgroundQuery:=False
End With
End Sub
Gruß Matthias
Bild

Betrifft: AW: Dateiauswahl zum importieren von txt Dateien
von: Udo
Geschrieben am: 07.03.2005 20:38:08
Danke,
es kann so einfach sein!!
 Bild
Excel-Beispiele zum Thema "Dateiauswahl zum importieren von txt Dateien"
Dateiauswahl-Dialog mit vorgegebenen Dateinamen aufrufen Dateiauswahl über UserForm
Textdatei in Tabellenblatt importieren Textdatei nach Begriff durchsuchen und Fundzeile importieren
Diagramm exportieren und in Tabellenblatt importieren Suchbegriffe in UserForm eingeben, Fundstelle importieren
Benannte Bereich aus mehreren Arbeitsmappen importieren Textdatei mit 250.000 Zeilen anlegen und importieren
Name und Vorname suchen, Werte und Fundstellen importieren Grafik importieren und in Zelle zentrieren