indsæt data fra fil

som nogle af jer nok ved, er jeg i gang med et timeregistreringsprogram.

jeg fik hjælp til at lave en knap der hiver data ud af et ark, opretter et nyt og gemmer dette.

Nu skal processen så ske baglæns, dvs de gemte data skal tilbage ind i regnearket. Jeg har prøvet at lege lidt med en makro, men den vil sgu ikke rigtig som jeg vil.

foreløbigt ser min knap sådan her ud:

-------------------------------------------------

Sub loadundone_Click()

If Range("D2").Value = "" Then
    MsgBox "Der er ikke angivet et navn!", vbCritical
    Exit Sub
    End If

Dim map As String

map = "c:\timeregistrering\databaser\" & Range("D3").Value

If Dir(map, vbDirectory) = "" Then MkDir map

a = Dir(map & "\*.csv")
If a = "" Then
MsgBox "Du har ikke gemt nogen filer", vbCritical
Exit Sub
End If

ChDir map

Filnavn = Application.GetOpenFilename("Ufærdige skemaer (*.csv), *.csv", , "Vælg skema")

If Filnavn = False Then
  Exit Sub
  Else
  Workbooks.Open (Filnavn)
End If


Windows(1).Activate
    Range("A1:C30").Select
    Selection.Copy
    Windows("Timeregistrering.xls").Activate
    ActiveSheet.Paste
    Windows(1).Activate
    Range("E1:E30").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Timeregistrering.xls").Activate
    Range("F9").Select
    ActiveSheet.Paste
    Windows(1).Activate
    ActiveWindow.Close
    Range("B8:F38").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Range("F8:F38").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Range("B9").Select



End Sub

-----------------------------------
eventuelt kan formateringslinierne fjernes, da de jo ikke er problemet.

Jeg har på fornemmelsen at problemet opstår når man åbner filen, da dette ark så bliver aktiveret med det samme ( arket med makroen er dermed ikke længere aktiveret når der skal udføres den første kommando efter åbning)