Hente data fra en excelfil til en anden

Kan gøres med følgende makro:-

Sub HentData()
   
    Dim myWorkbook As Workbook
   
    Set myWorkbook = Application.Workbooks.Open(Filename:="Sti til Data regnark")
    myWorkbook.Sheets("Navn på data ark").Activate
    Cells(1, 1).Activate
    ActiveCell.CurrentRegion.Copy
   
    ThisWorkbook.Sheets("Navn af ark hvor du vil indsæt data").Activate
    Cells(1, 1).Activate
    ActiveCell.PasteSpecial
   
    myWorkbook.Close
   
   
End Sub

Alternativt forslag:

Dim xls, filNavn
Sub hentFraFil()
Rem Udpeg den ønskede fil
    filNavn = Application.GetOpenFilename
    Set xls = CreateObject("Excel.application")
   
    With xls
    xls.Workbooks.Open filNavn
        .Sheets(1).Activate
        .Columns("A:C").Select
        .Selection.Copy
    End With
   
    ActiveWorkbook.Sheets(1).Activate
    Range("A1").Select
    ActiveSheet.Paste

    xls.Application.Quit
    Set xls = Nothing
End Sub

Superteksts forslag vil gøre at det hele sker usynligt. Det kan også gøres ved at sætte linjerne:

Application.Screenupdating = False

Application.Screenupdating = True

ind på mit forslag. Den første lige efter "Sub HentData()", og den anden lige før "End Sub".

Hvis du har en gammel maskine med begrænset processor, er det nok hurtigere med mit forslag, da det hele laves uden at skulle åbne en nye Excel. Ellers er de nok lige gode.

fint ...sender i et svar

Hermed gjort.

Tak, men var det ikke mening, at jeg skulle dele med supertekst?

Jeg sender 100 point videre til ham.

ok & tak