Samle data fra flere ark/filer i et samlet ark

http://www.eksperten.dk/spm/823042 & 913769 til inspiration

Legede lige lidt selv med det - kan man ikke forfine nedenstående lidt så den ikke er afhængig af hvor filerne ligger så længe det er i samme mappe ?

For denne virker efter hensigten :-)

Dim myWorkbook As Workbook
   
    Set myWorkbook = Application.Workbooks.Open(Filename:="C:\Test\Test1.xlsm")
    myWorkbook.Sheets("qry_AlleFelterExcelEksport").Activate
    Cells(1, 1).Activate
    ActiveCell.CurrentRegion.Copy
    ThisWorkbook.Sheets("DataI").Activate
    Cells(4, 1).Activate
    ActiveCell.PasteSpecial
    Range("A1").Copy
    myWorkbook.Close
    Range("A4").Select
    Selection.CurrentRegion.Select
    Application.CutCopyMode = False
    With Selection
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("A1").Select
   
End Sub

hvis du før linjen
Set myWorkbook = Application.Workbooks.Open(Filename:="C:\Test\Test1.xlsm")
lægger noget kode, der henter aktuelle workbook-sti, så kan du have den i en variabel og sætte den ind i linjen, hvor du åbner.

sti = ThisWorkbook.FullName
filstart = InStrRev(sti, "\", , vbTextCompare)
sti = Left(sti, filstart)
Set myWorkbook = Application.Workbooks.Open(Filename:=sti & "Test1.xlsm")

Er det muligt, at skrive stien i et felt i samlerarket så den ser der ned hvor de andre filer er placeret....og så hente de navngivne områder i arkene..........
Nu er jeg vel ikke for krævende :)

Så dropper du de første 3 linjer jeg kom med, og bruger
Sti = range("A1").Text
Eller hvor du nu har stinavn (inkl den sidste \)
Resten kan jeg ikke klare i dag - pc er lige sat i gang med stor opgave, så jeg er på iPad de næste timer.

Lukke spørgsmålet