Forum des VBA-Tutorials

Alle Dateien im Ordner öffnen (VBA)

hajosch, Samstag, 10. Februar 2018, 12:33 (vor 10 Tagen)

Hallo,

das folgende Makro funktioniert unter Word 7 nicht:

 
 
Sub allFiles()
'
datei = Dir("H:\Temp1\")           'Ordnernamen anpassen

While datei > ""
  Documents.Open FileName:=datei, ReadOnly:=False, Format:=wdOpenFormatAuto
' Makro-Code oder der Aufruf des entsprechenden Makros
  Call mFuß
  datei = Dir
Wend
 
End Sub
 

Ich möchte alle Word-Dateien in einem Ordner öffnen, ein anderes Makro auf die Dateien anwenden und dann die Dateien wieder schließen.

Wie bekomme ich das Makro lauffähig?

Danke und Gruß
hajosch

Alle Dateien im Ordner öffnen

Martin Asal, Samstag, 10. Februar 2018, 20:05 (vor 10 Tagen) @ hajosch

Hallo Hajosch,

ein Beispiel, das du leicht anpassen kannst, findest du hier:
http://http://www.vba-tutorial.de/referenz/dateien.htm

Martin

Alle Dateien im Ordner öffnen

hajosch, Sonntag, 11. Februar 2018, 10:46 (vor 9 Tagen) @ hajosch

Das Makro läuft ohne Nachricht durch, nach Öffnen eines Dokuments kommt die Nachricht 'Makrospeicher konnte nicht geöffnet werden'.
An der Stelle komme ich nicht weiter.
Gruß hajosch

Alle Dateien im Ordner öffnen

Martin Asal, Montag, 12. Februar 2018, 19:58 (vor 8 Tagen) @ hajosch

Wie gesagt, ich habe dir schon einen Link gegeben. Teste erst mal diesen Code im Direktfenster, dann kopiere aus deinem Beispiel den Code aus der Schleife in die Schleife des Beispielcodes und teste, was passiert. Müsste klappen.

Martin

Alle Dateien im Ordner öffnen

hajosch, Dienstag, 13. Februar 2018, 10:21 (vor 7 Tagen) @ Martin Asal

Hallo Martin,

die Prozedur funktioniert in meinem Sinne.
Vielen Dank!

Gruß hajosch

RSS-Feed dieser Diskussion
powered by my little forum