Textdateien automatisiert einlesen

Bild

Betrifft: Textdateien automatisiert einlesen von: Hagen H.
Geschrieben am: 28.02.2005 17:26:16

Hallo,
ich brauche dringend Hilfe. Habe eine Excel-Vorlage definiert und möchte Teile aus einer immer gleich aufgebauten Textdatei (*.ht=HyperTerminal-Aufzeichnung) einlesen und in verschiedene Tabellen einlesen. Dabei muss die Datei die eingelesen werden soll variabel sein sowie die Position in der Tabelle, wo ich sie einfüge. Ich habe schon mal einen Versuch unternommen, aber der funzt nicht so recht.........:


Sub SensorX()
'
' SensorX Makro
' Makro am 28.02.2005 von Heimstaedt aufgezeichnet
'
' Tastenkombination: Strg+i
'
    Dim Datei As String
    Z = ActiveCell.Row
    S = ActiveCell.Column
    Datei = Application.GetOpenFilename("Textdateien (*.ht; *.txt),*.ht;*.txt", 1, False)
    Workbooks.OpenText Datei, Origin:=xlWindows _
        , StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=False, OtherChar:="-", FieldInfo:=Array(Array(1, _
        2), Array(2, 2), Array(3, 2), Array(4, 4), Array(5, 2), Array(6, 1), Array(7, 1))
    Range("B26:C35").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False
    Range("B16").Select
    Selection.Copy
    Windows("Sensorkalibration.xlt").Activate
    ActiveCell.Offset(0, 0).Activate
    ActiveSheet.Paste
    Windows("Heimstädt70bar.ht").Activate
    Range("B26:C35").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Sensorkalibration.xlt").Activate
    ActiveCell.Offset(2, 0).Activate
    ActiveSheet.Paste
    Windows("Heimstädt70bar.ht").Activate
    Range("D26:E35").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Sensorkalibration.xlt").Activate
    ActiveCell.Offset(0, 2).Activate
    ActiveSheet.Paste
    Columns("A").Replace What:=".", Replacement:=","
    Columns("B").Replace What:=".", Replacement:=","
    
    End Sub

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Textdateien automatisiert einlesen"