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

締切済

質問者：rikuito
質問日時：2021/04/17 21:22
回答数：1件

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

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

条件としては

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

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

参考程度に

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