kopier fra mange filer

Hvordan er filerne navngivet - med noget bestemt system?

n, de hedder alle noget vidt forskelligt !! desværre

jeg gjorde det på den "hårde" måde, så jeg lukker spm.

det var synd, her er koden

Public Sub Hent_filer()
Application.ScreenUpdating = False
Dim strFilNavn As String
i = 1
mypath = "C:\adata\" ' ret til din sti
If Right(mypath, 1) <> "\" Then mypath = mypath & "\"
strFilNavn = Dir(mypath & "*.xls")  ' Hent den første filnavn.
Do While strFilNavn <> ""  ' Start løkken
  If strFilNavn <> "." And strFilNavn <> ".." Then
Workbooks.Open strFilNavn
ThisWorkbook.Worksheets("Ark1").Range("A" & i) = Workbooks(strFilNavn).Worksheets("Ark1").Range("F2")
ThisWorkbook.Worksheets("Ark1").Range("B" & i) = Workbooks(strFilNavn).Worksheets("Ark1").Range("H3")
ThisWorkbook.Worksheets("Ark1").Range("C" & i) = strFilNavn
Workbooks(strFilNavn).Close
i = i + 1
End If
strFilNavn = Dir    ' Hent næste filnavn.
Loop
  Application.ScreenUpdating = True
End Sub

nb. det kræver at alle filer, som skal hentes fra, er i det aktuelle bibliotek, og ikke andre

nå lige en rettelse

Workbooks.Open strFilNavn
rettes til
Workbooks.Open mypath & strFilNavn

>kabbak

Havde du dog bare været 5 min. hurtigere!!

en ret imponerende makro.

jeg skal jo også passe mit arbejde . ;-))