Probleme mit FileSearch
Lena
ich bin mit meinem Latein am Ende und brauche eure Hilfe!
Ich habe eine umfangreuche MS-Access-Anwendung, welche die Excel-Dokumente importieren und weiterverarbeiten kann. Ein Modul, welches für den Import der Excesls zuständig ist, funktioniert nicht richtig.
Mit .FileDialog suche ich nach .xls-Dateien. Problem ist, dass einige Dateien nicht gefunden werden. Seltsam ist, dass nach dem "Rumprobieren" mit PC-Neustart, Änderungen im Code, Kopieren der Dateien in andere Verzeichnisse etc. die Dateien auf einmal gefunden werden.
Woran kann das liegen?
Sub importiereTemplate()
Dim oFileDialog As FileDialog
Dim oFileSearch As FileSearch
Dim klick As Integer
Dim sucheInUverz As Boolean
On Error GoTo CloseAll
'Speicher freigeben
If Not oFileDialog Is Nothing Then Set oFileDialog = Nothing
If Not oFileSearch Is Nothing Then Set oFileSearch = Nothing
Set oFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
oFileDialog.Title = "Wählen Sie bitte den gewünschten Ordner aus!"
oFileDialog.InitialFileName = CurDir
If oFileDialog.Show = True Then
'MsgBox: Suche in Unterverzeichnissen? (Ja/Nein)
klick = MsgBox("Sie haben den Ordner '" & oFileDialog.SelectedItems(1) & "' ausgewählt." _
_
& Chr(13) & Chr(13) & _
"Soll auch in Unterverzeichnissen gesucht werden?", vbYesNoCancel + vbQuestion)
If klick = vbCancel Then End
If klick = vbYes Then sucheInUverz = True Else sucheInUverz = False
'Suche die *.xls-Dateien
Set oFileSearch = Application.FileSearch
With oFileSearch
.NewSearch
.LookIn = oFileDialog.SelectedItems(1)
.SearchSubFolders = sucheInUverz
.filename = "*.xls"
.Execute
'Falls keine Dateien gefunden, gib eine Meldung aus und beende die Ausführung
If .FoundFiles.Count