Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1312to1316
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datei öffnen Dialog für Import aus einer txt-Datei

Datei öffnen Dialog für Import aus einer txt-Datei
22.05.2013 18:28:58
Bubble
Hallo liebe Exelperten,
mit folgendem im Makrorecorder aufgezeichneten Code habe ich eine txt-Datei in einen vorgegebenen Bereich eines Arbeitsblattes importiert. Die Pfadangabe bezieht dabei auf eine bestimmte Datei in einem bestimmten Ordner. Zuerst wird der Bereich für den Import gelöscht, danach die Datei geöffnet und die Werte in die Zellen eingetragen.
Sub Diff_import()
' Diff_import Makro
' Überstunden aus dem letzten Monat importieren.
Range("A4:G109").Select
Selection.ClearContents
Range("A4").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;E:\Eigene Dateien\Eigene Dokumente\Test\test.txt", _
Destination:=Range("$A$4"))
.Name = "test_import"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Range("G13").Select
End SUB

Meine Frage ist nun, kann man dieses Makro so umbauen, das ein Datei öffnen Dialog erscheint, wo man die zu importierende txt-Datei auswählen kann. Ein Traum wäre es, wenn in diesem Datei öffnen Dialog der Pfad voreingestellt ist, in dem sich auch die Exelmappe befindet, aus der heraus ich ich dieses Makro starte. Ich habe etwas mit Application.GetOpenFilename.("Textdateien (*.txt), *.txt") experimentiert, aber leider ohne Erfolg. Da sich die verschiedenen txt-Dateien und die Exelmappe immer im gleichen Ordner befinden, dacht ich auch an ThisWorkbook.Path & "\" aber ich habe es nicht unter einen Hut bekommen.
Danke für Eure Mühe
Bubble

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

Betreff
Datum
Anwender
Anzeige
AW: Datei öffnen Dialog für Import aus einer txt-Datei
22.05.2013 18:48:27
Rudi
Hallo,
Sub Diff_import()
' Diff_import Makro
' Überstunden aus dem letzten Monat importieren.
Dim sFile As String
Range("A4:G109").ClearContents
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = ActiveWorkbook.Path & "\"
.Filters.Add "TextFiles", "*.txt", 1
.FilterIndex = 1
If .Show = -1 Then
sFile = .SelectedItems(1)
End If
End With
If sFile  "" Then
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & sFile, Destination:=Range("$A$4"))
.Name = "test_import"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End If
Range("G13").Select
End Sub

Gruß
Rudi

Anzeige
AW: Datei öffnen Dialog für Import aus einer txt-Datei
22.05.2013 19:49:28
Bubble
Hallo Rudi,
funktioniert genauso wie ich mir das gewünscht habe.
Vielen Danke für Deine Mühe und einen schönen Abend wünsche ich.
Bubble

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige