Anzeige
Archiv - Navigation
1732to1736
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Excel Mac Ordnerstruktur erstellen im Finder aus Excel

Excel Mac Ordnerstruktur erstellen im Finder aus Excel
21.01.2020 11:59:59
Kerstin
Hallo,
Ich muss für meine Firma eine Ablage/Ordnerstruktur im Finder erstellen.
Dazu habe ich eine Excelliste genommen, um die Übersicht zu behalten.
Wäre super wenn man anschliessend diese Tabelle nehmen kann und daraus die Ordner und dazugehörigen Unterordner automatisch im Finder erstellen lassen könnte.
Hat jemand eine Lösung, denn ich bin überhaupt nicht vom Fach und bei euch gibt es ja Cracks die sowas sicher spielend hinbekommen. Im Anhang ist ein Teil der Excelliste.
Wäre sehr dankbar und froh.
https://www.herber.de/bbs/user/134582.txt

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Mac Ordnerstruktur erstellen im Finder aus Excel
22.01.2020 19:06:04
Piet
Hallo
es gibt im Internet zahlreiche Varianten wie man U-Ordner auflisten kann. Hier zwei Beispiele. Das 1. Makro erzeigt eine Baumstruktur, das zweite listet die Ordner untereinander. Gibt man im zweiten Makro True/False an werden weitere Unterordner aufgelistet, oder nur die 1. U-Ornder angezeigt.
mfg Piet
Option Explicit
Dim FSO, FO, FU, F
Dim lRow As Long
Dim iCol As Integer
'1. Makro listet alle U-Ordner als Baumstruktur auf
Sub OrdnerAuflisten()
iCol = 0
lRow = 0
Cells.Clear           'Tabelle löschen
GetSubFolders "F:\"   '"C:\Windows"
End Sub
Function GetSubFolders(pfad)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FO = FSO.GetFolder(pfad)
Set FU = FO.SubFolders
On Error Resume Next
For Each F In FU
lRow = lRow + 1
iCol = iCol + 1
Cells(lRow, iCol) = F.Path  'oder F.Name
GetSubFolders F.Path
Next
iCol = iCol - 1
End Function
'2. Makro listet alle U-Pfade untereinander auf
Sub OrdnerAuflisten_2()
iCol = 2
lRow = 0
Cells.Clear           'Tabelle löschen
GetSubFolders_2 "F:\", False   '"C:\Windows"
End Sub
Function GetSubFolders_2(pfad, UO)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FO = FSO.GetFolder(pfad)
Set FU = FO.SubFolders
On Error Resume Next
For Each F In FU
lRow = lRow + 1
Cells(lRow, iCol) = F.Path
If UO = True Then GetSubFolders_2 F.Path, UO
Next
End Function

Anzeige

65 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige