Re: data extraction of workbooks, and collection in empty workbook
Perhaps I can use the following code for my purpose. It opens every workbook in a folder, looks in a specific range, and extracts the data.
Its problem is that the extracted data is overwritten by the next workbook extraction.
Also, there is always a message displayed like "update links - yes or no", everytime a new workbook is being opened - dont know how to set this automatically to 'True'.
Sub dateiensuchen_und_daten_extrahieren() Dim fs As Variant, i As Integer, summe As Double Set fs = Application.FileSearch With fs .LookIn = "M:\Development\GeneSheets_DataExtract_Loop\Gene.File.Lists" .SearchSubFolders = True .Filename = "*.xls" .Execute For i = 1 To .FoundFiles.Count Workbooks.Open .FoundFiles(i) 'catch data bla = ActiveWorkbook.Worksheets("Sequence Data").Range("B6:M9").Formula 'write data ActiveWorkbook.Close savechanges:=False Range("B2:M5").Formula = bla Next i End With Set fs = Nothing End Sub