マクロ・VBA 教えてください エクセルをPDFにしてメールに添付するコードを教えてください 条件と

マクロ・VBA 教えてください

エクセルをPDFにしてメールに添付するコードを教えてください

条件としては

1。ファイル保存されている
2。作業しているシートのみPDF化
3。PDFファイル名はエクセルと同じ

よろしくお願い申し上げます。

No.1 回答者： Qchan1962 回答日時： 2021/04/17 23:36

こんばんは、

１は内を指しているのか分かりませんが、
＞エクセルをPDFにしてメールに添付するコードを教えてください
サンプルです。
Option Explicit
Sub aa()
Dim folderPath As String, fileName As String, filePath As String
folderPath = CreateObject("WScript.Shell").SpecialFolders("desktop")
fileName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & ".pdf"
filePath = folderPath & "\" & fileName
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=filePath
Call Attachment_PDF(filePath)
Kill filePath
End Sub
Sub Attachment_PDF(attachmentPath As String)
Dim objOutlook As Object, objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
Call objMail.Attachments.Add(attachmentPath)
objMail.Display
End Sub