Kopiere fra 20 excel filer til en excel fil

Dataområdet er ens ikke dataene..

Kan se at svarene du har søgt alle er makro baserede svar. Har du overvejet at samle dine 20 sheets via en pivot tabel? Når du danner din pivot vælger du blot multiple consolidation ranges - og kan så vælge de enkelte ranges som hele kolonner, så du er uafhængig af antal rækker. Især når dine sheets er ens opbygget indeholdende de samme variable skulle det ikke volde problemer. Og når nye data kommer ind er det bare at trykke refresh, så opdateres alle dine opsummeringer.
Blot en idé.
Hilsen Luffe

Hej Luffe,

dataene samles i en fil/ark hvorefter der dannes 10-15 forskellige pivot tabeller i forskellige ark.. Alt efter hvad man har behov for at analysere. Problemet er bare at dataene indgår i en større dataindsamling, hvortil der også kommer ydereligere data  via vlookups fra nogle andre tabeller.. Disse tabeller har ikke samme opbygningen som de 20 excel filer som jeg indsamler fra.

Kan man undgå at overføre de 3 første rækker når man henter hele kolonnen..

Jeg skal måske lige tilføje at de 20 filer altid har det samme navn.

Og ja, en macro løsning vil være at fortrække da den gør det nemmere at arbejde med..

Lidt modificisering af en af de macros jeg har linket til tror jeg vil kunne gøre det..

Forstår godt du helst vil samle det i et sheet linje for linje under hinanden. Specielt når du har bygget dine analyse pivot'er op som bygger på dette format. Man kan dog bygge en pivot på en pivot.
Jeg ville nok vælge en pivot løsning alligevel, især fordi jeg ikke er nogen ørn til VBA :-) Enten ved at køre pivot'en på de 20, tage en copy values og tilføje de øvrige data, eller bedre, at få de øvrige data til i opbygning at ligne de 20, så man kun skal køre en pivot. Man kan eventuelt fylde med blanke kolonner eller lave pivot til på disse øvrige data hvis muligt og så siden sammenkoble.
En simpel måde at undgå de tre første rækker: vælg fra a3:a40000 istedet for kolonnen.
At filerne har samme navn har jeg aldrig prøvet. Er det ikke bedre at rename dem, så man kan have dem åbne på samme tid? Ihvertfald hvis du vælger at data skal overføres via pivot, går det langt hurtigere hvis filerne er åbne.
Håber du finder en tilfredsstillende løsning.
/Luffe

Jeg mente ikke de havde samme navn. Det giver problemer. Men at de altid har det samme navn. F.eks. HK, TH, NL osv.

Ved at bruge macro kan jeg slippe for at åbne dem. Da jeg i forvejen har proppet dem med macroer vil jeg helst undgå dette..

Ren og skær "copy - past" fra en fil til en anden..

Jeg kigge på en vba løsning, dine fil navne er de i system, eller har du en liste med dem?

Hvad mener du med at mine fil navne er i system???

Filerne ligger altid i den samme sti med samme navn. Opdateringer bliver lagt ovenpå.

Jeg kan se at de eksempler jeg har fundet alle henter stien med over i arket. Dette vil jeg gerne undgå. Så hellere et bestemt felt hvorfra jeg kan aflæse sidste opdateringsdato. Mener den ligger i felt "A4"

En liste over filnavne kan jeg sende i morgen.. Så kontrollere jeg også lige datofeltet i filerne - dette felt er det samme felt i alle 20 filer.

I hver af de tyve filer er der to ark. Det ark hvori dataen ligger hedder "Bank"

Hej Jlemming,

super du kigger på en vba løsning..
Sidste opdateringsdato findes i felt "B1"
Overskrifterne for kolonnerne er i række 3. Fra kolonne A til M men pt skal jeg kun bruge datene fra kolonne A til F.

Vil du have en liste over filnavne eller hvad mente du med at filnavne er i system?
De er sorteres efter alfabetisk orden fra AU til US og der er faktisk pt 24 filer.

Ja, tak jeg vil gerne have en liste

med system mener jeg f.eks  fil1.xls, fil2.xls, fil3 osv.

Jeps, det er de..

Listen:
AU,CA,CN,CNT,CNW,DACH,ECE,EW,HK,HKE,ID,IDT,IN,PTG,SCA,SG,SGCHH,SGCHW,SGTH,SK,TH,THT,TW,US

alle .xls

Hej olehen
Jeg beklager, jeg må desværre melde fra, da vi har fået sygdom i familien. så min tid ser ikke for god ud. Beklager

Hej Jlemming,

det var da ærgeligt.. Håber det bliver bedre for jer..

Jeg har selv været i gang med en kode a la den fra http://www.eksperten.dk/spm/413238.
Har også forsøgt med forskellige ActiveX 2.0, 2,1 at slå til. Lige lidt hjælper det...

Men den strander ved:

rsData.Open szSQL, szConnect, adOpenForwardOnly, _
                adLockReadOnly, adCmdText

Run-time error'-2147467259(80004005)':
Could not find installable ISAM.


Hvad betyder dette???



Min code der ud som følgende:

Sub GetAllData()
Dim FS As FileSearch
Dim FilePath As String, FileSpec As String
Dim i As Long
Dim v As Variant
Dim szSQL As String
Dim rTarget As Range
Dim ToSheet As Worksheet
'******************************
FilePath = "J:\updatere"
FileSpec = "*.xls"
Set ToSheet = ThisWorkbook.Worksheets("Data")
szSQL = "SELECT [CC],[Bk], [Fc],[Cur],[Max]/1000000,[Act]/1000000 FROM [Bk Ovw$]"
'******************************
'find excel filerne
Set FS = Application.FileSearch
With FS
  .LookIn = FilePath
  .Filename = FileSpec
  .SearchSubFolders = False          'skal underfoldere også søges
  .Execute
  If .FoundFiles.Count = 0 Then
      MsgBox ("Ingen filer fundet")
      Exit Sub
  End If
End With
'hent data
For i = 1 To FS.FoundFiles.Count
  Set rTarget = ToSheet.Range("A1000").End(xlUp).Offset(1, 0)
  rTarget.Offset(4, 0) = FS.FoundFiles(i)
  QueryWorksheet FS.FoundFiles(i), szSQL, rTarget
Next
End Sub

Public Sub QueryWorksheet(szFName As String, szSQL As String, rTarget As Range)
    Dim rsData As ADODB.Recordset
    Dim szConnect As String
    szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=" & szFName & ";" & _
                "Extended Properties=Excel 11.5;"
   
    Set rsData = New ADODB.Recordset
    rsData.Open szSQL, szConnect, adOpenForwardOnly, _
                adLockReadOnly, adCmdText
               
   
    ' Check at data er modtaget
    If Not rsData.EOF Then
        rTarget.CopyFromRecordset rsData
    Else
        MsgBox "No records returned.", vbCritical
    End If
   
    ' Clean up.
    rsData.Close
    Set rsData = Nothing
End Sub

Lukker spg.