Excel 2007 Datenbank aus vielen Ordnern erstellen

[Ozymandias]

Hallo,
ich stehe vor folgendem Problem und werd langsam verrückt^^ also ich habe auf meiner Festplatte rund 200 Ordner. Ich möchte nun all die Namen der Ordner in Excel (Spalte A) einfügen ohne sie alle abtippen zu müssen. In Spalte B soll dann ein Hyperlink zu den Ordnern...Gibt es eine Möglichkeit dass einfacher zu machen?
Hoffe ihr könnt mir helfen
Grüße
Ozymandias

 

[petap]

Hi
Hab dir mal ne Lösung mit C# geschrieben. Der schreibt dir ne htm mit den Links zu den Dateien. Den Link zur Datei gibts per PN.

Grüße

 

[schmidmi]

Wenn du das Ganze mit vba lösen möchtest geh einfach in die Hilfe und schau dir die Dir-Funktion an.

Hier das enthaltene Beispiel leicht angepasst.

Es werden in die Spalte A alle Ordner von C:\ eingtragen.


Sub Ordner_auflisten()
Dim wb As Workbook
Dim ws As Worksheet
Dim i As Integer
i = 1

Set wb = ActiveWorkbook
Set ws = wb.Worksheets("Tabelle1")
ws.Activate

' Namen in C:\ anzeigen, die Verzeichnisse darstellen.
Pfad1 = "c:\" ' Pfad setzen.
Name1 = Dir(Pfad1, vbDirectory) ' Ersten Eintrag abrufen.
Do While Name1 <> "" ' Schleife beginnen.
' Aktuelles und übergeordnetes Verzeichnis ignorieren.
If Name1 <> "." And Name1 <> ".." Then
' Mit bit-weisem Vergleich sicherstellen, daß Name1 ein
' Verzeichnis ist.
If (GetAttr(Pfad1 & Name1) And vbDirectory) = vbDirectory Then
Range("A" & i) = Name1 ' Eintrag nur anzeigen, wenn es sich

' und in Spalte B noch der Hyperlink
Range("B" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Pfad1 + Name1, TextToDisplay:=Name1

i = i + 1
End If ' um ein Verzeichnis handelt.
End If
Name1 = Dir ' Nächsten Eintrag abrufen.
Loop

End Sub

 

[Ozymandias]

Sers Leute und 1000 Dank für eure Hilfe und die schnelle Antwort ;-) hat funktioniert....
Grüße
Ozymandias