Hente data fra excel

Kan du ikke bare loope over cellerne

for i = 1 to 10
  MyArray(i) = XXX.Cells(2,i)
Next i

Hvor XXX er det du kalder det objekt du bruger til at connecte til Excel med

Hvis ovenstående ikke er fyldestgørende, så smid lige lidt kode, så jeg kan se hvordan du napper værdien fra een celle, så skal jeg give dig noget kode der napper fra flere celler :o)

PS: der skal nok stå Cells(2,i).VALUE - det er snart over min sengetid

Joooo, det var vist også noget i den stil jeg havde tænkt på, jeg kan vel alligevel ikke fylde et array på en gang, f.ex. fra b2 til b12.

Men det her virker efter hensigten
arrhent(i) = Work.Worksheets("Ark1").Cells(i, 2).Value

Yep - og så loope over i fra 2 til 12 :o)

Hov, ved du hvordan jeg får lukket skidtet rigtigt igen, jeg har 10 excel.exe liggende i min taskliste.
Jeg afslutter med:

Dim Ex As Excel.Application
  Dim Work As Excel.Workbook
------Åbner ark
----læser variabler o.s.v.

  Ex.Workbooks.Close
  Ex.Application.Quit
  Set Work = Nothing
  Set Ex = Nothing

Det burde gøre det - er du sikker på at den ikke "hænger" fra en anden gang, hvor du ikke har fået lukket Excel ned?
Hvis du genstarter, og kører din vbkode med ovenstående "afslutning" burde den lukke Excel ned som forventet...

Ok jeg har ikke kigget nærmere på det, så bare at tasklisten var fuld af excel'er ;-)
Det var jo ikke usansynligt at jeg havde glemt noget.
Tak for hjælpen !!

Jeg er overbevist at det hele virker efter en genstart - din kode ser meget fornuftig ud, synes jeg

Skal du hente flere celler af gange kan du gøre det i en variant.

Dim varray as variant
varray=Work.Worksheets("Ark1").range("A1:A20")