Import af data fra fil til Excel

Er det alle rækker fra "en fil"?
Skal disse så sættes i forlængelse af de bestående i "medarbejderlisten"?

Nej det er kun 4 kolloner der skal importeres
Og de skal overskrive dem der ligger der.

Rem Koden Indsættes i ARK i Master (VBA / Alt+F11)
Rem ==============================================
Rem Der skrives fra række 2 i "Master"
Const StartRæk = 2                                  'kan tilpasses
Rem Der læses fra række 1 i OpdateringsFilen"
Const opdRæk = 1                                    'kan tilpasses

Dim FilNavn
Sub OpdaterMedarbejdere()
Rem Slet gl.rækker i master
    mantalræk = ActiveCell.SpecialCells(xlLastCell).Row
    Range("A" + CStr(StartRæk) + ":D" + CStr(mantalræk)).Select
    Selection.ClearContents
   
Rem Vælg opdateringsfil
    FilNavn = Application.GetOpenFilename
    hentFraFil FilNavn, StartRæk
   
Rem Marker opdaterede Master
    Cells(StartRæk, 1).Select
End Sub
Private Sub hentFraFil(FilNavn, mRæk)
Dim xls, antalRæk
    Set xls = CreateObject("Excel.application")
    With xls
        .Workbooks.Open FilNavn
        antalRæk = .ActiveCell.SpecialCells(xlLastCell).Row
        For Ræk = opdRæk To antalRæk
            For kol = 1 To 4
                Cells(mRæk, kol) = .Cells(Ræk, kol)
            Next kol
            mRæk = mRæk + 1
        Next Ræk
        .Application.Quit
    End With
   
    Set xls = Nothing
End Sub

det virker næsten som det skal, men i den data der kommer fra opdateringsfilen skal kollone 1 og 2 byttes når de importeres.

master  a b c d
Opdater. b a c d

OK - det havde jeg ikke bemærket - prøver igen...

Version 2:

Rem Koden Indsættes i ARK i Master (VBA / Alt+F11)
Rem ==============================================
Rem Der skrives fra række 2 i "Master"
Const StartRæk = 2                                  'kan tilpasses
Rem Der læses fra række 1 i OpdateringsFilen"
Const opdRæk = 1                                    'kan tilpasses

Dim FilNavn
Sub OpdaterMedarbejdere()
Rem Slet gl.rækker i master
    mantalræk = ActiveCell.SpecialCells(xlLastCell).Row
    Range("A" + CStr(StartRæk) + ":D" + CStr(mantalræk)).Select
    Selection.ClearContents
   
Rem Vælg opdateringsfil
    FilNavn = Application.GetOpenFilename
    hentFraFil FilNavn, StartRæk
   
Rem Marker opdaterede Master
    Cells(StartRæk, 1).Select
End Sub
Private Sub hentFraFil(FilNavn, mRæk)
Dim xls, antalRæk
    Set xls = CreateObject("Excel.application")
    With xls
        .Workbooks.Open FilNavn
        antalRæk = .ActiveCell.SpecialCells(xlLastCell).Row
        For Ræk = opdRæk To antalRæk            'Mater <- Opdat
            Cells(mRæk, 1) = .Cells(Ræk, 2)    'A <- 2
            Cells(mRæk, 2) = .Cells(Ræk, 1)    'B <- 1
            Cells(mRæk, 3) = .Cells(Ræk, 3)    'C <- 3
            Cells(mRæk, 4) = .Cells(Ræk, 4)    'D <- 4
            mRæk = mRæk + 1
        Next Ræk
        .Application.Quit
    End With
   
    Set xls = Nothing
End Sub

Det er bare super :-) mange tak... lig et svar!

Det får du her og selv tak...

Lige et spørgsmål til: kan man få converteret kollone 1 og 2 til nummere, samtige med at man importere dem ?

Hvis jeg efterfølgene vil importere fra en fil med nu skal det ikke overskrive med bare ligge det efter.

Denne version giver mulighed for at tilføje/overskrive. Med hensyn til konvertering til tal i kolonne 1 & 2 - er det ikke nemmest, at formatere de to kolonne til talformat i Masteren?

Rem Koden Indsættes i ARK i Master (VBA / Alt+F11)
Rem ==============================================
Dim StartRæk
Rem Der læses fra række 1 i OpdateringsFilen"
Const opdRæk = 1                                    'kan tilpasses
Dim antalRæk, sv
Dim FilNavn
Sub OpdaterMedarbejdere()
Rem Tilføjes eller overskrives
    sv = MsgBox("Tilføj=Ja, Overskriv=Nej", vbYesNo)

Rem Hvis svar = Ja - så tilføj
    If sv = 6 Then
Rem Første ledige række i master-filen
        StartRæk = findTomRække
    Else
Rem Slet gl.rækker i master
        StartRæk = 2

        mantalræk = ActiveCell.SpecialCells(xlLastCell).Row
        Range("A" + CStr(StartRæk) + ":D" + CStr(mantalræk)).Select
        Selection.ClearContents
    End If
   
Rem Vælg opdateringsfil
    FilNavn = Application.GetOpenFilename
    hentFraFil FilNavn, StartRæk
   
Rem Marker opdaterede Master
    Cells(StartRæk, 1).Select
End Sub
Private Function findTomRække()
    For f = 2 To ActiveCell.SpecialCells(xlLastCell).Row
        If Cells(f, 1) = "" Then
            findTomRække = f
            Exit Function
        End If
    Next f
End Function
Private Sub hentFraFil(FilNavn, mRæk)
Dim xls, antalRæk
    Set xls = CreateObject("Excel.application")
    With xls
        .Workbooks.Open FilNavn
        antalRæk = .ActiveCell.SpecialCells(xlLastCell).Row
        For Ræk = opdRæk To antalRæk
            Cells(mRæk, 1) = .Cells(Ræk, 1)    'A <- 1
            Cells(mRæk, 3) = .Cells(Ræk, 2)    'C <- 2
            Cells(mRæk, 2) = .Cells(Ræk, 3)    'B <- 3
            Cells(mRæk, 4) = .Cells(Ræk, 4)    'D <- 4
            mRæk = mRæk + 1
        Next Ræk
        .Application.Quit
    End With
   
    Set xls = Nothing
End Sub

Det viker bare helt perfekt.
Du må lige sige hvis du vil have nogle point for det sidste.

jeg har formateret de to kolloner til tal, men når jeg importere kommer der er error på cellerne og jeg skal vælge convert to numbers for at det væk, så tænkte jeg man måske kunne gøre det via VB.

Hvad står der f.eks. i de to kolonner i den fil, der "importeres"?

kollone 1          2
    2723331    10055649