title image


Smiley xls-Dateien in Unterordner finden
Hi Profis,



untenstehenden Code habe ich von Profi-Ramses erhalten (danke!!!) und ein

bischen abgeändert. Im Code werden in einer Liste (im Beispiel

"Ost.xls")alle Dateinamen der in einem bestimmten Ordner gespeicherten

Dateien (im Beispiel G:\Ungarn) aufgelistet.



*********

Beispiel:

Im Ordner G:\Ungarn befinden sich die

Dateien A1.xls, A2.xls, A3.xls.



Auf der Liste "Ost.xls" steht dann in

Zelle A1 "A1.xls"

Zelle B1 "A2.xls" usw.

*********



Mein Problem ist, daß die Dateien nun in viele verschiedene Unterordner von G:\Ungarn\...

verschoben wurden und der Code dann bei ---If .Execute() 0 Then ---

klarer Weise aussteigt, da im Ordner G:\Ungarn nun keine Dateien mehr

stehen sondern viele weitere Ordner, die es zu durchsuchen gilt.



Kann mir jemand den Code so ergänzen, daß er auch die Unterordern nach xls

Dateien durchsucht?



Danke im Voraus,

Alexandra



Sub GW1050OfferteDocdrucken()

'*****

'alle Dateinnamen eines betimmten Ordners in einer Liste

'auflisten

'*****



Application.ScreenUpdating = False

Dim i As Integer, y As Integer, TotFiles As Integer

Dim wks As Worksheet

Dim gefFile As String

Dim Suchpfad As String, suchbegriff As String

Dim OldStatus, AktPosition, AktC, AktR

Dim dname As String



Application.DisplayStatusBar = True

With Application.FileSearch

.LookIn = "G:\Ungarn"

.FileName = "*.xls"

If .Execute() > 0 Then '<---- hier steigt er klarer Weise aus !!!!!!!!!!!!!!!!!!!!



TotFiles = .FoundFiles.Count

Application.StatusBar = "Total " & TotFiles & " gefunden"

For i = 1 To .FoundFiles.Count

gefFile = .FoundFiles(i)

Application.StatusBar = "Aktuelle Datei: " & gefFile & ", " & i & " von " & TotFiles & " bearbeitet"

'Workbooks.Open gefFile

dname = gefFile

Windows("OST.xls").Activate

Range("a65536").End(xlUp).Offset(1, 0).Select

ActiveWorkbook.Save

Next i

End If

End With

End Sub







geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: