Linke til Excel fra VB (Ikke VBA)

KOm nu - så svært kan det da heller ikke være ;o)

Lukker spørgsmålet - desværre ingen eksperter :o(

Martin, fortvivl ikke. :-)
Husk reference til excels object library

Dim mitArray1(10)
Dim mitArray2(10)
Dim i As Integer
Dim wkbNewBook  As Excel.Workbook
Dim wksSheet    As Excel.Worksheet
Dim xlApp As Excel.Application
   
Set xlApp = New Excel.Application
'xlApp.Visible = True  'vælg om excel sal være synlig
xlApp.Workbooks.Open "c:\slet.xls"
Set wkbNewBook = xlApp.ActiveWorkbook
With wkbNewBook
    For Each wksSheet In .Worksheets
        mitArray1(i) = wksSheet.Name
        mitArray2(i) = wksSheet.Range("B5")
        i = i + 1
    Next wksSheet
End With
wkbNewBook.Close savechanges:=False
xlApp.Quit
Set xlApp = Nothing

Hejsa - og tak for ovenstående. Nu fandt jeg en helt alternativ løsning på mit problem, men du skal da ikke snydes for points af den grund. Jeg lægger lige 60 op til afhentning - se http://www.eksperten.dk/spm/245334