.txt Dateien nacheinander öffnen
11.02.2019 11:45:59
Philipp
ich habe in einen Order C:\VBA\ mehrere Textdatein. Die erste Datei soll geöffnet, der Inhalt _ in das aktive Tabellenblatt beginnned in Zeile A1 geschreiben werden, dann folgt eine Bearbeitung des Tabellenblattes durch ein bestehendes Makro und jetzt soll die nächste Textdatei geöffnet werden und das selbe passieren. Folgenden Code dafür habe ich mir schon zusammen gegoogelt:
Sub openFiles()
Dim path As String
Dim pattern As String
Dim file As String
path = "C:\VBA\"
pattern = "*.txt"
file = Dir(path & pattern)
Do While file ""
Open file For Input As #1 'Txt Datei öffnen und in A1 einfügen
'''''Hier folgt das bestehende Makro'''''''''''
file = Dir
Loop
End Sub
Leider kommt immer der Fehler das die Datei nicht gefunden wird. Was ist flasch?
Grüße,
Philipp