Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
744to748
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
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro ausführen für alle Dateien im Verzeichnis

Makro ausführen für alle Dateien im Verzeichnis
22.03.2006 20:50:10
Wolfgang
Liebe Forumsanhänger,
ich habe ein Makro über den Makrorecorder und das Forum gebastelt, um Dateien
aus einer älteren EDV-Anwendung zu konvertieren (immer Einzelfall - also Datei öffnen - Makro ausführen - speichern).
Auf Grund einer EDV-Umstellung wäre es ideal, ein ganzes Verzeichnis (keine Unterverzeichnisse vorhanden) abzuarbeiten.
Kann mir jemand einen Verweis auf ein Beispiel im Archiv geben ?
(habe einiges an Beiträgen gelesen - geht aber meistens darum Inhaltsverzeichnisse zu erstellen oder Daten einzulesen)
Meine Vorstellung: Verzeichnis wählen - dann ein Makro, welches die Dateien in dem Verzeichnis nacheinander öffnet, mein vorhandenes Makro ausführt und die Datei dann "einfach" wieder speichert.
Bin mir sicher es gibt sowas schon oft - aber nach welchen Begriffen muss ich suchen (Verzeichnis abarbeiten, Dateien abarbeiten haben z. B. nicht geholfen)
Habe auch im Archiv etwas gefunden, bei dem die Dateien nacheinander geöffnet und dann in ein anderes Verzeichnis gespeichert werden.
Ich kann aber keinen Verweis auf ein zweites Makro erkennen bzw. nichts finden,
das mit den Dateien passiert - soweit bin ich leider noch nicht.
Liebe Grüße - Wolfgang

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro ausführen für alle Dateien im Verzeichni
22.03.2006 20:55:44
MichaV
Hallo,
das hört sich ja an, als ob Du keine fertige Lösung präsentiert haben willst.
Mit diesem Prinzip kannst Du alle Dateien eines Verzeichnisses ermitteln:

x=Dir("dein\Verzeichnis\*.txt")
do
'Dein Makro kann nun Datei x öffnen und bearbeiten
'und wieder schließen
x=dir() 'wählt die nächste Datei
loop until x="" 'beendet die Schleife nach der letzten Datei

In den Hilfe- Beispielen zur Dir- Funktion findest Du entsprechende Infos.
Gruß- Micha
PS: Rückmeldung wäre nett.
AW: Makro ausführen für alle Dateien im Verzeichnis
22.03.2006 20:59:54
chris
Hallo wenn ich dich richtig verstanden habe suchst du das.

Sub neu()
Pfad1 = "C:\Excelfiles\"
name1 = Dir(Pfad1, vbDirectory)
Do While name1 <> ""
If name1 <> "." And name1 <> ".." Then
If (GetAttr(Pfad1 & name1) And vbDirectory) = vbNormal Then
If Right(name1, 3) = "xls" Then
Call deinmakro
End If
Debug.Print name1
End If
End If
name1 = Dir
Loop
End Sub


Sub deinmakro()
End Sub

Rückmeldung wäre nett.
gruß Christian
Anzeige
AW:was vergessen.
22.03.2006 21:03:44
chris
Du musst natürlich noch die .xls datei öffnen und dann erst call deinmakro ausfrühren.
Habe ich vorhin vergessen.
Workbooks.Open Pfad1 & name1
Call deinmakro
ActiveWorkbook.Close True
Danke - tolle Hilfe
23.03.2006 19:58:31
Wolfgang
Ihr habt mir sehr geholfen - obwohl ich dem Wahnsinn nahe war
(landete in einer Endlosschleife - auch beim schrittweisen ausführen)
Habe letztendlich die für mich einfachere Idee von Micha angepaßt.
Ich brauche euch ja nur alle paar Monate - klappt aber immer super !
Liebe Grüße - Wolfgang

129 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige