Avatar billede karbylon Nybegynder
25. februar 2014 - 15:48 Der er 14 kommentarer

Excel- send som vedhæftet fil

på et ark i Excel nederst skal der være en links som sender hele regneark til en e-mail.
Hvordan gør jeg det ?
25. februar 2014 - 15:51 #1
Arket eller projektmappen?
Avatar billede karbylon Nybegynder
25. februar 2014 - 16:05 #2
Det er Arket
Avatar billede karbylon Nybegynder
25. februar 2014 - 16:06 #3
det er på arket :-)
Avatar billede store-morten Ekspert
25. februar 2014 - 16:09 #4
Excel version ?
25. februar 2014 - 16:10 #5
Linket skal være på et ark, det er forstået; men hvad er det, der skal sendes? - arket eller projektmappen?
Avatar billede karbylon Nybegynder
25. februar 2014 - 16:13 #6
2010
Avatar billede karbylon Nybegynder
25. februar 2014 - 16:14 #7
Det er data, som er tastet ind på arket
Avatar billede store-morten Ekspert
25. februar 2014 - 16:16 #8
Måske:

http://office.microsoft.com/da-dk/excel-help/tilpasse-vaerktojslinjen-hurtig-adgang-HA001234105.aspx

Tilføj knappen: E-mail

Tryk på knappen og hele regnearket sendes som ved hæftet fil.
Avatar billede store-morten Ekspert
25. februar 2014 - 16:19 #9
Alternativ:
Filer --> Gem og send --> Send via E-mail --> Send som vedhæftet fil.
Avatar billede karbylon Nybegynder
25. februar 2014 - 16:23 #10
Jeg har det her regneark som medlemmer i en forening hente fra nettet. Medlemmer skal nu indtaste oplysninger dato tid sted koordinater samt billede. oplysninger skal så sendes til en e-mail.

I foreningen er der medlemmer der ikke syntes det er nemt. Både at indtaste data - gemme regnearket- finde det og sende det som en vedhæftet fil.

Jeg tænkte at hvis det hele kunne lade sig gøre med et links på regnearket Excel 2010 ville det gøre det letter for disse medlemmer
Avatar billede karbylon Nybegynder
25. februar 2014 - 16:29 #11
Nej den går ikke, for på den måde har du ikke mail adressen. den skal indtastes.

Jeg ville at der i en celle står Send som en links. Men når jeg klikke på send er det en tom mail. her ville jeg gerne at arket blev vedhæftet
Avatar billede store-morten Ekspert
25. februar 2014 - 22:55 #12
Fundet på nettet, lægges i et modul:
Sub Mail_ActiveSheet()
'For Tips see: http://www.rondebruin.nl/win/winmail/div/tips.htm
'Working in Excel 2000-2013
    Dim FileExtStr As String
    Dim FileFormatNum As Long
    Dim Sourcewb As Workbook
    Dim Destwb As Workbook
    Dim TempFilePath As String
    Dim TempFileName As String
    Dim I As Long

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    Set Sourcewb = ActiveWorkbook

    'Copy the sheet to a new workbook
    ActiveSheet.Copy
    Set Destwb = ActiveWorkbook

    'Determine the Excel version and file extension/format
    With Destwb
        If Val(Application.Version) < 12 Then
            'You use Excel 97-2003
            FileExtStr = ".xls": FileFormatNum = -4143
        Else
            'You use Excel 2007-2013
            Select Case Sourcewb.FileFormat
            Case 51: FileExtStr = ".xlsx": FileFormatNum = 51
            Case 52:
                If .HasVBProject Then
                    FileExtStr = ".xlsm": FileFormatNum = 52
                Else
                    FileExtStr = ".xlsx": FileFormatNum = 51
                End If
            Case 56: FileExtStr = ".xls": FileFormatNum = 56
            Case Else: FileExtStr = ".xlsb": FileFormatNum = 50
            End Select
        End If

    End With

    '    'Change all cells in the worksheet to values if you want
    '    With Destwb.Sheets(1).UsedRange
    '        .Cells.Copy
    '        .Cells.PasteSpecial xlPasteValues
    '        .Cells(1).Select
    '    End With
    '    Application.CutCopyMode = False

    'Save the new workbook/Mail it/Delete it
    TempFilePath = Environ$("temp") & "\"
    TempFileName = "Del af " & Sourcewb.Name & " " _
                & Format(Now, "dd-mmm-yy h-mm-ss")

    With Destwb
        .SaveAs TempFilePath & TempFileName & FileExtStr, _
                FileFormat:=FileFormatNum
        On Error Resume Next
        For I = 1 To 3
            .SendMail "modtager@adresse.dk", _
                      "Dette er emne linien" '<--Adresse og Emne ilrettes
            If Err.Number = 0 Then Exit For
        Next I
        On Error GoTo 0
        .Close SaveChanges:=False
    End With

    'Delete the file you have send
    Kill TempFilePath & TempFileName & FileExtStr

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
End Sub
Avatar billede karbylon Nybegynder
02. marts 2014 - 07:31 #13
Jeg siger tak for jeres hjælp
Avatar billede store-morten Ekspert
09. marts 2014 - 20:34 #14
Velbekomme
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester