Kein Filesearch mehr in XL2007 ?
29.08.2007 22:25:00
Reinhard
ich habe in einem anderen Forum jmdm. nachstehenden Code gebastelt, der u.a. einen Ordner mittels "FileSearch" nach xls-Dateien durchsucht.
Entwickelt, wenn auch nicht getestet, auf XL2002, der Annnfrager hat XL2007
Daraufhin entwickelte sich folgender gekürzter Beitragswechsel:
Er: Leider habe ich zu Hause nur die Version 2007. Da musste ich einige Dinge ersetzen.
Ich: ich habe kein XL2007, was mußtest du warum wo und wie ersetzen?
Er: Also z.B. scheint es keine Funktion "Application.FileSearch" mehr zu geben. Dafür habe ich "Application.FindFile" gefunden. Diese wiederum funktioniert aber nicht mit "With".
".execute" scheint es auch nicht (mehr) zu geben.
Offen blieb, ob er den Code zum Laufen brachte.
Jetzt kann ich nicht nachprüfen ob es in XL2007 FileSearch und Excecute nicht mehr geben soll.
Wenn das stimmt, wie sähe dann ein analoger Code zu meinem für XL2007 aus?
Wenn es nicht stimmt, bitte Mitteilung.
Dankeschön
Gruß
Reinhard
Ungetestet mal als Ansatz:
Option Explicit
Sub Zusammen()
Dim Anz As Integer
Application.ScreenUpdating = False
On Error GoTo Fehler
With Application.FileSearch
.Filename = "*.xls"
.LookIn = "C:\MeinOrdner"
.SearchSubFolders = False
.Execute
For Anz = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(Anz)
If Anz 1 Then
Columns(2).Copy Destination:=ThisWorkbook.Worksheets("Tabelle1").Cells(1, Anz + _
1)
Else
Columns(1).Copy Destination:=ThisWorkbook.Worksheets("Tabelle1").Cells(1, 1)
Columns(2).Copy Destination:=ThisWorkbook.Worksheets("Tabelle1").Cells(1, Anz + _
1)
End If
ActiveWorkbook.Close savechanges:=False
Next Anz
End With
Fehler:
Application.ScreenUpdating = True
End Sub