Data fra Access til Excel

Hejsa

Jeg har et regneark som består at et "varenummer" og en "2003pris". I en access database har jeg samme "varenummer" og en "2004pris". Udfordringen består i at kæde data fra min access database sammen med data fra mit Excel regneark.

Da min Access database består af ca. 200000 poster, ville jeg gerne undgå at skulle indsætte alle disse poster i et regne ark, hver gang der kom en ny database med nye priser. Derfor ser en en løsning i retning af en makro, som er istand til at læse værdien varenummer i A1, A2, A3.. osv.(evt. between) og dermed lave et SQL statement som kan slå prisen op i access og aflevere resultatet i celle C1, C2, C3 osv ..

Jeg fandt denne makro herinde, som måske kan hjælpe på vej :-)

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

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

  '*** SQL-streng med reference til A2 ***
  '**** dvs at den skal finde den record i access hvor Varenummeret er lig med det du har skrevet i A1
  sqlstr = "SELECT * FROM 2004 WHERE DESCP =" & Range("A2").Value & ";"


  '*** Hent data ***
  Set Db = Workspaces(0).OpenDatabase(Path, ReadOnly:=True)
  Set Rs = Db.OpenRecordset(sqlstr)
 
'*** Indsæt VareTekst i A5 og Disponent i A7 ***
  Ws.Range("G2") = Rs.Fields("DESCP")
  Ws.Range("H2") = Rs.Fields("EPL2004")

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

Mvh
Jan