Auflistung

Forumthread: Auflistung
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Auflistung

Auflistung

12.12.2003 14:48:00

Michel

Hi Kollegen,
Kann man mit VBA alle Mp3 Dateien eines frei wählbaren Ordners(z.B. Inputbox oder öffnen-Dialog) in Excel auflisten?
cu
Michel

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Auflistung

12.12.2003 19:34:19

Olaf
Danke! werd ich gleich mal testen o.T. !!!

14.12.2003 01:46:17

Michel

AW: Auflistung

12.12.2003 19:34:19

Olaf

Hallo Michel
ich fange gerade an VBA zu lernen und habe da was in meinem Buch gefunden
könnte so etwa aussehen


Sub DateienAuflisten()
Dim i  As Long
Const verz = "C:\Eigene Dateien\"
On Error GoTo fehler
ChDir verz
Range("A1").Select
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
ActiveCell.Value = .FoundFiles(i)
ActiveCell.Offset(1, 0).Select
Next i
End With
Exit Sub
fehler:
MsgBox "Es gibt kein Verzeichnis mit dem Namen " & verz
End Sub

Gruß Olaf

Danke! werd ich gleich mal testen o.T. !!!

14.12.2003 01:46:17

Michel

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