Ændre i Excel

Flg kode eksporterer indholdet af tabelen "temp" til et nyt Excelark, og tildeler celle A1 indholdet af tabellens felt "Felt2". Det er ikke lige det su spørger om, men måske kan det bringe dig lidt videre. koden er hentet fra en Axxess97db. læg din e-mail hvis du vil have den tilsendt:

Dim Obvar As Object, wkb As Object, Rst As Recordset
Dim i As Integer, Felt1 As Integer
DoCmd.OpenQuery "tilføjtemp"
Set Rst = DBEngine.Workspaces(0).Databases(0).OpenRecordset("temp", dbOpenTable)
Set Obvar = CreateObject("excel.application")
Set wkb = Obvar.Workbooks.Add
wkb.Worksheets("Ark1").Cells(1, 2).Value = Str$(Rst.Fields![Felt1])
DoCmd.OpenQuery "slettemp"

Det er godt nok ikke kode, men måske en ide til hvordan det kan laves. Sammenkæd regnearket med Access (menuen Filer/Hen eksterne data/Sammenkæd tabeller. Herved får du direkte adgang til regnearket. Så skal du sådan blot ændre i det første felt i den første post.

Superjap - der er noget som skal køre ganske automatisk , og hive data fra 11 underark i 33 regneark.

Mugs - det virkede, hvis du svarer får du lidt points!

Men tak for hjælpen begge to!

Tak.