dataadgangs sider og excell

Du kan sagtens eksportere data fra Access til Excel. Følgende kode er et eksempel på hvordan du evt. kan gøre ved hjælp af automation. Du kan herefter gemme Excel-arket til senere stastistik. Der er også muligt at lave statistikken fra Access, mend er har jeg ikke noget eksempel.

Dim Obvar As Object, wkb As Object, Rst As Recordset ' Variabelerklæringer
Dim i As Integer, Felt1 As Integer, Felt2 As Integer, Tek As String
'Hvis du har oprettet en ny post, skal tabellen først opdateres, ellers ses den nye post ikke i Excel
'Me er den aktive formular og Refresh opdaterer den underliggende tabel / forespørgsel.
Me.Refresh
'Næste sætning definerer hvilken tabel der skal levere data og åbner denne
Set Rst = DBEngine.Workspaces(0).Databases(0).OpenRecordset("Tabel1", dbOpenTable)
'Excel åbnes ved hjælp af funktionen "CreateObject"
Set Obvar = CreateObject("excel.application")
'Gør Excel synlig, Du kan også flytte denne linie længere ned...
'hvis eksporten skal være afsluttet når Excel bliver synlig
Obvar.Visible = True
'Variablen wkb sættes = projektmappen, der tilføjes med metoden Add
Set wkb = Obvar.Workbooks.Add
'Der sættes overskrifter på Excel-arket
wkb.Worksheets("Ark1").Cells(1, 1).Value = "Felt 1"
wkb.Worksheets("Ark1").Cells(1, 2).Value = "Felt 2"
'Løkken der henter data fra tabel1 i Access og lægger data ind i Excel...
'Hvis der ekporteres tekst erstattes "Str$" med "Format"
For i = 2 To Rst.RecordCount + 1
wkb.Worksheets("Ark1").Cells(i, 1).Value = Str$(Rst.Fields![Felt1])
wkb.Worksheets("Ark1").Cells(i, 2).Value = Str$(Rst.Fields![Felt2])
Rst.MoveNext
Next
'Summen af felt2 udregnes
Tek = "=Sum(R[" + Str$(-Rst.RecordCount) + "]C:R[-1]C)"
wkb.Worksheets("Ark1").Cells(Rst.RecordCount + 2, 2).Value = Tek
'Linien tilpasser bredden af benyttede kolonner
wkb.Worksheets("Ark1").UsedRange.Columns.AutoFit
'Objektvariablen frigives
Set Obvar = Nothing

Se iøvrigt:
http://www.eksperten.dk/spm/212420
der omhandler samme emne. Læg din email hvis du vil have eksemplerne tilsendt.

mariethorsen@city.dk

jow tak!

Det er ikke velegnet med dataadgangssider da brugerne skal have licens til Microsoft Office 2000.

Jeg har ikke kunne få siden til at pege på andre end databasen på mit c drev.

Det har de nu også, men jeg kan sqdde få skidtet til at virke for mig.
Din løsning virker Mugs, bare ikke for mig, så værsgo, point ved kasse 1 :)