用电子邮件将电子邮件中的Excel工作表的一部分作为PDF附件用button发送

我在上面的标题中有代码，下面的代码将把电子邮件中的Excel表单的PDF发送到单元格中指定的电子邮件地址。 我的问题是它给PDF文件的名称是文件名后跟标签名称。

我将如何编辑下面的代码，以便为文件提供表单中单元格中指定的名称？

Sub savePDFandEmailPayPlan() Dim strPath As String, strFName As String Dim OutApp As Object, OutMail As Object 'Create PDF of active sheet only strPath = Environ$("temp") & "\" trailing "\" strFName = ActiveWorkbook.Name strFName = Left(strFName, InStrRev(strFName, ".") - 1) & "_" & ActiveSheet.Name & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ strPath & strFName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .to = Range("BH4") .CC = Range("BH6") .BCC = "" .Subject = Range("BH8") .Body = Range("BH10") & vbCr .Attachments.Add strPath & strFName .Display '.Send End With Kill strPath & strFName On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Sub 

Answer 1

strFName = Sheets("mySheet").Range("A1")

调整您所需的表单和名称范围。