Office: Excel-Files in Ordner suchen

daku · 6. Juni 2009

servus,

habe folgendes problem. ich möchte einen bestimmten ordner nach excel-files durchsuchen. danach möchte ich die anzahl der gefundenen files zurückgegeben haben. habemirfolgendencode ausgedacht. das problem dabeiist, mal funktioniert esunddann wieder nicht. woran kann das liegen?? wo liegt bei meinen überlegungen der fehler???

danke für eue bemühungen!!!!

Code:

strPfad = "C:\Ordner\Unterordner"

With Application.FileSearch

.LookIn = strPfad
.Filename = "*.xls"

If .Execute > 0 Then
lngAnzahl = .FoundFiles.Count
ReDim arrMatrize(lngAnzahl)

For lngZaehler = 1 To lngAnzahl
arrMatrize(lngZaehler - 1) = .FoundFiles(lngZaehler)
Next lngZaehler
End If
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

jinx · 8. Juni 2009

Moin, daku,

mal abgesehen davon, dass ich

Code:

ReDim arrMatrize(1 To lngAnzahl)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

vorziehen würde, stelle ich mir die Frage, was Du mit dem Array anfangen möchtest und was nicht funktioniert? Bekommst Du eine Fehlermeldung, wenn ja: welche und an welcher Stelle?

daku · 8. Juni 2009

ich bekomme keine fehlermeldung.

Case_Germany · 9. Juni 2009

Hallo, *Smilie

meines Wissens nach ist "FileSearch" ein Wackelkandidat. Je nach Officeversion gibt es wohl Probleme bei der Angabe von Platzhaltern (wie z. B. *).

Es ist wohl auch entscheidend bestimmte Parameter anzugeben (wie z. B. NewSearch).

In Excel 2007 VBA ist es auch nicht mehr enthalten.

Als Alternative gibt es "Scripting.FileSystemObject", "Dir()", oder "API". Schau Dir mal folgende zwei Versionen an. Brauchst Du Unterordner musst Du noch eine Rekursion drumbasteln. Sind es viele Dateien und Unterordner würde ich auf API ausweichen:

Code:

Option Explicit
Const strPath As String = "C:\Temp\"

Public Sub Test()
Dim intTMP As Integer
Dim objFile As Object
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Debug.Print objFSO.GetFolder(strPath).Files.Count ' Alle Dateien
For Each objFile In objFSO.GetFolder(strPath).Files
If Right(objFile.Name, 4) = ".xls" Then
intTMP = intTMP + 1
End If
Next objFile
Debug.Print intTMP
Set objFSO = Nothing
End Sub

Public Sub Test_1()
Dim intTMP As Integer
Dim strFile As String
strFile = Dir(strPath)
Do While strFile ""
If Right(strFile, 4) = ".xls" Then
intTMP = intTMP + 1
End If
strFile = Dir()
Loop
Debug.Print intTMP
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Servus
Case

Office: Excel-Files in Ordner suchen

Excel-Files in Ordner suchen

Excel-Files in Ordner suchen

Excel-Files in Ordner suchen

Excel-Files in Ordner suchen - Similar Threads - Excel Files Ordner

Excel TXT-File Import Problem

Excel Files öffnen und Tabellenblätter kopieren

Paradox db Files mit Excel öffnen

PDF File to Excel

Link in Excel 365 funktioniert nicht mehr zu PDF-File

In Excel im "Shared File" sehen, ob jemand gerade daran arbeitet

Datenabfrage aus Excel File aber Daten aus Zelle