Overførelse at data fra flere EXCEL dokumenter

Du kan lave et LOPSLAG, som automatisk linker totalerne over i master arket hver gang det åbnes.
\\\\AMH

hmm... Ved du hvordan?

se på msdn.microsoft.com

øh under code center o-cause

Øhhhh....

Jeg har godt nok ikke prøvet med så store data, men funktionen \"Konsolider\" plejer at være værktøjet til at trække ensartede data sammen. Det er desuden muligt at \"Oprette kæde til kildedata\" så tallene automatisk opdateres.

mvh/admss

Måske er det bedre med et direkte opslag:
Tryk på = og åbn det regneark, som formlen skal hentes fra og klik i den aktuelle celle, og tryk på Enter
\\\\AMH

Skal jeg gører det ved alle filer?? Kan man ikke lave en rutine der gå ud og kigger hele dir\'et igennem og opdatere nye og gamle filer og tilføjer deres totaler til master arket. Uden at man hele tiden skal gå ind og vælge hvilke celler man vil linke.

Nej ikke nødvendigvis. Hvis totalen altid ligger i den samme celle, kan du bare kopier formlen og rette navnet på regnearket.
Jeg ville personligt foretrække, at navngive cellen med total i de respektive ark f.eks. \"total\"
Som formlen vil se således ud: =\'regneark\'!A28
\\\\AMH

Der er 7 totaler i hvert ark... + at der kommer et nyt ark om dagen... Så det villle være rart hvis puteren kunne klare det selv... Ellers tager det for lang tid...

Her må jeg desværre give op, men der er sikkert andre, som kan løse probelmet for dig.
Håber, at det lykkes for dig.
\\\\AMH

Okey.. Takker for forsøget...

I de 75 ark - er cellerne med totalerne placeret på samme position alle sammen ?
Jeg kan lave en makro til dig, som løber alle filerne igennem, og henter noget specifikt fra hvert ark. Det har jeg gjort flere gange.
Til formålet vil jeg gerne have det regneark, som tallene skal ind i, samt 1 af de filer, hvor tallene skal hentes fra. Send det til fd@win-consult.com

Hvis du i dit totalark har en liste over alle dine detailark, kan du ved hjælp af INDIRECT formlen få returneret værdier uden manuelt at skulle lave link hver gang.

Hvis alle dine detailfiler ligger i samme bibliotek kan man lave en makro, som henter alle filer over i dit totalark automatisk.
Denne makro kan så kombineres med ovenstående.

Har du en mailadresse så kan jeg sende dig et eksempel.
Ellers send en mail til jan_vogt_hansen@hotmail.com

Har lige sendt det pr email

Min email addresse er henrikgeertsen@ofir.dk

Ark sendt!

Janvogt, hvordan ændre jeg dir\'et i den?

Tryk ALT+F11 så kan du se VBA-koden.
Her skal du så udskifte det sted, hvor der står C:\\My Documents

Send evt. dit totalark samt et detailark, så kan jeg hurtigt lægge løsningen på.

Sådanner... så skulle det være sendt...

Du kan også prøve denne makro.
Den finder selv værdierne.

Sub test()
\'Dette udfyldes med egne data
\'*******************************
sti = \"D:\\test2\"
arknavn = \"Sheet1\"
celle = Array(\"A5\", \"B5\", \"C7\") \' celler at kigge i
\'*******************************
l = Len(sti) + 2
Set fs = Application.FileSearch
With fs
    .NewSearch
    .LookIn = sti
    .SearchSubFolders = False
    .FileName = \"*.xls\"
    If .Execute(SortBy:=msoSortByFileName, _
    SortOrder:=msoSortOrderAscending) > 0 Then
      For i = 1 To .FoundFiles.Count
        ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
        filnavn = Mid(.FoundFiles(i), l)
          For x = 0 To UBound(celle)
            ActiveCell.Offset(rowOffset:=0, columnOffset:=x) = \"=\'\" & sti & \"\\[\" & filnavn & \"]\" & arknavn & \"\'!\" & celle(x)
          Next x
      Next i
    Else
        MsgBox \"Ingen xl-filer her\"
    End If
End With
End Sub

Bak, takker for koden... Den er næsten perfect... Mangler bare lige at den skriver filnavnet i A kolonnen... Kan du hjælpe mig med det?

erstat for x løkken med dette

For x = 0 To UBound(celle)
            ActiveCell = filnavn
            ActiveCell.Offset(rowOffset:=0, columnOffset:=x + 1) = \"=\'\" & sti & \"\\[\" & filnavn & \"]\" & arknavn & \"\'!\" & celle(x)
          Next x

ps. hvor lang tid tager den med 75 filer?? jeg prøvede kun med 4

Godt gået bak! - selvom koden åbenbart kun fungerer 100% i Excel 2000.

Jan > hvordan fejler den??
jeg har brugt xl 97

De links den lagde ind indholdt noget af filen dobbelt - men efter at jeg har lukket diverse filer ned fungerer den udmærket! Sorry :-)
Måske hænger det sammen med, at variablerne ikke er defineret først.

Meget fin løsning. Jeg vil straks tilføje den til min Excel-samling.

Jeg har før brugt noget tilsvarende i en løsning, som laver en indholdsfortegnelse over de ark, som ligger i en fil.

Ark sendt med en makro der bare spiller max :-)

Makro vises efter FACE\'s OK-test.

Bak: Jeg bukker og takker mange gange for din indsats...

(Det tager ca 2-3 sek for 75 styks)

Flemming, du har fandme oss gjort et godt stykke arbejde... Bare jeg oss\' kunne give dig point

Takker face - det synes jeg også ;-)

Flemming du burde næsten ha\' haft de piont... Jeg så detsværre kun dit indlæg efter jeg havde givet points ud.... Det rykker for vildt! Det skal du fandme ha\' tak for... Det har sparet mig for MANGE timers arbejde... Og arbejde frem over...

Velbekomme - God arbejdslyst.

Du skal ikke være så ked af det med pointene :-) Jeg sender dig bare en regning - hehe
Mvh
www.win-consult.com

Flemming> Jeg deler gerne, bare for at se din løsning
Bak

Bak>> Det er iorden, behold du blot dine velfortjente point for din gode løsning.

Flemming: hmm... det er som om den ikke får alle tal med.... Den tager ikke totalerne

face>> helt rigtigt - rettet sendt.

Yeah!! - Nu ruller den...
Takker mange gange igen =)

Velbekomme ;-)