| Forum Home | ||||
| Press F1 | ||||
| Thread ID: 56272 | 2005-04-01 01:32:00 | Excel 97 Picking Single Sheet | Happy Harry (321) | Press F1 |
| Post ID | Timestamp | Content | User | ||
| 340111 | 2005-04-01 01:32:00 | Hi All I have a work book(STUFF.XLS) that has 13 sheets in it. I want to be able to pick a sheet (month) and send it away(e-mail). I have discovered that when I send it, I have been sending the complete work book. I know I can copy and paste the data from an individual sheet to a new spreadsheet, but think there always has to be an easier/faster/lazier way. Any ideas Cheers HH |
Happy Harry (321) | ||
| 340112 | 2005-04-01 04:40:00 | This is from the HELP in Excel. Send a worksheet as the body of an e-mail message directly from Excel System requirements for mailing workbooks and worksheets In Excel, click E-mail on the Standard toolbar. Click Send single sheet as message body. In the To and Cc boxes, enter recipient names, separated by semicolons. To select recipient names from a list, click the icon next to To or Cc. The name of the worksheet appears in the Subject box by default, but you can type another name. Set the options you want for this message . Click Send this Sheet . |
pctek (84) | ||
| 340113 | 2005-04-01 04:50:00 | You can do this via macro code which you run from the active monthly sheet in stuff.xls. Save the code into a module in the VB editor of stuff.xls For simplicity of operation, the following code needs a file called email.xls in c:/temp which has only one worksheet which is blank. An outlook dialogue box opens with email.xls attached which contains the monthly sheet instead of the blank one as an attachment and requires the mail recipients name to be selected. The email.xls file is closed and retains the blank worksheet. Sub send_monthly_sheet() Workbooks.Open Filename:="c:\temp\email.xls", ReadOnly:=True Workbooks("stuff.XLS").Activate ActiveSheet.Cells.Copy Workbooks("email.xls").Activate Range("a1").PasteSpecial xlPasteAll Application.CutCopyMode = False Application.DisplayAlerts = False Application.Dialogs(xlDialogSendMail).Show Application.DisplayAlerts = True Workbooks("email.xls").Close savechanges:=False End Sub HTH |
rad_s4 (7401) | ||
| 340114 | 2005-04-03 06:04:00 | Thanks Guys This gives me a bit more information to play with Will have a go soon Cheers HH |
Happy Harry (321) | ||
| 1 | |||||