Overførsel til Excel

Benytter p.t. denne kode:

  rst.MoveFirst
  j = 1
  On Error GoTo Slut
  While Not rst.EOF
    j = j + 1
    For i = 0 To Liste2.ListCount - 1
      xlsheet.Cells(j, i + 1) = rst.fields(Liste2.Column(0, i))
      If Liste2.Column(0, i) = "Klokkeslaet" Or Liste2.Column(0, i) = "Tidspunkt" Then
        xlsheet.Cells(j, i + 1).Select
        xlapp.Selection.NumberFormat = "hh:mm;@"
      ElseIf rst.fields(Liste2.Column(0, i)).Type = 8 Then
        xlsheet.Cells(j, i + 1).Select
        xlapp.Selection.NumberFormat = "dd/mm/yy"
      End If
          Next
    rst.MoveNext
  Wend

you should be able to export a query to Excel using
docmd.outputto ...

you can also automate Excel

http://www.mvps.org/access/modules/mdl0006.htm

http://www.mvps.org/access/modules/mdl0035.htm

Lav en makro og brug handlingen OverFørRegneark. Udfyld derefter alle handlingsargumenter.

Når du er sikker på den fungerer efter hensigten, kan du i databasevinduet markere makroen og i Fumktioner > Makro funktioner konvertere makroen til VBA. Denne bliver nu indsat i et modul hvorfra du kan kopiere koden og evt. indsætte den et andet sted i din db.

Dette er den mest simple måde at gøre det på, omend den ikke er særlig funtionel.

Meget simpelt:

Lav en makro! Vælg en aktion som hedder OutputTo (Hedder den i engelsk udgave af Access). I egenskaberne vælger du for eksempel at at du vil exportere en tabel, og angiver hvilken. Desuden vælger du Excel som Output Format.

I must admit I cant see that a macro ismuch easier than using docmd.outputto ...!

Du har ret terry. Jeg fik bare ikke læst alle besvarelser ordentlig.