Send indhold af excelark automatisk i mail

Lidt inspiration: http://www.eksperten.dk/spm/966748

tak. problemet er blot at Pivottabellen først opdateres, når det åbnes?

Selv tak - det kan måske også klares. Er det et andet regneark, der skal afsende filen med pivot - eller?

Det er egentligt underordnet. eneste vigtige er at det opdaterede indehold i arket bliver sendt i mailen. Altså ikke som vedhæftet fil, men som tabel/billede/etc. direkte i mailen.

Har en model, som jeg kan returnere, hvis du sender en mail.
@-adresse under min profil.

Hmm. modtog aldrig denne?

Fik du sendt en mail?

yes,? - jeg sender igen.

hmm.

Har nu følgende, men modtager fejl ved denne:

"xlsSys.Sheets(1).Activate"



Const sti = "C:\Users\2546\Desktop\Send fil\"
Const filNavn = "FilDerSkalSendes.xlsx"
Const arknavn = "sheet1"
Const område = "A1:D20"
Public xlsfil As Object
Public dataOmråde As String

Public xlsSys As Object
Const mailAdresse = "claus@lajlev.dk"
Const emneTekst = "Dagens tal"

Sub test()

    Set xlsSys = ActiveWorkbook
    dataOmråde = område

    Set xlsfil = CreateObject("Excel.Application")
    With xlsfil
        .Visible = True
        .Workbooks.Open sti & filNavn
        .ActiveWorkbook.Sheets(arknavn).Activate
        .Range(område).Copy

        xlsSys.Sheets(1).Activate
        xlsSys.ActiveSheet.Range("A1").Select
        xlsSys.ActiveSheet.Paste
        xlsSys.ActiveSheet.Columns.AutoFit
       
        Application.CutCopyMode = False
       
        .Application.DisplayAlerts = False
        .ActiveWorkbook.Save
        .ActiveWorkbook.Close
        .Application.Quit

        sendMailen mailAdresse, emneTekst, arknavn
       
        Cells.Select
        Selection.ClearContents
        Range("A1").Select
    End With
   
    Set xlsfil = Nothing
    Set xlsSys = Nothing
   
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    ActiveWorkbook.Close
   
    ActiveWorkbook.Application.Quit
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim wBook As Workbook
    Dim LCount As Long
    If Cancel = False Then
        For Each wBook In Workbooks
            If wBook.Name <> Me.Name And UCase(wBook.Name) <> "PERSONAL.XLS" Then
                LCount = LCount + 1
            End If
        Next wBook
        If LCount = 0 Then Application.Quit
    End If
End Sub

Lukker - fandt ingen brugbar løsning.