Office: VBA Excel-Sheet-Range in pdf-Datei speichern und als Anhang mit outlook versenden

Hallo,
versuche mich unter Office 2013 verzweifelt in VBA mit folgendem Code:

Sub RANGE_als_PDF_Datei_per_Outlook_versenden()
'folgendes Makro konvertiert einen bestimmten Range ins PDF-Format
'und speichert die PDF Datei im aktuellen Verzeichnis(=ActiveWorkbook.Path)
'öffnet Outlook und versendet PDF Datei als Anhang

Sheets("Abrechnung").Range("B3:K51").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & " " & ActiveSheet.Name & " " & ActiveSheet.Range("d9"), _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False


AWS = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & " " & ActiveSheet.Name & " " & ActiveSheet.Range("d9")
InitializeOutlook = True

Set OutApp = CreateObject("Outlook.Application")
Set outmail = OutApp.CreateItem(0)


With outmail
.to = Sheets("Abrechnung").Range("f11").Value
'.to = "br-mv@t-online.de"
.Subject = "Abrechnung Ihrer FeWo " & Date & Time
.attachments.Add AWS
'Hier wird eine normale Text Mail erstellt
'.body = "Das ist ein Test" & vbCrLf & "Bitte ignorieren"
'Hier wird die HTML Mail erstellt
.HTMLBody = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'.Send
'danach wird Datei wieder gelöscht
'Kill AWS
End With
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing

End Sub

Bekomme jedes Mal die Mitteilung, dass die Datei (AWS) nicht gefunden werden kann. Was ist an dem Pfad falsch. Die PDF-Datei wird korrekt erstellt und gespeichert, kann aber offenbar nicht als Anhang beigefügt werden.

Für den Kenner der Materie vermutlich ein simpler Fehler, aber welcher???

 

Hi,

da fehlt m.E. die Dateiendung .PDF - ändere den Code wie folgt:

Code:

   AWS = "ActiveWorkbook.Path" & "\" & ActiveWorkbook.Name & " " & ActiveSheet.Name & " " & ActiveSheet.Range("d9") [COLOR=#ff0000]& ".pdf"[/COLOR]
   Sheets("Abrechnung").Range("B3:K51").ExportAsFixedFormat _
      Type:=xlTypePDF, _
      Filename:=AWS, _
      Quality:=xlQualityStandard, _
      IncludeDocProperties:=False, _
      IgnorePrintAreas:=False, _
      OpenAfterPublish:=False

Bis später,
Karin

 

Hi,
vielen Dank. Hatte ich schon mal irgend wo gelesen, aber vergessen.
Funktioniert jetzt einwandfrei.
LG
Bernhard

 

Hey,

habe deinen Code hier gefunden,
ich bekomme den leider nicht unter Excel 2013 zum laufen :-(

Könntest du mir den fertig zusammen geätzten Code Posten?
ich glaube das ich da irgend wie was Falsch mache :-(
gruß