Merge Cells/Rows/Columns without losing Data Split Cells Content Combine Duplicate Rows/Columns.Super Formula Bar (easily edit multiple lines of text and formula) Reading Layout (easily read and edit large numbers of cells) Paste to Filtered Range.Reuse: Quickly insert complex formulas, charts and anything that you have used before Encrypt Cells with password Create Mailing List and send emails.The Best Office Productivity Tools Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80% In the Browse dialog box, please select a folder to save this PDF file, and then click the OK button. MsgBox "The active worksheet cannot be blank"ģ. Set xOutlookObj = CreateObject("Outlook.Application") XSht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xFolder, Quality:=xlQualityStandard & vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Unable to Delete File" Please make sure the file is not open or write protected." _
& vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Exiting Macro" MsgBox "if you don't overwrite the existing PDF, I can't continue." _ XYesorNo = MsgBox(xFolder & " already exists." & vbCrLf & vbCrLf & "Do you want to overwrite it?", _
XFolder = xFolder + "\" + xSht.Name + ".pdf" MsgBox "You must specify a folder to save the PDF into." & vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Must Specify Destination Folder" Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker) VBA code: Save a worksheet as PDF file and email it as an attachment Sub Saveaspdfandsend() Then copy and paste the below VBA code into the Code window. In the Microsoft Visual Basic for Applications window, click Insert > Module. Open the worksheet you will save as PDF and send, then press the Alt + F11 keys simultaneously to open the Microsoft Visual Basic for Applications window.Ģ. You can run the below VBA code to automatically save active worksheet as a PDF file, and then email it as an attachment through Outlook. Amazing! Using Efficient Tabs in Excel Like Chrome, Firefox and Safari! Save 50% of your time, and reduce thousands of mouse clicks for you every day!
0 kommentar(er)
