Mit VBA
28.03.2023 08:20:53
JoS
Mit VBA sollte es gehen. Pfad anpassen und los
Sub DateienImportieren()
Dim OrdnerPfad As String, DateiName As String, VollstaendigerDateiName As String
Dim i As Integer
'Ordnerpfad angeben
OrdnerPfad = "C:\MeinOrdner\"
'Für alle Dateien im Ordner
For i = 1 To 99
'Dateiname generieren
DateiName = "w" & Format(i, "00") & ".txt"
'Vollständigen Dateinamen erstellen
VollstaendigerDateiName = OrdnerPfad & DateiName
'Datei öffnen und Inhalt in eine Zelle in der ersten Zeile einfügen
On Error Resume Next ' Fehlerbehandlungsroutine starten
Workbooks.OpenText Filename:=VollstaendigerDateiName, _
StartRow:=1, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=True, _
Other:=False, _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1)), _
TrailingMinusNumbers:=True
If Err.Number > 0 Then ' Wenn ein Fehler aufgetreten ist
Err.Clear ' Fehler löschen
On Error GoTo 0 ' Fehlerbehandlungsroutine deaktivieren
GoTo Weiter ' Zum nächsten Schleifendurchlauf springen
End If
On Error GoTo 0 ' Fehlerbehandlungsroutine deaktivieren
Range("A1").Copy Destination:=ThisWorkbook.Worksheets(1).Cells(i, 1)
Workbooks(DateiName).Close savechanges:=False
Weiter:
Next i
End Sub