nur neue Dateien aus Ordner oeffnen

Hallo Excel-Profis,
ich bitte um Hilfe zu folgender Aufgabe:
Aus mehreren Dateien (Excel) in einem Verzeichnis sollen Daten in eine Excel-Datenbank (im gleichen Verzeichnis) übertragen werden.
Für die Dateien die schon übertragen wurden, möchte ich den Namen der Datei abändern, indem ich mit VBA davor ein "e_" setzen lasse.
Da aber immer wieder neue Dateien in das Verzeichnis rein kommen, scheitere ich bei dem Versuch, nur die Daten aus den Dateien ohne das "e_" vor dem Dateinamen zu öffnen und zu übertragen. Außerdem wird bei meinen Versuchen auch immer wieder die Datenbank (mit dem VBA-Code) geöffnet, was natürlich auch nicht sein darf.
Den ganzen Beispielcode habe ich aus Frust, weil es nicht geklappt hat, wieder gelöscht. Deshalb kann ich auch keine Beispieldatei mit hochladen.
Wie könnte so eine Lösung über VBA aussehen?
Ich bedanke mich im voraus für Eure Mühe.
Gruß Helmut

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub aaa() Dim sFile As String, sPath As String Dim wkb As Workbook sPath = "c:\temp\" sFile = Dir(sPath & ".xls*") Do While sFile "" If Not sFile Like "e_*" Then Set wkb = Workbooks.Open(sPath & sFile) 'mach was wkb.Close False Name sPath & sFile As sPath & "e_" & sFile End If Loop End Sub

Hallo Helmut,
man soll das alte Jahr nicht mit Frust beenden. Ich habe deshalb einen Lösungsvorschlag erarbeitet. Um das Ganze zu testen, schlage ich vor, den Pfad C:\Gemeinsamer_Ordner" anzulegen und dort alle Einzeldateien aus der ZIP-Datei einzustellen. Mit der Datei "Regie" kannst Du den gemeinsamen Ordner analysieren und die Datei, welche Du laden möchtest, auswählen. Nach der Bearbeitung kannst Du die bearbeitete Datei in den gemeinsamen Ordner mit der entsprechenden Kennung ("e_") zurückschreiben und dabei gleich die alte Datei (ohne Kennung) löschen. Die soll ja wohl nicht erneut bearbeitet werden, oder?
Wenn Du meinen Vorschlag getestet hast und auf Deine Anwendung anpassen möchtest, sind in der Datei "Regie" in der Tabelle1 die entsprechenden Formeln für die Dateibezeichnungen anzupassen. In der Tabelle2 ist in Spalte "H" der richtige Pfadname einzusetzen. In den Spalten M u. S stehen lauter Formeln, die die Negativ-Dateien ermitteln. Hier musst Du in den Zeilen 1-50 (bei noch mehr Dateien, entsprechend erweitern und Kopierbefehle ändern) die entsprechenden Änderungen, die für Deine Dateien zutreffend sind, vornehmen. Die Zelle "M1" kann man herunterkopieren; in Spalte S müssen einzeln die Zellen "S1" und "S2" angepasst werden, "S2" kann man dann herunterkopieren.
Hier nun die ZIP-Datei:
https://www.herber.de/bbs/user/83204.zip
Wünsche einen Guten Rutsch ins Jahr 2013 (ohne Frust).
Peter Kloßek

Beliebteste Forumthreads (12 Monate)

nur neue Dateien aus Ordner oeffnen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

nur neue Dateien aus Ordner oeffnen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread