Avatar billede tvc Seniormester
14. november 2017 - 00:35 Der er 5 kommentarer og
1 løsning

Hent data fra en Excelfil til en anden via VBA

Hej

Jeg planlægger at anvende nedenstående til at hente data ind til mine ark i Fil_Til fra en fil jeg vælger via nedenstående som jeg kalder Fil_Fra.


Sub HentFraVersion()

Dim FuldStiOgFil As Variant

'Importer data fra tidligere version (slår op på drev C:)

    ChDrive "C:"
    ChDir "C:\"

    FuldStiOgFil = Application.GetOpenFilename

End sub

Hvordan henter jeg bedst (hurtigst) fra Fil_Fra til Fil_Til?

Jeg skal hente data fra Fil_Fra.Ark1.Range("A1") til Fil_Til.Ark1.Range("A1")
14. november 2017 - 06:06 #1
Jeg ville prøve med noget i retning af

Sub HentFraVersion()

Dim FuldStiOgFil As Variant

'Importer data fra tidligere version (slår op på drev C:)

    ChDrive "C:"
    ChDir "C:\"

    FuldStiOgFil = Application.GetOpenFilename

    Dim fraFil As Workbook
    Dim tilFil As Workbook
    Set tilFil = ActiveWorkbook
    Set fraFil = Workbooks.Open(FuldStiOgFil, UpdateLinks:=False, ReadOnly:=True)
    tilFil.Worksheets(1).Range("A1").Value = fraFil.Worksheets(1).Range("A1").Value

    fraFil.Close SaveChanges:=False

End Sub
18. november 2017 - 08:30 #2
Hej tvc,
Kunne du bruge mit forslag?
Avatar billede tvc Seniormester
29. november 2017 - 00:19 #3
Hej Thor
Jeg har ikke prøvet det endnu, men gør det her en af dagene og vender tilbage.
Foreløbig tak
Avatar billede tvc Seniormester
30. november 2017 - 22:56 #4
Hej Thor
Når jeg åbner den valgte fil har jeg en userform i denne der aktiveres (aktiveres ved åbning af fil).

Denne vil jeg gerne fange og lukke.

fraFil.frm_Bruger.Hide

Hvad gør jeg galt?
01. december 2017 - 07:42 #5
Det bedste er vel at undgå helt at den åbner?
Det gør man sådan her

[code]
Application.EnableEvents = False 
Set fraFil = Workbooks.Open(FuldStiOgFil, UpdateLinks:=False, ReadOnly:=True)
Application.EnableEvents = True
[/code]
Avatar billede tvc Seniormester
02. december 2017 - 02:02 #6
Perfekt - tak!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester