actionbrowser.com
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. Vba ordnerstruktur erstellen download. 07. 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!
Ordner erstellen via VBA Helfe beim Thema Ordner erstellen via VBA in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Guten Abend, folgendes Problem. Ich habe eine Tabelle "tblCustomer" mit einem Textfeld "CustomerNO" jetzt möchte ich via VBA prüfen ob im Verzeichnis... Dieses Thema im Forum " Microsoft Access Hilfe " wurde erstellt von mimich, 24. Juni 2016. Guten Abend, jetzt möchte ich via VBA prüfen ob im Verzeichnis "aktPublicDocuments" bereits ein Ordner "Ordner Name = CustomerNO" existiert und wenn nicht soll dieser angelegt werden. Bislang krieg ich das nur für einen speziellen Ordner hin, was echt mühselig ist bei derzeit ca. 2000 Einträgen. Vielen Dank schon mal für die Hilfe. :) Das Script zum automatisierten Ordner erstellen funzt wunderbar, aber wie krieg ich das blöde System dazu den Ordnernamen aus einer Tabelle zu entnehmen? Bislang sieht der Code so aus und der nimmt sich immer nur den 1. Wert aus der Tabelle: Code: Hallo, und woran machst Du den richtigen Wert fest, bzw. Excel 2013 - VBA - Ordnerstruktur einlesen und anzeigen - MS-Office-Forum. nach welchen Kriterien?
B. Eigene Dateien) gespeichert. Stattdessen können Sie die SaveAs mit unserer Anleitung zum Speichern von Arbeitsmappen anpassen. Jetzt können Sie auf die Arbeitsmappe mit ihrem Namen verweisen: Workbooks(""). Activate Mit diesem Code wird "" aktiviert. Neue Arbeitsmappe erstellen und Blätter hinzufügen Nachdem Sie eine Arbeitsmappe erstellt haben, können Sie sie bearbeiten. Hier ist nur ein Beispiel, um der neuen Arbeitsmappe zwei Blätter hinzuzufügen (vorausgesetzt, es handelt sich um die ActiveWorkbook): Count:=2 VBA Coding Made Easy Stop searching for VBA code online. Vba ordnerstruktur erstellen 2. Learn more about AutoMacro - A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users! Learn More!
2. 2 Unterordner Datei mit Hyperlink + Pfad (in einer neuen Spalte... wäre super lieb Danke Geändert von poldina33 (28. 2016 um 15:32 Uhr). 29. 2016, 06:27 # 11 Option Explicit reenUpdating = False With ActiveSheet. reenUpdating = True Dim o, uo, f With (Zeile, Spalte) = = True For Each f In =.,, "",. IndentLevel = 1 Set f = Nothing 29. 2016, 09:00 # 12 Zusatz: Mit Auf-/Zuklappen der einzelnen Ebenen 29. VBA - Neue Arbeitsmappe erstellen (Workbooks.Add) - Automate Excel. 2016, 10:26 # 13 Pfad neben Hyperlink Vielen Vielen Dank Große Hilfe Mit auf und Zuklappen ist auch voll cool, ich muss nur ein wenig anders aufbereiten. Danke aber dafür Von VBA hab ich null Ahnung, hab noch ein wenig rumprobiert und den Pfad hinbekommen. Jedoch möchte ich den Pfad neben dem Hyperlink haben. Auf dem Bild kann man sehen, dass die Pfade weiter unten angegeben werden Wie kann ich das ändern? Hab den Code so umgeschrieben Call OrdnerListen(fso, "S:\VDD-IDI\A. ", ("A1")) ' Pfad anpassen! With (Zeile, 10) =.,, "", '. IndentLevel = 1 With (Zeile, 11) '. IndentLevel = 5 Geändert von poldina33 (29.
Das System ist ja blöd, dem muss man genau sagen was zu tun ist. Wenn Du Wert als String deklarierst, solltest Du auch einen String zuweisen. Aber wahrscheinlich wird das ohnehin so gar nicht benötigt. Beantworte also mal die Frage. Beim Öffnen eines Recordsets steht der Zeiger auf dem ersten Datensatz, sofern es mindestens einen gibt. Wenn also Deine Tabelle mehr als einen Datensatz hat, könnte man durch einen zusätzlichen Filter in der SQL-Anweisung sofort auf den gewünschten Datensatz verweisen. Fragt sich: Wonach sollte man filtern? Dein Code vermittelt nicht unbedingt Klarheit: Was soll passieren, wenn kein passender Datensatz gefunden wird? Abbruch oder Ersatzwert bei Ordnererstellung? Wenn der Wert im Datensatz NULL ist (kein Eintrag), soll ersatzweise 0 (alsZiffer) in den Ordnerpfad eingebaut werden? Vba ordnerstruktur erstellen program. Gibt es überhaupt CustomerNO-Werte mit NULL? Der Code soll die CustomerNO (ERF 100-1, ERF 101-1 usw. ) aus der Tabelle nehmen und testen, ob es einen Ordner mit dem entsprechenden Namen gibt (ERF 100-1, ERF 101-1 usw. ).
23. 2015, 15:44 # 7 Dim strPfad As String With leDialog(msoFileDialogFolderPicker) = "Start-Verzeichnis wählen". ButtonName = "übernehmen" If <> -1 Then Exit Sub strPfad =. SelectedItems(1) Call OrdnerListen(fso, strPfad, ("A1")) ' Pfad anpassen! 26. 2015, 10:33 # 8 xlph du bist genial! Vielen Dank!!! Das ist genau das was ich suchte. Das erleichtert mir meine Arbeit ungemein. SPITZE! 19. 11. 2015, 07:22 # 9 xlph wärst du so nett und könntest dir diesen Thread nochmal ansehen. Das ist jetzt das gleiche nur in die andere Richtung. Danke. 28. 06. 2016, 14:21 # 10 poldina33 Hallo Ihr Lieben Makro hat bei mir super funktioniert, vielen dank euch Könnte jemand bitte mir bei der Erweiterung des Makros helfen? Die Ordnerstuktur soll die selbe sein, nur sollen die Dateien, die in den Ordner sind mit angegeben werden + Pfad und die Datei als Hyperlink? Hauptordner 1. VBA Macro zum erstellen einer Ordnerstruktur Office-Loesung.de. Unterordner Datei mit Hyperlink + Pfad (in einer neuen Spalte) 2. Unterordner 2. 1 Unterordner Datei mit Hyperlink + Pfad (in einer neuen Spalte Datei mit Hyperlink + Pfad (in einer neuen Spalte.