FoundFiles öffnen und bearbeiten
08.10.2003 14:52:40
Remo
Ich habe ein Makro (aus dem Forum) um alle Excel-Dateien eines Ordners zu finden. Öffnen ist kein Problem, nur kann ich auf die geöffneten Dateien nicht zugreifen. Kennt jemand das Problem?
Hier der Code:
Sub alleoeffnen()
Dim i As Long
Const verz = "c:\Eigene Dateien\"
ChDir verz
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.Filename = "*.xls"
.Execute
End With
For i = 1 To Application.FileSearch.FoundFiles.Count
Workbooks.Open Application.FileSearch.FoundFiles(i)
'Ab hier fängt das Problem an mit "ActiveWindow.ActivateNext"
'oder "ActiveWorkbook", bezieht sich das VBA auf die Datei mit dem Makro,
'aber nicht auf die eben geöffnete Datei.
Next i
End Sub