Overføre og hente data fra Excel

Hej maja

Her er lidt kode der måskke kan hjælpe

Dim objexcel As object
Dim lngReturnValue As Long
   
    'Initier Excel
    On Error Resume Next
    Set objexcel = GetObject(, "Excel.Application")
    Err.Clear
    On Error GoTo 0
    If objexcel Is Nothing Then
        Set objexcel = GetObject("", "Excel.Application")
    End If
    objexcel.Visible = True
    AppActivate "Microsoft Excel"
   
    'Fyld værdier i A1 til A4
    objexcel.Workbooks.Add
    objexcel.Range("A1").Select
    objexcel.ActiveCell.FormulaR1C1 = "5"
    objexcel.Range("A2").Select
    objexcel.ActiveCell.FormulaR1C1 = "6"
    objexcel.Range("A3").Select
    objexcel.ActiveCell.FormulaR1C1 = "7"
    objexcel.Range("A4").Select
    objexcel.ActiveCell.FormulaR1C1 = "8"
    objexcel.Range("A5").Select
    objexcel.ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"

    'Aflæs værdien i A5
    lngReturnValue = objexcel.Range("A5").Value
   
    MsgBox "Return Value = " & lngReturnValue

Det virker næsten, men det er et eksisterende regneark jeg skal have talene indi. Hvordan åbner jeg det?

I stedet for

objexcel.workbooks.add

skal du skrive :

objexcel.Workbooks.Open "c:\myfile.xls"