Thema Datum  Von Nutzer Rating
Antwort
Rot Ordner und Unterordner ansteuern
21.05.2017 20:16:31 Tim
NotSolved
21.05.2017 21:23:14 SJ
NotSolved

Ansicht des Beitrags:
Von:
Tim
Datum:
21.05.2017 20:16:31
Views:
1084
Rating: Antwort:
  Ja
Thema:
Ordner und Unterordner ansteuern

Hallo zusammen,

googlen hat mir nicht weitergeholfen.
Ich habe ein Verzeichnis.Darin liegen 10 Ordner. In jedem dieser Ordner sind 12 Excel-Dateien.
Ich möchte jede Excel-Datei ansteuern, d.h. ein Ordner rein, alle Daten abarbeiten und nächster Ordner

Mit meinem Code schaffe ich es bis jetzt einen Ordner mit seinen 12 Dateien anzuwählen.
Ich muss darum nochmal eine Schleife ziehen, damit dieser Vorgang für alle Ordner erfüllt wird.

Sub Test()

Dim quelle As Workbook
Dim strOrdnerName As String
Dim strName As String
Dim strOrdnerName2 As String
Dim strName2 As String

*ÄUßERE SCHLEIFE
strOrdnerName2 = "C:\daten\Verzeichnis\"
strName2 = Dir(strOrdnerName & "Ordner*")

Do While strName2 <> ""

*INNERE SCHLEIFE
strOrdnerName = "C:\daten\Verzeichnis\Ordner\"
strName = Dir(strOrdnerName & "Monat*")

Do While strName <> ""

Set quelle = Workbooks.Open(strName)
...Anweisungen...
quelle.Close
strName = Dir

Loop

strName2 = Dir
Loop


End Sub

Das Fett markierte funktioniert so nicht. Es wird kein Ordner gefunden und abgebrochen.
Ich hoffe mir kann jemand weiterhelfen.
Danke im Voraus.

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Ordner und Unterordner ansteuern
21.05.2017 20:16:31 Tim
NotSolved
21.05.2017 21:23:14 SJ
NotSolved