Hente data fra Acces til Excel

ja du kan bare hyperlinke som et OLE objekt

Kopier data i tabellen og gå til excel og brug indsæt speciel / opret kæde.

Funktioner - OfficeLink

Her er et eksempel i VBA
Databasen hedder "C:\database\testbase.mdb" og tabellen hedder TABEL1

Sub GetTable()
  Dim Db As Database
  Dim Rs As Recordset
  Dim Ws As Object
  Dim i As Integer
  Dim Path As String
  'aktuel arknavn
  Set Ws = Sheets("Ark1")
  'sti til database
  Path = "C:\database\testbase.mdb"
 
  'slet nuværende indhold
  Ws.Activate
  Range("A1").Activate
  Selection.CurrentRegion.Select
  Selection.ClearContents
  Range("A1").Select
 
  Set Db = Workspaces(0).OpenDatabase(Path, ReadOnly:=True)
  'Selectstreng til TABEL1
  'Hent data
  SelStr = "SELECT * FROM TABEL1 WHERE Fysisk >= #01-01-2002#;"
  Set Rs = Db.OpenRecordset(SelStr)
  For i = 0 To Rs.Fields.Count - 1
      Ws.Cells(1, i + 1).Value = Rs.Fields(i).Name
  Next i

  Ws.Range(Ws.Cells(1, 1), Ws.Cells(1, Rs.Fields.Count)).Font.Bold = True
  Ws.Range("A2").CopyFromRecordset Rs
  'Formater resultat
  Sheets("Ark1").Select
  Range("A1").Select
  Selection.CurrentRegion.Select
  Selection.Columns.AutoFit
  Range("A1").Select

  Rs.Close
  Db.Close
End Sub

Mon ikke det nemmeste er at eksportere fra access til excel:

I access går du ind under tools/officelinks/analyse with excel
Så får du kreeret et worksheet.

Kotelet: har du fået svar nok, så luk lige spørgsmålet ellers uddyb problemet.

Udviklingskonsulenten>>> Jeg skulle lige fatte det... :-) .. Det virker nu!

Også tak til "bak" ... Det så vældig smart ud, men så avanceret er jeg slet ikke ... endnu!