Er der ikke en løsning til ikke-åbne ark. Jeg skal lave en oversigt over ca. 200 arks indhold af info cellen - og jeg kan jo kun åbne 15 ark på een gang...?
Hvis du kar alle filnavne (inkl. sti) stående i kolonne B kan du bruge denne makro til at skrive info fra regnearkene i kolonne C:
Sub HentData() Application.ScreenUpdating = False For x = 1 To Range("B65536").End(xlUp).Row Workbooks.Open Filename:=Cells(x, 2) Application.Goto Reference:="Info" Selection.Copy ActiveWorkbook.Close Cells(x, 3).Select ActiveSheet.Paste Next Application.ScreenUpdating = True End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.