Kleine Sektflaschen Hochzeit
23. 10. 2015, 10:09 # 1 Sylvio82 Excel 2013 - VBA - Ordnerstruktur einlesen und anzeigen Hallo zusammen, ich suche nach einer Lösung für ein Makro in Excel 2013 dass mir eine beliebige Ordnerstruktur von einem Rechner bzw. Netzlaufwerk in Excel einliest und auswirft. Ich habe bereits bei Google und im Forum gesucht aber leider nichts gefunden. *Hoffentlich hab ich nichts übersehen... * Excel sollte beim ausführen des Makro fragen wo sich der "Quellordner" befindet. Am besten man kann ihn dann in einem Explorer Fenster auswählen. Nach der Auswahl des Ordners sollte dieser Ordner inkl. aller Unterordner eingelesen werden und wie im Screenshot im Anhang ausgeworfen werden. Ich habe leider ganz wenig verständnis von VBA. Wäre super wenn mir jemand helfen kann. Viele Grüße und schonmal Danke. Angehängte Grafiken (6, 8 KB, 49x aufgerufen) 23. 2015, 10:45 # 2 MOF Meister Registrierung: 15. 07. VB Script - Unterordner und Datei erstellen | SPS-Forum - Automatisierung und Elektrotechnik. 2014 Zitat: Kaum zu 'vba Ordner auflisten' -> 6. 320 Ergebnisse Code: Public Sub OrdnerListen_Start() Dim fso As Object With ActiveSheet earContents Set fso = CreateObject("leSystemObject") Call OrdnerListen(fso, "E:\Test", ("A1")) ' Pfad anpassen!
Else MsgBox "Ordner ''Temp'' ist vorhanden! " End If End Sub Geschrieben am: 29.
Thema Datum Von Nutzer Rating Antwort Ordnerstruktur erstellen 04. 01. 2017 09:51:30 Officer_Bierschnitt 04. 2017 09:57:09 04. 2017 09:57:19 04. 2017 09:59:19 Gast75195 04. 2017 10:19:01 04. 2017 12:20:59 SJ 04. 2017 13:15:37 Von: Datum: Views: 457 Rating: Antwort: Thema: Hallo und Danke, ja, so ungefähr hab ich das jetzt auch gelöst - ich mach gern so eine Schmalspur-VBA-Lösung, indem ich Formeln in zellen auf der Oberfläche reinschreibe. So kann man die Rechenweise später auch visuell nachvollziehen. Vba ordnerstruktur erstellen program. Das ganze wär vieleicht noch optimierbar, weil ich den gleichen Code relativ oft wiederholt hab, da ist Dein Code schon um einiges kürzer und eleganter. Aber sei's drum - es funktioniert, das ist die Hauptsache. Gruß, 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) B ei 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 Name: Email: Bitte geben Sie ein aussagekräftiges Thema an.
Nun habe ich noch eine Frage. Nach dem Erstellen des Ordners sollen 2 Dateien aus einem Musterordner copy f:\projekte\#muster\ "neu erzeugter Ordner" copy f:\projekte\#muster\ "neu erzeugter Ordner" Kannst du mir das auch noch in VBA übersetzen. hallo Nico, füge in den bestehenden Code unter der Codezeile MkDir Ord diese beiden Codezeilen ein: FileCopy "f:\projekte\#muster\", Ord & "\" FileCopy "f:\projekte\#muster\", Ord & "\" Gruß stefan Vielen Dank, auch das klappt. Per VBA Ordner anlegen. Gruß Nico Loading...