Autor
|
Thema: Verzeichnisstruktur vom Explorer zu Excel (28990 mal gelesen)
|
3D-Papst Moderator
Beiträge: 5248 Registriert: 11.06.2001 Herr, stärke mich in Geduld, aber ZACK ZACK!!
|
erstellt am: 21. Okt. 2008 12:33 <-- editieren / zitieren -->
|
ole Plauderprofi V.I.P. h.c. Schlossherr, sie schrieben's bei der Ausbildung nur ständig verkehrt
Beiträge: 9565 Registriert: 02.08.2002 Kein Plan, kein System - trotzdem wichtig:it nicht, sondern nur Zum testen mit und für zauberhaft! z-Fanclub
|
erstellt am: 21. Okt. 2008 12:37 <-- editieren / zitieren -->
|
Jörg Schwenke Mitglied Ingenieur Tiefbau
Beiträge: 248 Registriert: 27.09.2005 GEOvision 9.1 @ i7; W10 x64<P>Im Zoo: CADdy 11 + ACAD 10 @ i486DX2-66; Miro-Tiger 8 SPEA Graphiti Hilite; DOS 5.0 + WIN 3.11
|
erstellt am: 21. Okt. 2008 12:51 <-- editieren / zitieren -->
|
ThoMay Moderator Konstrukteur
Beiträge: 946 Registriert: 15.04.2007 SWX 2019 Windows 10 x64
|
erstellt am: 21. Okt. 2008 12:53 <-- editieren / zitieren -->
Hallo und einen heiligen Gruß Papst. Guggst du hier. Tabelle 1 Verzeichnisse Tabelle 2 Dateien. Gruß ThoMay ------------------ Schaut mal nach im Bereich Wissenstransfer. Neues Forum: Schweißen, Löten, Kleben Es gibt keine dummen Fragen, nur unzweckmäßige. Hierauf bekommt man dann manches mal eine unzweckmäßige, freundliche Antwort. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Giggel Mitglied
Beiträge: 15 Registriert: 27.07.2000
|
erstellt am: 21. Okt. 2008 13:15 <-- editieren / zitieren -->
|
3D-Papst Moderator
Beiträge: 5248 Registriert: 11.06.2001 Herr, stärke mich in Geduld, aber ZACK ZACK!!
|
erstellt am: 21. Okt. 2008 13:57 <-- editieren / zitieren -->
|
Ex-Mitglied | |
3D-Papst Moderator
Beiträge: 5248 Registriert: 11.06.2001 Herr, stärke mich in Geduld, aber ZACK ZACK!!
|
erstellt am: 21. Okt. 2008 14:03 <-- editieren / zitieren -->
|
Jensenmann Mitglied Konstrukteur, Kunststoffspritzguss, Extrusion
Beiträge: 564 Registriert: 14.08.2007 Oink..
|
erstellt am: 21. Okt. 2008 14:20 <-- editieren / zitieren -->
...oder einen Screenshot des Explorers mit geöffneten (übersichtlichen) Ordnern, dieses auf A0 plotten und an die Wand hängen.. Dann wichtige Ordner markieren und ins GPS als Punkte speichern.... Wenn das nicht übersichtlich ist. ------------------ Aller hopp, und bis dann ! Der Jensenmann Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
daniu Mitglied Mechanik-Entwickler
Beiträge: 1471 Registriert: 03.11.2004 Intel Xeon W3550 12GB RAM; NVidia Quadro 4000 Win 7 Enterprise 64bit; NX7.5 TeamCenter 8
|
erstellt am: 21. Okt. 2008 14:26 <-- editieren / zitieren -->
Hi! Dann freunde Dich mal noch mit Suchen und Ersetzen in Word an. Man sollte es nicht glauben, was da alles möglich ist. Bin mir sicher, dass es geht, die ganzen Überverzeichnisse wegzuersetzen. Noch besser geht sowas natürlich mit Perl, PHP oder nem RegEX Programm, aber zum Beispiel alles in einer Zeile hinter einem \ behalten sollte gehen. Gruß Daniel Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
3D-Papst Moderator
Beiträge: 5248 Registriert: 11.06.2001 Herr, stärke mich in Geduld, aber ZACK ZACK!!
|
erstellt am: 21. Okt. 2008 14:56 <-- editieren / zitieren -->
|
Thomas Harmening Plauderprofi V.I.P. h.c. Arbeiter ツ
Beiträge: 3014 Registriert: 06.07.2001 |ænn| We work in the dark. We do what we can. We give what we have. Our doubt is our passion and our passion is our task. The rest is the madness of art.
|
erstellt am: 21. Aug. 2017 18:51 <-- editieren / zitieren -->
Code: Public Sub OrdnerListen_Start() Dim fso As Object Dim strPfad As String With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Start-Verzeichnis wählen" .ButtonName = "übernehmen" If .Show <> -1 Then Exit Sub strPfad = .SelectedItems(1) End With Tiefe = InputBox("Verzeichnistiefe") If Tiefe = "" Then Tiefe = 254 With ActiveSheet .UsedRange.ClearContents Set fso = CreateObject("Scripting.FileSystemObject") Call OrdnerListen(fso, strPfad, .Range("A1"), Tiefe, , -1) ' Pfad anpassen! Set fso = Nothing End With Cells(1, 1) = strPfad End SubPrivate Sub OrdnerListen(fso As Object, Ordnerangabe As String, rng As Range, Tiefe As Variant, Optional Zeile As Long, Optional Spalte As Long) Dim o, uo On Error Resume Next Set o = fso.GetFolder(Ordnerangabe) rng.Offset(Zeile, Spalte).Value = "\" & o.Name Zeile = Zeile + 1 For Each uo In o.SubFolders Spalte = Spalte + 1 If Spalte < Tiefe Then Call OrdnerListen(fso, uo.Path, rng, Tiefe, Zeile, Spalte) Spalte = Spalte - 1 Else Spalte = Spalte - 1 End If Next Set o = Nothing Set uo = Nothing End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Elektrokonstrukteur (m/w/d) | Unser Mandant mit Sitz im Raum Lahr wurde vor mehr als 50 Jahren gegründet und hat sich seitdem auf die Entwicklung und Produktion von hochwertigen Industrieprodukten spezialisiert, die in verschiedenen Industrien eingesetzt werden können. Das Unternehmen hat eine starke Präsenz auf dem globalen Markt und exportiert seine Produkte in viele Länder weltweit. Es legt großen Wert auf Innovation und ... | Anzeige ansehen | Elektrotechnik, Elektronik |
|
CAD-Maler Mitglied Konstrukteur / CAD-Admin / Mädchen für alles
Beiträge: 248 Registriert: 17.01.2007 =)
|
erstellt am: 22. Aug. 2017 07:43 <-- editieren / zitieren -->
SCNR: Die 2 Monate bis zum 9. Geburtstag des Threads hättest du nun ruhig noch warten können... Ich werf mal noch den Code für das Auflisten inkl. Dateien ein, den ich immer verwende: Code:
Sub Dateienauflisten() Dim FileSystem As Object Dim Unterordner Dim Datei Dim Zeile As Long Dim Spalte As Long Dim Ordner Set FileSystem = CreateObject("Scripting.FileSystemObject") Spalte = 1 Zeile = 1 ' Ordner auswählen Ordner = GetFolder() ' Oder festen Ordner definieren ' Ordner = "D:\..." 'Ordnerpfad einfügen If FileSystem.FolderExists(Ordner) Then Set Ordner = FileSystem.GetFolder(Ordner) With ActiveSheet.Cells(1, 1) ' Ordner mit Pfad angeben ' .Value = Ordner ' nur Ordnernamen angeben .Value = Ordner.Name ' Zellformatierung .Font.Bold = True ' .Interior.Color = RGB(220, 220, 220) End With For Each Datei In Ordner.files Zeile = Zeile + 1 ' Dateiname mit Pfad wird aufgelistet ActiveSheet.Cells(Zeile, Spalte).Value = Datei ' Nur der Dateiname wird aufgelistet ' ActiveSheet.Cells(Zeile, Spalte).Value = Datei.Name ' Wenn mit Hyperlink zur Datei dann ' ActiveSheet.Hyperlinks.Add ActiveSheet.Cells(Zeile, Spalte), Datei Next ListOrdner Ordner, Zeile, 2 End If End Sub
Sub ListOrdner(Ordner, Zeile, Spalte) 'Unterordner auflisten Dim FileSystem As Object Dim Unterordner Dim Datei Set FileSystem = CreateObject("Scripting.FileSystemObject") If FileSystem.FolderExists(Ordner) Then Set Ordner = FileSystem.GetFolder(Ordner) For Each Unterordner In Ordner.Subfolders Zeile = Zeile + 1 With ActiveSheet.Cells(Zeile, Spalte) ' Ordner mit Pfad angeben ' .Value = Unterordner ' nur Ordnernamen angeben .Value = Unterordner.Name ' Zellformatierung .Font.Bold = True ' .Interior.Color = RGB(220, 220, 220) End With For Each Datei In Unterordner.files Zeile = Zeile + 1 ' Dateiname mit Pfad wird aufgelistet ActiveSheet.Cells(Zeile, Spalte).Value = Datei ' Nur der Dateiname wird aufgelistet ' ActiveSheet.Cells(Zeile, Spalte).Value = Datei.Name ' Wenn mit Hyperlink zur Datei dann ' ActiveSheet.Hyperlinks.Add ActiveSheet.Cells(Zeile, Spalte), Datei Next ListOrdner Unterordner, Zeile, Spalte + 1 Next End If ActiveSheet.UsedRange.EntireColumn.AutoFit End Sub Private Function GetFolder() As String 'Funktion um den Ordner auszuwählen Dim objShell As Object Dim strPath As String Set objShell = CreateObject("Shell.Application") Set varFolder = objShell.BrowseForFolder(0, "Folder", &H4000, 17) If varFolder Is Nothing Then Set varFolder = Nothing Set objShell = Nothing Exit Function End If GetFolder = varFolder.Self.Path Set objShell = Nothing End Function
Gruß, Jens ------------------ CSWA, CSWP, CSWPA-SM & -SU =) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |