Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
648to652
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
648to652
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Warum werden keine Files mit FileSearch gefunden?

Warum werden keine Files mit FileSearch gefunden?
05.08.2005 14:18:44
Peter
Servus,
hab unten stehenden Code in das Open Ereignis meines WB gepackt.
Und würde gerne verschiedene *.csv Dateien einlesen, allerdings hab ich das Problem das obwohl die Dateien vorhanden sind (siehe Bild), er bei .FoundFiles.Count keine Dateien findet und somit logischerweisse die MSGBox sich öffnet. Kann mir bitt jemand mit nem Holzhammer helfen, Danke.


      
Private Sub Workbook_Open()
Dim bank1wbk As Workbook, bank2wbk As Workbook, bank3wbk As Workbook
Dim kassenwbk As Workbook
Dim strpath As String
Dim myarr(0, 50)
Dim i As Integer, x As Integer
ActiveWindow.DisplayWorkbookTabs = 
False
Application.ScreenUpdating = 
False
If Sheets("Tabelle1").Range("H1") = 1 Then
strpath = ThisWorkbook.Path & "\"
Else
strpath = Sheets("Tabelle1").Range("B9")
End If
With Application.FileSearch
    .LookIn = strpath
    .SearchSubFolders = 
False
    .Filename = "Bank" 
'Sheets("Tabelle1").Range("E5") & "*.*"
    .FileType = msoFileTypeAllFiles
        
For i = 1 To .FoundFiles.Count
           
If Right(.FoundFiles(i), 3) = "csv" Then
           x = x + 1
           myarr(0, i - 1) = .FoundFiles(i)
           
End If
        
Next
End With
If x = 0 Then
    MsgBox "Keine Bankdateien gefunden, Liquidität wird in diesem Bereich nicht berechnet !!!"
    
GoTo Kasse
End If
Bank:
    
Select Case x
    
Case 1: bank1wbk = myarr(0, 0)
    
Case 2
    bank1wbk = myarr(0, 0)
    bank2wbk = myarr(0, 1)
    
Case 3
    bank1wbk = myarr(0, 0)
    bank2wbk = myarr(0, 1)
    bank3wbk = myarr(0, 2)
    
Case Is > 3
    MsgBox "Mehr als 3 Bankdateien gefunden, bitte beachten Sie das nur 3 Dateien herangezogen werden können !!!"
    
End Select
   Workbook.OpenText (bank1wbk)
Kasse:
Application.ScreenUpdating = 
True
End Sub
 

Userbild
MfG Peter

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

Betreff
Datum
Anwender
Anzeige
AW: Warum werden keine Files mit FileSearch gefunden?
05.08.2005 14:22:19
ransi
hallo peter
mal auf verdacht:
.Filename = "Bank"&"*"
ransi
AW: Warum werden keine Files mit FileSearch gefund
05.08.2005 14:33:45
Peter
Servus Ransi,
hab ich auch schon probiert. Ebenso wie & "*.*" . Funzt irgendwie beides nicht. Ich verstehs auch nicht.
MfG Peter
.execute
05.08.2005 14:38:45
ransi
hallo peter
noch ein verdacht:
".execute" fehlt
ransi
AW: .execute
05.08.2005 14:42:27
Peter
Servus Ransi,
dein Verdacht (mehrzahl?) sind die besten, vielen Dank.
MfG Peter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige