Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
472to476
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
472to476
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verzeichnisinhalt in Excel-Sheet ausgeben

Verzeichnisinhalt in Excel-Sheet ausgeben
24.08.2004 09:16:55
Walter
Hallo zusammen,
ich brauche ein kleines Makro, das mir den Inhalt des Verzeichnisses 'C:\musik' in die Spalte A eines Excel-Sheets einträgt; es soll also quasi die Ausgabe des 'DIR'-Kommandos in die Tabelle gepiped werden, so dass dort nachher steht:
(A1) Asia - Heat Of The Moment.mp3
(A2) Bon Jovi - Runaway.mp3
(A3) Deep Purple - Call Of The Wild.mp3
(...)
Könnt Ihr mir helfen?
Gruß
Walter

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verzeichnisinhalt in Excel-Sheet ausgeben
r.sch.
Hi Walter,
das geht etwa so:
1. Namen definieren (z.B.) 'inhalt', unter 'bezieht sich auf' trägst du =Dateien("*.*")
ein.
2. in der Tabelle schreibst du in a1 =index(inhalt;zeile())
3. kopiere das sooft du Dateien im Verzeichnis hast.
Gruß
Reinhard
AW: Verzeichnisinhalt in Excel-Sheet ausgeben
Marcl
Hallo Walter, den Code habe ich damals von Ramses bekommen:

Sub Write_All_ExcelFiles_in_worksheet()
Application.ScreenUpdating = False
'by Ramses
Dim myFSO As Object
Dim myDrvList, myDrv, mySpace
Dim Dateiform As String, myStr As String
Dim geffile As String
Dim i As Long, totFiles As Long, chkHype As Integer
Dim oldStatus As Variant
Set myFSO = CreateObject("Scripting.Filesystemobject")
Set myDrvList = myFSO.drives
Application.ScreenUpdating = True
oldStatus = Application.StatusBar
On Error GoTo myErrHandler
Dateiform = "*.mp3"
If Dateiform = "" Then
Application.ScreenUpdating = True
Exit Sub
End If
With Application.FileSearch
.LookIn = "C:\musik\"
.SearchSubFolders = True 'True für Suche in allen Unterverzeichnissen!!
.Filename = Dateiform
If .Execute() > 0 Then
totFiles = .FoundFiles.Count
Application.StatusBar = "Total " & totFiles & " in " & mySpace & " gefunden "
For i = 1 To .FoundFiles.Count
geffile = .FoundFiles(i)
'In Tabelle eintragen
Cells([A65536].End(xlUp).Row + 1, 1) = geffile
ActiveSheet.Hyperlinks.Add Anchor:=Cells([A65536].End(xlUp).Row, 1), Address:=geffile _
, TextToDisplay:=geffile
Selection.Font.ColorIndex = 2
Next i
End If
End With
ErrEntry:
Application.StatusBar = oldStatus
Application.ScreenUpdating = True
MyExit:
Close #1
Exit Sub
myErrHandler:
Select Case Err
Case 71
myStr = myStr & "Datenträger nicht bereit"
End Select
Resume ErrEntry
End Sub

Gruß
Marcl
Anzeige
DANKE
24.08.2004 10:09:40
Walter
...für Eure Antworten!
Jetzt bin ich um einiges schlauer :-)
Gruß
Dirk

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige