Hallo!
Ich arbeite jetzt schon länger an einem Problem, was sich einfach nicht lösen lässt (aus meiner bescheidenen Sicht heraus).
Ich lade per Makro ca. 150-200 Textdateien in Excel, die alle nacheinander geöffnet und bearbeitet werden. Dann werden Werte aus diesen Dateien in meine Hauptdatei übernommen... So weit so gut. Diesen Vorgang habe ich bereits mit einer For... Next Schleife gebaut. Zum Ende der Schleife möchte ich, dass die jeweilige Datei die zu Beginn geöffnet wurde auch wieder geschlossen wird. Der Beginn der Datei sieht wie folgt aus:
Dim i As Integer
Dim ordner As String
Dim name As String
Dim pfad As String
ordner = "C:\Users\Theresa\Desktop\Daten IAT\"
ChDir ordner
For i = 1 To 200
'Datei öffnen
name = i & ".txt"
pfad = ordner & name
Call Workbooks.OpenText(Filename:=pfad, _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers _
:=True)
Am Ende des Schleifendurchgangs soll dann die Datei die hier geöffnet wurde wieder geschlossen werden. Irgendwie funktioniert es allerdings nicht, wenn ich
Workbooks(name).Close (False)
nutze.
Habe auch schon alle möglichen anderen Varianten durch, allerdings hat bisher noch keine Lösung mit einem variablen Bezug funktioniert. Liegt es vllt daran, dass es sich hier um eine Txt-Datei handelt?
Kann mir da jemand helfen?
Vielen Dank!!