leider bin ich erneut an meine VBA-Grenzen gestossen und benötige Eure Unterstützung.
Das Thema ist zwar schon 1000-mal diskutiert, leider komme ich mit meinen Copy & Paste-Fähigkeiten damit nicht zurecht.
Der u.a. Code liest "eine" ausgewählte .txt aus dem gewählten Ordner und importiert den Inhalt in Spalte A der aktuell geöffneten Tabelle.
Mein Ziel ist es, dass "alle" Dateien im Zielordner, die diese Format haben, in Spalten getrennt und mit dem Dateinamen als Überschrift in die aktuelle Mappe geschrieben werden.
Danke für Eure Hilfe
Gruß
Basti
Sub Datei_importieren()
Dim Datei As String, Text As String
Dim Zeile As Long
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
On Error GoTo Fehler
'Quelldatei festlegen
Datei = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
Open Datei For Input As #1 ' Quelldatei öffnen.
Zeile = 1
Do While Not EOF(1) ' Schleife bis Dateiende
Line Input #1, Text ' Text lesen
ActiveSheet.Cells(Zeile, 1) = Text
Zeile = Zeile + 1
Loop
Close #1 'Quelldatei schließen
Exit Sub
Fehler:
Close #1
MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
, vbCritical, "da ist leider ein Fehler aufgetreten"
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End Sub