txt Datei importieren

Bild

Betrifft: txt Datei importieren von: Timo
Geschrieben am: 07.02.2005 10:41:23

Hallo,

ich möchte gerne eine txt-Datei in excel importieren und entsrechend anpassen.

kann mir jemand einen anreiz geben, wie ich die datei importiere?

vielen Dank,

Timo

Bild


Betrifft: AW: txt Datei importieren von: Dr.
Geschrieben am: 07.02.2005 10:42:32

Versuchs mal mit dem Makrorekorder, der verschafft Dir den nötigen Ansatz!


Bild


Betrifft: AW: txt Datei importieren von: Horst S.
Geschrieben am: 07.02.2005 11:02:10

Vor ca. 2 Monaten aus Erkenntnissen hier und von anderen Quellen
"zusammengesaugt" und hiermit weitergegeben:

'Split-Funktion wg. Office 97-Kompatibilität, in Office XP vorhanden, in Office 2000 ??
Public Function Split(ByVal sIn As String, Optional sDelim As _
  String, Optional nLimit As Long = -1, Optional bCompare As _
   Long = vbBinaryCompare) As Variant
Dim sRead As String, sOut() As String, nC As Long
  If sDelim = "" Or Len(sDelim) > Len(sIn) Then
    ReDim Preserve sOut(0)
    sOut(0) = sIn
  Else
    sIn = sIn & sDelim
    Do While sIn <> "" And Len(sDelim) < Len(sIn)
      sRead = ReadUntil(sIn, sDelim, bCompare)
      ReDim Preserve sOut(nC)
      sOut(nC) = sRead
      nC = nC + 1
      If nLimit <> -1 And nC >= nLimit Then Exit Do
    Loop
  End If
  Split = sOut
 End Function
Private Function ReadUntil(ByRef sIn As String, _
    sDelim As String, Optional bCompare As Long = vbBinaryCompare) As String
Dim nPos As Long
  nPos = InStr(1, sIn, sDelim, bCompare)
  If nPos > 0 Then
    ReadUntil = Left(sIn, nPos - 1)
    sIn = Mid(sIn, nPos + Len(sDelim))
  End If
 End Function 
Public Function TXT_einlesen(ByVal Dateiname As String) As Variant
Dim ReadFile, zeile As String, arr_str As Variant
'leere Tabelle zum Einlesen
Workbooks.Add
'Dialog öffnen auf Basis von *.txt, *.log oder *.dat Files
ReadFile = Dateiname
Open ReadFile For Input As #1
Do While Not EOF(1)
Line Input #1, zeile
    arr_str = Split(zeile, vbTab) ' Splatentennzeichen statt vbTab ggf ";"
    j = j + 1
    For i = 0 To UBound(arr_str)
        Cells(j, i + 1) = arr_str(i)
    Next i
Loop
Close #1
End Function



....


Sub DEINMAKRO ()

Dateneinlesen.Show

...
...

End Sub

Horst S.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "txt Datei importieren"