En rask kode som henter ut et bestemt område i ulike Excel bøker

[jte...@yahoo.no]

Jeg har ca 70 Excelbøker. Jeg ønsker å hente et bestemt område i hver
av bøkene for så og legge dette området under hverandre i et nytt
Excel ark.

En mulighet jeg ser er å fysisk åpne hver og en bok for å kopiere ut
området og lime dette inn i det nye arket.

Er det noen VBA kode som vil være raskere?

[Per Erik Midtrød]

Temmelig sikker på at noen klarer å lage en løsning som kun bruker
excel, men denne funker hvis du ikke har tid til å vente:
Gå til den aktuelle mappen i DOS og skriv: dir *.xls > filliste.txt
Importer filliste.txt til Excel og bruk tekst til kollonne for å
fjerne alt unntatt filnavnene.
Hvis du ender opp med filnavnene i A1 og nedover kan denne makroen
brukes:

Sub SettInnVerdier()
Dim Stien As String
Dim i As Long
Stien = "'G:\Dokumenter\Documents\Excel\[" 'Bytt ut alt mellom ' og
[ med mappen din

For i = 1 To 70 ' Bytt ut 70 med det nøyaktige antall bøker.
Range("e" & i).Formula = "='G:\Dokumenter\Documents\Excel\[" &
Range("a" & i).Value & "]Sheet1'!$A$1" ' Bytt ut Sheet1'!$A$1 med ditt
ark og celle
Range("e" & i) = Range("e" & i).Value
Next
End Sub

Per Erik