Alle Dateien eines Ordners ansprechen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2007] Alle Dateien eines Ordners ansprechen

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

homax
Newbie
Newbie

Anmeldedatum: 20.03.2008
Beiträge: 26

Verfasst am: 01.07.2008, 15:49

Hallo Forum,

ich möchte ein Makro über alle Dateien in einem Verzeichnis laufen lassen. Das geschieht mit:

Code:

Sub AlleDateienAnsprechenFürFileEinfügen()

Dim Verz, DName As String
Verz_default = "E:\Studium\MW WE 3.4 Bad\"
Verz = InputBox("Verzeichnis der Eingabedateien?", , Verz_default)
DName = Dir(Verz & "*.xls")

'1. Datei öffnen, makro ausführen und Datei schließen
If DName <> "" Then
'MsgBox (Verz & DName)
Workbooks.Open (Verz & DName)
MW_aus_File_in_FL_einfügen
ActiveWorkbook.Close
End If

'weitere Dateien öffnen, makro ausführen und Datei schließen
Do While (DName <> "")
DName = Dir()
If DName <> "" Then
'MsgBox (Verz & DName)
Workbooks.Open (Verz & DName)
MW_aus_File_in_FL_einfügen
ActiveWorkbook.Close
End If
Loop

End Sub

Die Ausgabe der bearbeiteten Dateien erfolgt als Subroutine in MW_aus_File_in_FL_einfügen:

Code:

Sub Verzeichnis_erstellen(Dir_out)

If Dir(Dir_out, vbDirectory) = "" Then 'überprüfung ob Verz existiert, aber dann Probleme mit Aufrufen weiterer Dateien
MkDir Dir_out
End If
End Sub

Das Problem ist, das nach dem Durchlauf des Subs Verzeichnis_erstellen die Datei im Loop des Subs AlleDateienAnsprechenFürFileEinfügen() nicht weitergezählt werden.
wenn ich diese Überprüfung mit Dir(Dir_out, vbDirectory)... nicht durchführe durchläuft es alle dateien, aber es erstellt das Verzeichnis jedesmal neu...

Habt ihr irgendeine Idee was ich ändern muss, damit es mit der ABfrage Dir(Dir_out, vbDirectory) funktioniert?

Vielen Dank
homax

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 01.07.2008, 16:06

Hallo!

Wenn ich mir diese Schleife so anschaue:

Code:

'weitere Dateien öffnen, makro ausführen und Datei schließen
Do While (DName <> "")
DName = Dir()
If DName <> "" Then
'MsgBox (Verz & DName)
Workbooks.Open (Verz & DName)
MW_aus_File_in_FL_einfügen
ActiveWorkbook.Close
End If
Loop

Dann verstehe ich die If-Abfrage nicht, denn das wird doch schon durch die While-Abfrage betrachtet.
Setze mal die Zeile "DName = Dir()" ans Ende dieser Schleife, also direkt vor das "Loop". Vielleicht hilft das.

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

homax
Newbie
Newbie

Anmeldedatum: 20.03.2008
Beiträge: 26

Verfasst am: 01.07.2008, 16:11

Danke für deine schnelle Antwort.
Aber das Makro funktioniert einwandfrei ohne die Verzeichnis erstellen Routine. Sobald ich den Befehl
If Dir(Dir_out, vbDirectory) = "" Then
verwende spinnt er in der Schleife rum und kann dort mit Dir() nix mehr anfangen Sad

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Inhalt eines Kombinationsfeld in Zell...	Nicki11	Microsoft Excel Hilfe	4	01.12.2008, 19:00
	Link innerhalb eines Formulars	DocTaxon	Microsoft Access Hilfe	0	28.11.2008, 11:51
	Excel 2007 Dateien mit Excel 2003 öffnen	zersa	Microsoft Excel Hilfe	1	27.11.2008, 21:25
	Zellkommentare mit Hilfe eines Makros...	Exl121150	Microsoft Excel Hilfe	0	26.11.2008, 16:20
	Leerzeile innerhlab eines Feldes (Exc...	herbert45	Microsoft Excel Hilfe	3	25.11.2008, 00:08

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de