|
Hallo zusammen.
Ich habe Excel 2019 und einen Makro geschrieben.
dazu muss ich sagen das ich blutiger anfänger bin und das Makro nur durch zufalle warscheinlich so läuft wie ich mir das vorgestellt habe.
mit dem Makro ist auch alles soweit gut es macht das was ich möchte nur noch nicht alles.
ich habe einen Button der mir die Excel liste in einer pdf speichert und direkt per email verschickt.
Aktuell speicher der Makro die pdf aber nur in dem Ordner in dem die Exel datei ist, ich würde aber gerne das sich die Datei in einem Bestimten ordner ablegt.
und zwar soll sich der Makro einen odner erstellen mit dem Aktuellem Jahr und in diesem Ordner ein ordner mit der Aktuellen KW in der die Datei dann gespeichert wird.
das ganze kann sich gerne in dem ordner abspielen in dem die Datei gespeichert ist.
Sub PDF_Speichern_Senden()
Dim pdf As String
pdf = pdf_erstellen
Call permail(pdf)
End Sub
Function pdf_erstellen()
Dim pdf As String
Dim sep As String
sep = Application.PathSeparator
pdf = ThisWorkbook.Path & sep & Range("A1") & " " & Range("A2") & " " & Range("C1") & ".pdf"
On Error Resume Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdf, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
On Error GoTo 0
pdf_erstellen = pdf
End Function
Sub permail(ByVal pdf As String)
Dim objOutlook As Object
Dim objMail As Object
Dim myAttachments
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
Set myAttachments = objMail.Attachments
With objMail
.To = "???@???.de"
.Cc = "???@???.de"
.Subject = "???"
.Body = "Moin Tobi" & vbNewLine _
& vbNewLine _
& "Hier die Tägliche Punktekalkulation" & vbNewLine _
& vbNewLine _
& "Das Messe Team" & vbNewLine _
& vbNewLine _
& "PS. die Signatur kommt später mal "
myAttachments.Add pdf 'Anhang
.Display
End With
End Sub
es wäre cool wenn mir jemand helfen könnte.
|