title image


Smiley Re: xls-Dateien in Unterordner finden
Hallo Alexandra,



warum unter neuem Namen ?



Ich habe mal den Code genommen den du mir geschickt hast



Sub GW1050OfferteDocdrucken()

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"

    'Das fehlte

    .SearchSubFolders = True

    .FileName = "*.xls"

    If .Execute() > 0 Then

        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

Code eingefügt mit Syntaxhighlighter 1.14




Herzliche Grüsse

aus der Schweiz

Rainer

Kombiniere Geist und Google,...denn Wissen ist geil :-)



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: