autom. Einlesen von Textdatei

Hallo,
ich würde gerne den Datenimport einer Textdatei, den ich per Makrorekorder aufgezeichnet habe, flexibler gestalten.
Schön wäre es, wenn beim Start des Makros ein Dateiexplorer aufmacht, wo man die die zu importierende Textdatei aus einer Verzeichnisstruktur auswählen kann.
Viele Grüße
Bernd
PS:
Hier der Code:


Sub Einlesen()
' Einlesen Makro
Range("A1").Select
Application.CommandBars("External Data").Visible = False
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;P:\test\text.txt", _
Destination:=Range("A1"))
.Name = "Daten_2007_12"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "="
.TextFileColumnDataTypes = Array(1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End 

Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Datei_finden() Dim var As Variant Dim icounter As Integer Range("B3").Value = "" Range("B5").Value = "" Range("B3").Select var = Application.GetOpenFilename("Alle-Dateien (*.*),*.*,", MultiSelect:=True) On Error GoTo ERRORHANDLER For icounter = 1 To UBound(var) Wert = var(icounter) Next icounter Range("B3").Value = Wert Wertlänge = Len(Wert) For k = 1 To Wertlänge Wertrechts = Right(Wert, k) Slash = Left(Wertrechts, 1) Select Case Slash Case Is = "\" Wertname = Right(Wert, k - 1) Range("B5").Value = Wertname GoTo weiter End Select Next k weiter: Range("B3").Select Exit Sub ERRORHANDLER: Beep MsgBox "Abbruch !" Range("B3").Select End Sub

Sub Einlesen() ' Einlesen Makro Dim Dateiname Dateiname = Application.GetOpenFilename(FileFilter:="textdateien(*.txt),*.txt", _ Title:="Bitte Textdatei mit Daten öffnen") If Dateiname = False Then Exit Sub Range("A1").Select Application.CommandBars("External Data").Visible = False With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;" & Dateiname, Destination:=Range("A1")) .Name = "Daten_2007_12"

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread