VBA - Hente data fra en Access db til en celle i Excel

Jeg ville gøre det således:

1) Få læst den valgte tabel i Access ind i en Record

2) Loop igennem din record, og skriv til dit regneark

3) Luk forbindelsen til databasen

'ad 1)

  Dim rec As Recordset
  Dim DB as Database 

  Set DB = Workspaces(0).OpenDatabase("C:\database.mdb")
  Set rec = DB.OpenRecordset _
    ("SELECT Række1, Række2, Række3 FROM Tabel ORDER BY Række1", _
            dbOpenSnapshot)
 
  'Række1, Række2,... og Tabel er navne angivet i din database

'ad 2)
  Dim i as Integer 'i indeholder rækkenummeret på den celle der skrives til
  Do While Not rec.EOF
    i = i+1
    Activesheet.Cells(i,1).formulaRC = rec!Række1
    rec.MoveNext
  Loop
     
'ad 3)

rec.Close
set DB = nothing

Håber det kan bruges ;o)

Hej Martin

Tak for svaret - kigger på det hurtigst muligt

Kunne du bruge det?

Hej Martin

Jeg lukker hermed spørgsmålet og giver dig pointene!

Tænk at man i 2006 er nødt til at finde et svar fra Martin i 2002 for at finde en brugbar løsning... :o)