Export til excel, men ikke i en lang række

yes, using automation (VBA code)
http://www.mvps.org/access/modules/mdl0006.htm

Had a good trip Jan?

Thanks, yes it was not to bad, but 6 weeks instead of 4 weeks :-(

Now i export my data as you can see. But would like to export it as a readable "skema" in excel. And at the same time it should be attached as a filen when I click on my buttom

Best regards

Jan

    Dim stDocName As String

    stDocName = "Purchase Order"
    DoCmd.SendObject acReport, stDocName, acFormatRTF, "purchase@herning-shipping.dk", , , ShipName() + ", Purchase Order, " + Me.PurchaseOrderNumber, "ORDER FOR GOODS " + " " + Me.PurchaseOrderNumber

   


Err_E_mail_Click:
    MsgBox Err.Description
    Resume Exit_E_mail_Click

The way I see it Jan is you have a couple of options.
One, you make a new table with one field (text). Then for every field in the row you have selected you insert a record into the new table. This will change this

f1, f2, f3, f4 ...

to

f1
f2
f3
f4
.
.
.


Then you need to make a routine (function) which first deletes the table, then inserts the row and then sends the table to a file (DoCmd.OutputTo).

Then instead of using Docmd.sendobject you will need to automate Outlook so you can attach the file you just created


The second option.
Using automation as per the link I gave. With automation (EXcel) you can write data to ANY field you want and then save the file. Then when you have done this you use Outlook automation to send the file.

Hi Terry dit forste foreslag lyder til at være bedst, gider du pensle det lidt ud, jeg er stadig begynder på Access området.
Skal jeg lave en crosstab query eller noget i den stil?

Jan

Jan -> Jeg har et eksempel liggende med eksport fra Access til Excel. Det er i samme stil som terry's link. Blot læg din e-mail.

'mugs' Her er min mail jan@schoesler.com
p.f.t

Sendt.

'mugs' dit eksempel virker ikke på min computer. Excel åbner men felterne er tomme?

Jeg ved ikke hvad der kan være galt. Det fungerer perfekt her. Har du ændret på filerne?

Har lavet stien om til c:\mappe1.xls
prøver lige på en anden pc

'mugs' Eksemplet virkede på min laptop, men ikke på min Desktop. sååå jeg skal nok igang med den store værktøjskasse. Vil kigge på fremsendte og vende tilbage

hjælp!
Min "order" som ekporteres til en excel fil, i en laaaang række ønskes exporteret til et excel ark, så det kan læsses i den vehæftet fil.
'mugs' og 'terry' er inde på noget af det rigtige, men jeg kan ikke gennemskue det :-)
1.Dataene skal eksporteres til excel og kunne læsses fra feks A1.....K1
2.Der kan evt. oprettes en temp fil på c:/ som bliver vedhæftet i samme kode
3."orderen" har ikke altid same længe, da den er afhændig at hvormange varer der bestilles

Hilsen Jan

3."orderen" har ikke altid same længe, da den er afhændig at hvormange varer der bestilles:

I stedet for en tabel, kan du blot eksportere en forespørgsel der begrænser posterne afhængig af bestilte varer.

Her bestemmer du overskrifter i regnearket:

wkb.Worksheets("Ark1").Cells(1, 1).Value = "Felt 2"
wkb.Worksheets("Ark1").Cells(1, 2).Value = "Felt 1"

Her bestemmer du hvor data skal indsættes:

wkb.Worksheets("Ark1").Cells(i, 1).Value = Str$(Rst.Fields![Felt2])
wkb.Worksheets("Ark1").Cells(i, 2).Value = Str$(Rst.Fields![Felt1])

Morning Jan
What does Mugs' example give you?
Have you looked at the link http://www.mvps.org/access/modules/mdl0006.htm thsi should show you how to write to an excel ark then its just a case of attaching the file to a mail.

I'm off out for a while, will take a look later.

'terry' har sendt filen jeg fik af 'mugs' til dig

Jan, have you received what IO sent?

'tery' Yes thank you, but something wrong with my Access. I can't se what actuel happening. How should it work. I can see you are writing to a table and then generate an excel file, but nothing is happening on my computer.?