Eksport af data til Excel

Yes, by using automation.

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

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

Har en testdb der viser hvordan du kan stytre Excel fra acess. Blot læg din email.

Hej Mugs > send til
lasse.jensen@Novasol.com

Sendt.

Hej mugs (og i andre!~)

må jeg også se dit eksempel?~)

spg.eksperten@gmail.com

Sendt til spg.

Det ser spændende ud!~)

Jeg har lavet noget ligende, jeg vil anbefale at du laver et link fra excel og ind i din access data base.

Hvis du har behov for at dataene forbliver de samme i excel selvom de ændre sig i databasen vil jeg anbefale at du scripter det i excel. Dette kan også bruges til en offline løsning i excel. men du kan også sende mig eksempel database og excel rapport.

jeppe.kristensen (med snabel A) gmail punktum com

Terry > I have worked a bit with your answer 04/07-2008 14:32:54

Sub sCopyRSToNamedRange()
'Copy records to a named range
'on an existing worksheet on a
'workbook
'
Dim objXL As Excel.Application
Dim objWkb As Excel.Workbook
Dim objSht As Excel.Worksheet
Dim db As Database
Dim rs As Recordset
Const conMAX_ROWS = 20000
Const conSHT_NAME = "SomeSheet"
Const conWKB_NAME = "c:\temp\book1.xls"
Const conRANGE = "RangeForRS"

  Set db = CurrentDb
  Set objXL = New Excel.Application
  Set rs = db.OpenRecordset("Customers", dbOpenSnapshot)
  With objXL
    .Visible = True
    Set objWkb = .Workbooks.Open(conWKB_NAME)
    On Error Resume Next
    Set objSht = objWkb.Worksheets(conSHT_NAME)
    If Not Err.Number = 0 Then
      Set objSht = objWkb.Worksheets.Add
      objSht.Name = conSHT_NAME
    End If
    Err.Clear
    On Error GoTo 0
    objSht.Range(conRANGE).CopyFromRecordset rs
  End With
  Set objSht = Nothing
  Set objWkb = Nothing
  Set objXL = Nothing
  Set rs = Nothing
  Set db = Nothing
End Sub

How do you get columnheader from the quiry exported as well ?

jensen > Sendte jeg dig ikke en testdb der viser hvordan dy får kolonnenavne i Excel?

Hej Mugs > jeg kom bort fra din løsning ... er generelt arbejdsramt så hele løsningen har ligget brak :-( 

Jag havde faktisk helt glemt spørgsmålet, da jeg spontant fik problemer med min applikation

http://www.eksperten.dk/spm/839725

Så jeg er åben overfor alle løsninger

http://www.eksperten.dk/spm/839725