Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
560to564
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
560to564
560to564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

txt Datei importieren

txt Datei importieren
07.02.2005 10:41:23
Timo
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

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

Betreff
Datum
Anwender
Anzeige
AW: txt Datei importieren
Dr.
Versuchs mal mit dem Makrorekorder, der verschafft Dir den nötigen Ansatz!
AW: txt Datei importieren
07.02.2005 11:02:10
Horst
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.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige