Supportnet / Forum / Tabellenkalkulation

Hi, ich bin auf der Suche nach einer Möglichkeit eine Textdatei ins Excel zu importieren. Mit der Funktion 'Workbooks.OpenText' funktioniert das fast so wie ich das gerne möchte. Nur mit dem kleinen Schönheitsfehler, dass die Datei in einem neuen Workbook geöffnet wird. Ich möchte aber gern mehrere Dateien importieren und jede Datei soll auf ein eigenes Worksheet. Wie geht das, wenn überhaupt? MfG

Hallo,

poste doch mal hier, wie dein Makro/Code bisher aussieht.

Gruß
cmkatz

Aber gerne:

Sub TransLogOeffnen()
'
' TransLogOeffnen Makro
' Makro am 21.06.2004 von Normal aufgezeichnet
'

Dim folder
Dim ext

folder = InputBox("Verzeichnis", "Verzeichnis eingeben...", CurDir)
If (folder = "") Then GoTo TransLogOeffnenEnde

ext = InputBox("Dateifilter", "Dateifilter eingeben...", "*")
If (ext = "") Then GoTo TransLogOeffnenEnde

With Application.FileSearch
.NewSearch
.LookIn = folder
.SearchSubFolders = True
.Filename = ext
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles

If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
OpenOneFile (.FoundFiles(i))
Next i
End If
End With

TransLogOeffnenEnde:

End Sub

' Hilfsfunktion zum Öffnen der Datei

Sub OpenOneFile(file As String)

Workbooks.OpenText file, xlMSDOS, 1, xlDelimited, xlNone, False, False, False, False, False, True, "@", Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), True

End Sub

MfG

weiterer Thread

• PDF File in Excel-Worksheet anzeigen
• Textdatei in Excel importieren
• Textdatei per VBA löschen
• Mit Excel in Textdatei Zeichen einfügen
• Exel in Textdatei