Excel med access til access fil.

Det var der ikke meget response på - men måske mit eget mislykkede forsøg kan tilrettes...

Sub GetTable()
  Dim Rs As Recordset
  Dim Ws As Worksheet
  Dim Path As String
  Set Ws = ActiveSheet
  Dim sqlstr As String

  '*** sti til database ***
  Path = "..\Bogbordet\exceltest.mdb"    'Her indsætter du navn og sti på din accessdatabase


  sqlstr = "SELECT * FROM pubnavn"


  '*** Hent data ***
  Set Db = Workspaces(0).OpenDatabase(Path, ReadOnly:=True)
  Set Rs = Db.OpenRecordset(sqlstr)
 
'*** Indsæt Pubnavn og nr i arket ***
  Ws.Range("G2") = Rs.Fields("pubnavn")
  Ws.Range("H2") = Rs.Fields("pubnr")

  '*** luk databasen igen ***
  Rs.Close
  Db.Close
End Sub


Den fejler allerede i Dim. User-defineret type ikke defineret
Håber på lidt hjælp nu...  = )

Har du sat reference til DAO i VBA-vinduet i Excel. DAO er referencen til dataadgangsobjekt (databasen). Anvende menuen funktioner eller tools - referencer - Microsoft DAO xx - afh. af version.

MVH

Jammen - så var det jo rigtigt det jeg havde bixet sammen - bortset fra at jeg manglede lidt loop og do while....

Så du må have fortjent en bunke point for at gøre opmærksom på en lille ikke uvæsentlig detalje...

Kyl et svar og vær glad som jeg...  ;-)

Her er et svar - afsendt med glæde

MVH