Felter på form til Excel

Denne kan du eksperimenterer videre med :

DoCmd.TransferSpreadsheet acExport, , "DinQuery", "C:\Data.xls", False, "A1:A5"

Kræver reference til DAO samt Excel:

Set Rst = DBEngine.Workspaces(0).Databases(0).OpenRecordset("temp", dbOpenTable)
Set Obvar = CreateObject("excel.application")
Obvar.Visible = True
Set wkb = Obvar.Workbooks.Add
'sætter overskrifter i Excel
wkb.Worksheets("Ark1").Cells(1, 1).Value = "Felt 2"
wkb.Worksheets("Ark1").Cells(1, 2).Value = "Felt 1"
'Data overføres
For i = 2 To Rst.RecordCount + 1
wkb.Worksheets("Ark1").Cells(i, 1).Value = Str$(Rst.Fields![Felt2])
wkb.Worksheets("Ark1").Cells(i, 2).Value = Str$(Rst.Fields![Felt1])
Rst.MoveNext
Next
wkb.Worksheets("Ark1").UsedRange.Columns.AutoFit
Set Obvar = Nothing

Glemte en vigtig detalje:

Hvis der ekporteres tekst erstattes "Str$" med "Format"

mugs> Hvordan får jeg den til at åbne en skabelon? den her åbner vel et nyt dokument hver gang...?

Ja den åbner et ny ark. Denne åbner et bestemt ark og lukker Access:

Dim xls As New Excel.Application
'Gør Excel synlig
xls.Visible = True
xls.Workbooks.Open Filename:="D:\VBA\XP\Mappe1.xls"
'Lukker Access
DoCmd.Quit

Hvordan fletter jeg så de 2 koder sammen.....?
Jeg bruger nedenstående til at klare et tilsvarende problem i Word:

Dim objword As New Word.Application
Dim WordDoc As New Word.Document

Set WordDoc = objword.Documents.Add("\\Odin\database\Skabeloner\DK-Brev.dot")

    If IsNull(Me.Kundenavn) = False Then
        Call InsertAtBookmark(WordDoc, "Firmanavn", Me.Kundenavn)
    End If
   
    If IsNull(Me.Kundeadresse1) = False Then
        Call InsertAtBookmark(WordDoc, "Adresse1", Me.Kundeadresse1)
    End If
   
    If IsNull(Me.Postnr) = False Then
        Call InsertAtBookmark(WordDoc, "Postnr", Me.Postnr)
    End If
   
    If IsNull(Me.By) = False Then
        Call InsertAtBookmark(WordDoc, "By", Me.By)
    End If
   
objword.Visible = True

Jeg lukker :o(