Hvordan bruger man en skabelon hved export fra access til excel

Lav en forespørgsle med dine data i dette eksempel "qryTest"

Overførslen til Excel klares mest enkelt med følgende kommando på en Komandoknap:

docmd.OutputTo acOutputQuery, "qryTest", acFormatXLS, "birliste.xls", True

jeg har tidligere med held brugt nedenstående, den har den fordel at du selv kan bestemme præcist hvor dine data fra Access skal skrives i Excel. Nedenstående eksempel skriver dog til en ny fil hver gang.

Private Sub cmdPressevaerdi_Click()

Dim Obvar As Object
Dim wkb As Object
Dim Rst As DAO.Recordset
Dim i As Integer
Dim Felt1 As Integer
Dim Felt2 As Integer
Dim Tek As String

On Error GoTo Errorhandler

DoCmd.SetWarnings False

DoCmd.OpenQuery "qryTilfoj_Data_ViewPressevaerdi"

Me.Refresh

Set Rst = DBEngine.Workspaces(0).Databases(0).OpenRecordset("ViewPressevaerdi", dbOpenTable)

Set Obvar = CreateObject("excel.application")

Set wkb = Obvar.Workbooks.Add

wkb.Worksheets("Ark1").Cells(1, 1).Value = "Dato"
wkb.Worksheets("Ark1").Cells(1, 2).Value = "Kunde"
wkb.Worksheets("Ark1").Cells(1, 3).Value = "Konkurrent"

For i = 2 To Rst.RecordCount + 1
    wkb.Worksheets("Ark1").Cells(i, 1).NumberFormat = "dd-mm-yy"
    wkb.Worksheets("Ark1").Cells(i, 1).Value = Rst.Fields![Dato]
    wkb.Worksheets("Ark1").Cells(i, 2).Value = Format(Rst.Fields![Kundenavn])
    wkb.Worksheets("Ark1").Cells(i, 3).Value = Format(Rst.Fields![Konkurrentnavn])
    Rst.MoveNext
Next

'Gør Excel synlig
Obvar.Visible = True

'Objektvariablen frigives
Set Obvar = Nothing

DoCmd.SetWarnings True

Errorhandler:
If Err.Number = 94 Then
Resume Next
End If

End Sub

mlhave (og andre) -> Husk at den sidste kode kræver en reference til DAO og Excel

it all depends on what version of Access (DAO = 97) we are using mugs :o)

Hi Terry -> It's correct, maybee it was too early in the morning to work on eksperten.dk :o)

haløj

der er noget der ikke virker i de kode
Dim Rst As DAO.Recordset
man må da kunne sætte hvilken fil der skal skrives til

men tak for svarene

skal nok lige sige det er microsoft office xp der bruges

Som mugs skriver skal Access kunne se Excel, Dvs. at objektbiblioteket skal være afkrydset. Det gør du ved i VBA-kodevinduet at vælge Funktioner, Referencer og sætte kryds ud for Excel.Der ud over skal der være en reference til Microsoft DAO 3,6 Library

????????????

ok har krydset det af

men jeg får ikke noget op i excel eller hvor ligger filen og hvade hedder den

a55830 > Jeg kan sende dig en testdb, der bygger på samme princip som mlhave's forslag.

ok send bare en testdb

cp@blueeye.dk

Sendt.

Og hvad betyder dette:

HI this mail is only an MSN mail send mail to thomas@blueeye.dk
or tkj@connectpartner.dk

Thomas

hehe jeg har en gammel autosvar der ligger og spøger det bestyder ikke noget jeg har fået din testdb jeg skal bare lige ud af min bil først

hehehe ja jeg må være dum

jeg har sat mine var ind men der kommer ikke noget ud
ikke ande end at mappe1.xls er optaget af mit brugernavn

Stien i min db ser således ud:

D:\VBA\XP\Mappe1.xls

Har du i forvejen åøbnet en fil "Mappe1.xls" eller blot minimeret den?
Prøv evt. at udskifte filnavnet i stien.

har prøvet

stien er ændret / fil navn er ændret

der er bare ikke noget resultat af at jeg trykker på knappen

din db virker men min gør ikke

Kan du sende din db, gerne kun relevante tabeller / formularer til:

mugs@mail.dk

er på vej