Eksport til excel

Jeg har ved hjælp af formel fra MUGS, fået følgende VBA kode der overfører data til et excelark.

Problemet er, at WKS danner en ny workbook hver gang.
Jeg ville rigtig gerne, at det var nedenstående fil, der blev åbnet og indlæst data i. Er det nogen der kan hjælpe mig, så koden reflekterer det?


'xls.Workbooks.Open fileName:="C:\Documents and Settings\jna\Dokumenter\Forcast_Budget_2010.2011\Oplæg1.xls"



Private Sub Kommandoknap13_Click()
Dim Obvar As Object, wkb As Object, Rst As Recordset ' Variabelerklæringer
Dim i As Integer, Felt1 As Integer, Felt2 As Integer, Tek As String
Dim xls As New Excel.Application

On Error GoTo Errorhandler
DoCmd.SetWarnings False
Forespørgsel1 over i den temporære tabel
DoCmd.OpenQuery "tilføjtemp"
Me.Refresh
Set Rst = DBEngine.Workspaces(0).Databases(0).OpenRecordset("temp", dbOpenTable)
Set Obvar = CreateObject("excel.application")
Obvar.Visible = True
Set wkb = Obvar.Workbooks.Add

'xls.Visible = True
'xls.Workbooks.Open fileName:="C:\Documents and Settings\jna\Dokumenter\Forcast_Budget_2010.2011\Oplæg1.xls"

wkb.Worksheets("Med").Cells(1, 1).Value = "Afdelingsnummer"
wkb.Worksheets("Med").Cells(3, 2).Value = "Initialer"
wkb.Worksheets("Med").Cells(3, 3).Value = "Bærer"
wkb.Worksheets("Med").Cells(3, 4).Value = "Startdato"
wkb.Worksheets("Med").Cells(3, 5).Value = "Slutdato"
wkb.Worksheets("Med").Cells(3, 5).Value = "Beløb"

For i = 2 To Rst.RecordCount + 1
wkb.Worksheets("Med").Cells(i, 1).Value = Str$(Rst.Fields![Afdelingsnummer])
wkb.Worksheets("Med").Cells(i, 2).Value = Format(Rst.Fields![Initialer])
wkb.Worksheets("Med").Cells(i, 3).Value = Format(Rst.Fields![Bærer])
wkb.Worksheets("Med").Cells(i, 4).Value = Str$(Rst.Fields![Startdato])
wkb.Worksheets("Med").Cells(i, 5).Value = Str$(Rst.Fields![Slutdato])
wkb.Worksheets("Med").Cells(i, 6).Value = Str$(Rst.Fields![SumOfBeløb])

Rst.MoveNext
Next
wkb.Worksheets("Ark1").UsedRange.Columns.AutoFit
Set Obvar = Nothing
DoCmd.OpenQuery "slettemp"
DoCmd.SetWarnings True
Errorhandler:
If Err.Number = 94 Then
Resume Next
End If
End Sub