Ordnername aus Name entfernen
04.10.2015 14:36:59
Thomas
ich habe ein super Makro gefunden.
Mit dem kann man das aktuelle Tabellenblatt als Mail versenden.
Es hat nur noch ein schönheitsfehler der ordnername steht mit im Dateiname.
Kann jemand das Makro so ändern das nur der Blattname benutzt wird?
pdfName2 = ActiveSheet.Name
Filename:=pdfName
funktioniert leider nicht es kommt die Meldung " wurde nicht gespeichert.
kann sich dies mal jemand vornehmen?
( sollte es nicht gehen nehme ich auch gern ein link für ein anderes Makro)
habt schon vielen dank
liebe grüsse thomas
Sub AlsPDFSpeichern()
Dim pdfName As String
Dim pdfOpenAfterPublish As Boolean
Dim olApp As Object
Rem Rückfragen, ob Datei nach dem Erstellen geöffnet werden soll
If MsgBox("Soll die PDF-Datei nach dem Erstellen angezeigt werden?", vbYesNo, "PDF anzeigen?") = _
vbYes Then pdfOpenAfterPublish = True
Rem Pfad und Name der PDF-Datei
pdfName = ThisWorkbook.Path & ActiveSheet.Name & ".pdf"
Rem PDF-Datei erstellen. Funktioniert nur in Excel 2007 oder höher, nicht in Excel 2003 oder ä _
lter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=IIf(pdfOpenAfterPublish, True, False)
Rem Email erstellen
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.TO = Range("AO2").Value
.CC = Range("Z2").Value
.Subject = "So gehts" 'Betreffzeile
.htmlBody = "Hallo"
.Attachments.Add pdfName
.Display
End With
Rem Boolean-Variable "pdfOpenAfterPublish" zurücksetzen
pdfOpenAfterPublish = False
End Sub