autom. Einlesen von Textdatei

Forumthread: autom. Einlesen von Textdatei

25.01.2008 11:01:00

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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: autom. Einlesen von Textdatei

25.01.2008 11:28:54

Textdatei
AW: autom. Einlesen von Textdatei

25.01.2008 11:58:31

Textdatei

AW: autom. Einlesen von Textdatei

25.01.2008 11:28:54

Textdatei

Hallo Bernd,
ich hatte mal so ein Makro für mich gestaltet. Ich habe es Dir unten angehangen. Du müsstest es natürlich ein wenig für Deine Verhältnisse anpassen.
Gruß,
Ptonka


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

AW: autom. Einlesen von Textdatei

25.01.2008 11:58:31

Textdatei

Hallo Bernd,
so sollte es mit dateiauswahl-Dialog funktionieren.
Gruß
Franz


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)

Forumthread: autom. Einlesen von Textdatei

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread