Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1492to1496
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1492to1496
1492to1496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien öffenen mit VBA und dann löschen

Dateien öffenen mit VBA und dann löschen
12.05.2016 16:21:44
Elmar
Hallo Excelexperten,
hätte ein Problem, bei dem ich trotz Forum und rumprobieren nicht weiterkomme..
Ich bekomme jede Woche (immer Dienstags)in ein Verzeichnis D:\EM\Ablage_TS etwa 100 Dateien mit unterschiedlichen Namen reingeschoben. Nun soll ein Makro eine Datei nach der anderen abarbeiten. Die Routine der Abarbeitung (mehrere Sachen daraus in eine Gesamtzusammenstellung kopieren) habe ich schon, aber ich hab das Problem, dass ich nicht alle Dateien nacheinander geöffnet bekomme (weil die Namen jede Woche wieder anders lauten)und dann die Routine läuft und wenn das fertig ist, die Datei wieder geschlossen (oder gelöscht, das ist egal, die Dateien sind alle gesichert)wird.
Wenn ich jede einzeln öffne, mein "Kopiermakro" starte und dann wieder schließe geht das ganz gut, aber eben sehr zeitaufwändig.
Hat jemand eine Idee, wie ich die Dateien geöffnet und dann wieder geschlossen oder gelöscht bekomme mit Hilfe eines Makros?
Danke vorab schonmal
Elmar

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien öffenen mit VBA und dann löschen
12.05.2016 16:28:31
UweD
Hallo
hilft dir das?
in der Mitte baust du dein Makro ein.

Sub alle_Dateien_Verzeichnis() '
Dim Dlg As FileDialog
Dim Si, Ext$, Datei$
Set Dlg = Application.FileDialog(msoFileDialogFolderPicker) 'Verzeichnis wählen
If Dlg.Show = True Then
For Each Si In Dlg.SelectedItems
Ext = "*.xls*"
Si = IIf(Right(Si, 1) = "\", Si, Si & "\")
Datei = Dir(Si & Ext)
Do While Len(Datei) > 0
Workbooks.Open FileName:=Si & Datei
'mach was damit
Workbooks(Datei).Close False
Kill Datei
Datei = Dir() ' nächste Datei
Loop
Next
End If
End Sub

Gruß Uwe

Anzeige
AW: Dateien öffenen mit VBA und dann löschen
12.05.2016 16:36:44
UweD
im Kill-Befehl fehlt noch das Verzeichnis

Kill Si & Datei

AW: Dateien öffenen mit VBA und dann löschen
12.05.2016 16:32:12
Fennek
Hallo,
folgende Schleife öffnet alle Dateien eines Ordners und schließt sie nach der Bearbeitung. Mit einem "kill"-Befehl kann man sie auch löschen.

sPath = "c:\temp\" '  ""
'hier die Codes für die Bearbeitung
'z.B. : workbooks.open(sPath & sFile)
sFile = dir
loop
mfg

AW: Dateien öffenen mit VBA und dann löschen
12.05.2016 16:35:47
Daniel
Hi
du kannst dir DIR-Funktion verwenden.
mit DIR("D:\EM\Ablage_TS\*.xls*") bekommst du den Namen der ersten Exceldatei aus diesem Verzeichnis.
wenn du in der Folge dann nur noch DIR() abfragst, bekommst du die nächste Exceldatei aus diesem Verzeichnis.
Das kannst du in einer Schleife solange wiederholen, biss alle Dateien im Verzeichnis abgearbeitet sind auf die die erste Dir-Suche passt.
Wenn alle Dateien durch sind, gibt DIR dir dann den Leerstring zurück.
geht im Prinzip so: 

dim Pfad as String
dim Datei as String
dim wb as workbook
Pfad = "D:\EM\Ablage_TS\"
Datei = Dir(Pfad & "*.xls*")
Do Until Datei = ""
Set wb = Workbooks.Open(Pfad & Datei)
'--- hier dann der Code zum Bearbeiten der Datei
wb.Close False
Datei = Dir()
Loop
Gruß Daniel

Anzeige
AW: Dateien öffenen mit VBA und dann löschen
12.05.2016 16:53:45
Elmar
Hallo zusammen,
bin ja überwältigt.... wenn ich das gewusst hätte, hätte ich nicht 2 Stunden mit versuchen vergeudet!
Ich probiere später beide Lösungen aus,muss grade weg in eine Besprechung,gebe nochmal kurz Feedback
DANKE schon an Euch alle!!
VG aus Wien
Elmar

AW: Dateien öffenen mit VBA und dann löschen
13.05.2016 00:01:50
Elmar
Hallo zusammen,
wie gedacht... funktioniert bestens in beiden Variationen.
DANKE nochmal
Elmar

310 Forumthreads zu ähnlichen Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Leseschutz für Datei, mit VBA aufheben
Iro

Hallo,
folgendes Problem: ich will zwischen zwei Dateien Daten austauschen. Die A-datei soll grundsätzlich PW-geschützt werden, und zwar so, dass der User weder etwas verändern kann noch sie überhaupt öffnen. Nur wenn der User aus der B-datei mit der vorgesehenen Form Daten überträgt, soll...
21.10.2008 14:18:57
Thread-ID: 1017997
4 Beiträge
Anzeige
VBA Code vom anderen xls Datei ausführen
Urmila

Hallo,
besteht die Möglichkeit, ein VBA Code von anderen Datei aus zu starten?
Beispiel:
Datei 01.xls: hier steht der VBA Skript zum Speichern der Tabelle als Html.
Im Datei 02.xls ist ein Button und die Daten die als Html gespeichert werden sollen.
Wenn ich den Button drück...
27.11.2008 10:26:00
Thread-ID: 1028252
8 Beiträge
Zeilen aus anderer datei kopieren
Dieter

Hi,
habe mal wieder ein schweres Problem:
ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
Quelldatei : "IMPORT.XLS
Tabellenblatt : "DATEN" oder "FPC"
Zieldatei : "EXPORT.XLS
Tabelnneblatt : "EINGABE"
so,...
01.12.2008 11:51:16
Thread-ID: 1029203
5 Beiträge
Erzeugung einer bat Datei mittels VBA
Josef

Hallo!
Wie kann ich bitte mittels VBA eine bat Datei erzeugen und diese in einem gewünschten Ordner abspeiichern?
Danke
Josef
04.12.2008 06:51:22
Thread-ID: 1030010
5 Beiträge
im Verzeichnis aus allen Dateien Daten auslesen
walter

Hallo und guten Morgen,
ich habe u.a. Makro in der Anwendung, welches Daten aus allen Blättern EINER Datei im Blatt "Datenzusammenfassung" niederschreibt.
Jetzt würde ich ides gerne soweit verändern, daß alle Dateien ikn einem Verzeichnis (alle mit gleichem Aufbau) so ausgelesen werden...
08.01.2009 00:50:00
Thread-ID: 1037733
18 Beiträge
Daten aus Dateien auslesen
Bark

Ich habe ein Makro geschrieben, der Dateien in einem bestimmten Verzeichnis der Reihe nach öffnet und bestimmte Inhalte in Variablen packt und die Werte dieser Variablen in einer anderen Datei (Gesamtliste) wieder einfügt.
Läuft alles soweit gut. Aber die Laufzeit könnte besser sein. Was ka...
02.02.2009 14:29:21
Thread-ID: 1046247
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
4
3
3
7
4
4
17
3
3
2
4
2
6
5
4
2
3
1
2
4
4
2
3