Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Emailing Worksheet with VBA Code
I'm having a tough time figuring out how to email a single worksheet that
used the PriorSheet Function. I've tried Ron's email and tips on a single sheet, but when I email the sheets with the priorsheet function, I get all errors in the cells. The email works just fine, just need to get the real data pasted into the email copy. I really need to fix this before tomorrow morning. Thanks for any help! Here's the code I'm using with Ron's in there notated: Sub Mail_ActiveSheet() Dim wb As Workbook Dim strdate As String Dim FileNameEmail As String Dim Location As String Dim LocationNum As String Dim ForDate As Date Dim MyArr As Variant MyArr = Sheets("Setup").Range("Email") strdate = Format(Now, "mm-dd-yy") Application.ScreenUpdating = False Location = ActiveSheet.Range("B3") LocationNum = ActiveSheet.Range("B4") ForDate = ActiveSheet.Range("I4") FileNameEmail = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) Set wb = ActiveWorkbook With wb 'Ron's Code Starts Here ActiveSheet.Copy Cells.Copy Cells.PasteSpecial xlPasteValues Cells(1).Select Worksheets(1).Select Application.CutCopyMode = False 'Ron's Code Stops Here .SaveAs "Daily " & FileNameEmail & " saved on " & strdate & ".xls" .SendMail MyArr, "Daily DMR from " & Location & "-" & LocationNum & " for " & ForDate .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With Application.ScreenUpdating = True End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Emailing a worksheet | Excel Discussion (Misc queries) | |||
Need help with Emailing Code Please | New Users to Excel | |||
Emailing worksheet | Excel Discussion (Misc queries) | |||
Code problem emailing range as html in Outlook body | Excel Programming | |||
Emailing Sheets Code Edit | Excel Programming |