Kopiere celler til nyt excelark via macro

Er det ark i samme file eller separate filer?

Det er i separate filer

Har du navnene på alle underfilerne i dit hovedark?

Filerne hedder:
Afd 1 - Årsregnskab 2014.xlsm
Afd 2 - Årsregnskab 2014.xlsm
Afd 3 - Årsregnskab 2014.xlsm
Osv. indtil man når 115 :)

Hvis det må løses ved hjælp af VBA kan en kode i stil med
nedenstående løse din opgave....

Den anbringes i et kodemodul i din fil hvor til data skal indlæses.
Den gennemløber alle dine filer med afdelingsregnskaber, åbner dem og indlæser værdier herfra - og lukker dem igen UDEN ændringer.

Her i eksemplet indlæses cellerne A1 og B1 fra det ark der er åbent når filen åbnes.
Det kan naturligvis ændres således at den finder det rette ark og andre celler...

Denne kode indlæser fra folderen: "D:\Test\"



Sub indlæsRegnskaber()
Dim oFS As New FileSystemObject
Dim sDir, oDir, oFile, oSub
Dim e, Fcount As Integer
Dim fName As String
sDir = "D:\test\"

Dim curWb, tmpWb As Workbook
Dim collectWs As Worksheet

Set curWb = ActiveWorkbook
Set collectWs = ActiveSheet

Set oDir = oFS.GetFolder(sDir)

Worksheets("Ark1").Activate
Range("A2").Select

For Each oFile In oDir.Files
fName = oFile.Name
         
For e = 1 To 115
  If fName = "Afd " & e & " - Årsregnskab 2014.xlsm" Then
  Fcount = Fcount + 1
 
  Set tmpWb = Application.Workbooks.Open(oFile)
      collectWs.Cells(Fcount, 1) = fName
      collectWs.Cells(Fcount, 2) = Range("A1")
      collectWs.Cells(Fcount, 3) = Range("B1")
  tmpWb.Close SaveChanges:=False
  End If
Next e
       
Next oFile
  MsgBox "OK - der blev fundet " & Fcount & " filer..."
End Sub

Mappe stigen er forskellig for hver afdeling, er dette et problem?

='H:\afd-01\01 Regnskab\01 Årsregnskab og budget\2014\01 Regnskab\[Afd 1 - Årsregnskab 2014.xlsx]

='H:\afd-02\01 Regnskab\01 Årsregnskab og budget\2014\01 Regnskab\[Afd 2 - Årsregnskab 2014.xlsx

Ovs.

Er det os muligt at få den til at kunne hente data ud fra hvad er er tastet i 2 celler, afdelingsnr og årstal ?

Dine filer ligger altså alle sammen på h-drevet, i mapper der hedder
"AFD-01, AFD-02 osv, og derefter igen i en undermappe to trin nede?
Jeg vil gerne prøve at kigge på det, men så skal koden laves noget mere omfattende da den jo skal løbe alle dine undermapper igennem.
Og ja -alt der er tastet i en celle i et ark i filen kan udhentes ;-)
Jeg kan vende tilbage med et forslag senere på dagen eller i aften hvis du er interesseret ;-)
mvh

Alle mapperne er på h-drevet og alle mapper starter med ADF-01, 02, 03 ovs.

Det eneste som ændre sig i stigen for en afdeling, det er årstallet ( se den understreget )

='H:\afd-01\01 Regnskab\01 Årsregnskab og budget\2014\01 Regnskab\[Afd 1 - Årsregnskab 2014.xlsx]

For at få Årsregnskab 2014 - skal der stå 2014 i stigen
For at få Årsregnskab 2013 - skal der stå 2013 i stigen

Jeg er meget interesseret i din hjælp og er virkelig glad for det du har lavet indtil videre :)

Jeg vil gerne forsøge ;-)
Har du evt mulighed for at sende mig en mail med eksempel på en af de filer der skal indlæses data fra?
Det behøver ikke være med alle data eller de rigtige data - men så jeg kan se strukturen.
Har alle filer for øvrigt samme struktur?
Hedder arkene det samme osv....?


mvh Kurt

skriv til kurtSnabelaVinduPunktumDk

Har sendt data til dig :)

Strukturen er ens på alle ark. Alle fanerne hedder der samme, det eneste som ændre sig, det er navnet på filen og dens placering, alt efter hvilken afdeling det er.