ich habe gestern schon sehr gute Hilfe bekommen in Form eines Makros,
besten Dank nochmal an Romeo.
Dieses Makro läut tadellos, ich habe aber doch noch 2 Fragen dazu:
1. Wenn ein anderer User die Datei die gerade geöffnet hat erhält man ja
immer einen Hinweis ob man Schreibgeschützt öffnen will. Was passiert wenn ich
aus so einer Datei die von einem anderen User geöffnet ist Daten auslese, bekomme ich diese Meldung dann auch oder wird die Datei übersprungen? Kann ich das Makro nicht so ändern das die Datei dann Schreibgeschützt geöffnet wird. Wie sieht das dann aus?
2. Kann ich in dem Makro auch Dateien ausschliessen die nicht ausgelesen werden obwohl diese im Ordner vorhanden sind? Wie sieht das dann aus?
MakroOriginal: Dieses Makro liest aus allen xls Dateien die in dem Ordner enthalten sind die Zelle E24 aus dem Sheet 1 aus und schreibt diesen Wert untereinander in das Zielsheet.
Sub auslesen ()
Dim i As Long
Const verz = "c:\Eigene Dateien\Test\"
ChDir verz
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = True
.Filename = "*.xls"
.Execute
End With
For i = 1 To Application.FileSearch.FoundFiles.Count
Set quelle = Workbooks.Open(Application.FileSearch.FoundFiles(i + 3))
ThisWorkbook.Worksheets(1).[A65536].End(xlUp).Offset(1, 0) = quelle.Worksheets(1).[E24]
quelle.Saved = True
quelle.Close
Next i
End Sub