Alle Exceldateien der Festplatte in einer Exceldatei anzeigen

20/03/2010 - 01:41 von Gerd Welzel | Report spam
Hallo alle,
wie kann ich mit vba alle Exceldateien meiner Festplatte mittels eines
buttons in einer neuen Exceldatei anzeigen lassen?

Für eure Hilfe im voraus vielen Dank-
Gruß
Gerd
 

Lesen sie die antworten

#1 Andreas Killer
20/03/2010 - 10:35 | Warnen spam
Gerd Welzel schrieb:

wie kann ich mit vba alle Exceldateien meiner Festplatte mittels eines
buttons in einer neuen Exceldatei anzeigen lassen?


Weise einem Button das angehàngte Makro zu, làuft bis XL2003.

Andreas.

Sub Test()
Dim I As Long, Y As Long, X As Long
With Application.FileSearch
.Filename = "*"
.LookIn = "z:\"
.SearchSubFolders = True
If .Execute > 0 Then
Workbooks.Add
X = 1
For I = 1 To .FoundFiles.Count
Y = Y + 1
If Y = Rows.Count Then
X = X + 1
Y = 1
End If
If X = Columns.Count Then
Sheets.Add
X = 1
End If
Cells(Y, X) = .FoundFiles(I)
Next I
End If
End With
End Sub

Ähnliche fragen