Datenimport aus Verzeichnis



Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Datenimport aus Verzeichnis
von: florian
Geschrieben am: 17.06.2002 - 00:27:39

N'abend!

Ich moechte den Inhalt eines Verzeichnisses aus dem Windows Explorer (nicht dem internet explorer!)in eine Excel-Tabelle laden. Beispielsweise mp3's.
Hat irgendeiner eine Idee?

Das Makro aus dem Archiv (Import mit Hyperlinks)funktioniert zwar, allerdings wird nichts in die Tabelle importiert!

Danke!


nach oben   nach unten

Re: Datenimport aus Verzeichnis
von: Hajo
Geschrieben am: 17.06.2002 - 07:08:02

Hallo Florian

Vielleicht hilft Dir folgendes


Sub Dateiliste_Öffnen()
    Dim strVerzeichnis As String
    Dim StrDatei As String
    Dim As Integer
    Dim StrTyp As String
    Dim Dateiname As String
    Dim Aktuell_Datei As String
    Dim Aktuell_Register As String
    
'    Liste erstellen
    Aktuell_Datei = ActiveWorkbook.Name
    Aktuell_Register = ActiveSheet.Name
    strVerzeichnis = "E:\Eigene Dateien\Hajo\"
    StrTyp = "*.xls"
    Dateiname = Dir(strVerzeichnis & StrTyp)
    I = 3
    Do While Dateiname <> ""
        Cells(I, 1).Value = strVerzeichnis & Dateiname
        I = I + 1
        Dateiname = Dir
    Loop

''    Öffnen
'    For I = 3 To Cells(Rows.Count, 1).End(xlUp).Row
'        Workbooks.Open FileName:=Workbooks(Aktuell_Datei).Worksheets(Aktuell_Register).Cells(I, 1)
'    Next I
End Sub

Gruß Hajo

nach oben   nach unten

Funktioniert...allerdings
von: Florian
Geschrieben am: 18.06.2002 - 04:13:54

Danke!

Es funktioniert.
Natuerlich ist es besser wenn man nur die Dateien bekommtund nicht den ganzen Wust an Verzeichnisstruktur dazu.
Es gibt ein VBA code dazu im Archiv, aber es funktioniert nicht richtig (bei mir)

Aber Deins klappt ja auch.

Danke!

Florian


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Datenimport aus Verzeichnis"