Excel støtter oss med å sende aktive regnearket som kroppen innhold ved hjelp av Send til e-postmottaker kommandoen. Du kan gjøre følgende:
Hvis du bruker Excel 2007, 2010 eller 2013, må du legge til dette Send til e-postmottaker kommando til Quick Access Toolbar første
1.. Klikk på ikonet for Tilpass Quick Access Toolbar, og velg Flere kommandoer, se skjermbilde:
to. Og i Excel dialogboksen Alternativer, velge kommandoer Ikke på båndet i Velg kommandoer fra rullegardinlisten, og velg deretter Send til e-postmottaker, og klikk Legg til > > knappen for å legge denne kommandoen i siste klikk OK for å lagre innstillingen. Se skjermbilde:
tre. Send til e-postmottaker kommandoen er blitt satt inn i Quick Access Toolbar, se skjermbilde:
4. Deretter klikker du på denne Send til e-postmottaker ikonknappen, og en rask boks spretter ut, i E-post teksten boksen, sjekk Send gjeldende ark som meldingsteksten, og klikk OK. Se skjermbilde:
5. Og en epost redigeringsboks vises over regnearkdataene, kan du legge inn dine mottakere, emne og innføring i den tilhørende tekstboksen. Se skjermbilde:
6. Klikk deretter på Send denne Sheet å sende denne aktive regnearket som meldingsteksten til bestemt person.
Send enkelt regneark som et vedlegg fra Excel med VBA-kode
Hvis du ønsker å sende epost til det aktive regnearket som et vedlegg , følgende VBA-kode kan gjøre en tjeneste for deg.
1. Aktiver regnearket som du vil sende.
To. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
3. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Sende gjeldende regneark som vedlegg fra Excel
Sub SendWorkSheet () 'Oppdater 20131209Dim Xfile Som StringDim xFormat Som LongDim Wb As WorkbookDim WB2 Som WorkbookDim Filbane Som StringDim filnavn som StringDim OutlookApp Som ObjectDim OutlookMail Som ObjectOn Error Resume NextApplication.ScreenUpdating = FalseSet Wb = Application.ActiveWorkbookActiveSheet.CopySet WB2 = Application.ActiveWorkbookSelect sak Wb.FileFormatCase xlOpenXMLWorkbook: Xfile = ".xlsx" xFormat = xlOpenXMLWorkbookCase xlOpenXMLWorkbookMacroEnabled: Hvis Wb2.HasVBProject Da Xfile = ".xlsm" xFormat = xlOpenXMLWorkbookMacroEnabled Else Xfile = ".xlsx" xFormat = xlOpenXMLWorkbook End IfCase Excel8: Xfile = "XLS" xFormat = Excel8Case xlExcel12: Xfile = "XLSB" xFormat = xlExcel12End SelectFilePath = Environ $ ( "temp ") & "\\" Filename = Wb.Name & Format (Nå, "dd-mmm-yy h-mm-ss") Set OutlookApp = Create ( "Outlook.Application") Set OutlookMail = OutlookApp.CreateItem (0) Wb2.SaveAs Filbane & Filename & Xfile, filformatet: = xFormatWith OutlookMail .For = "[email protected]~~number=plural" cc = "" .BCC = "" .Subject = "KTE funksjoner" .Body = "Vennligst sjekk og lese dette dokumentet." .Attachments.Add Wb2.FullName .SendEnd WithWb2.CloseKill Filbane & Filename & xFileSet OutlookMail = NothingSet OutlookApp = NothingApplication.ScreenUpdating = TrueEnd SubNote. I koden ovenfor, kan du endre følgende informasjon til ditt eget behov
.For = "[email protected]"
cc = ""
.BCC = ""
.Subject = "KTE funksjoner"
.Body = "Vennligst sjekk og lese dette dokumentet. "
4. Klikk deretter F5 for å kjøre denne koden, og en rask boks vil komme ut, klikker du på Tillat når fremdriftslinjen er ferdig, og deretter gjeldende regneark har blitt sendt til mottakeren som et vedlegg.
Send enkelt regneark som PDF-fil fra Excel med VBA-kode
Noen ganger må du sende regnearket rapporten til andre, men ikke vil at andre skal endre den. I dette tilfellet, kan du sende regnearket som en PDF-fil fra Excel.
En. Aktiver regnearket som du vil sende.
To. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
3. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Sende gjeldende regneark som PDF-fil fra Excel
Sub SendWorkSheetToPDF () 'Oppdater 20131209Dim Wb As WorkbookDim filnavn som StringDim OutlookApp Som ObjectDim OutlookMail Som ObjectOn Error Resume NextSet Wb = Application.ActiveWorkbookFileName = Wb.FullNamexIndex = VBA.InStrRev (Filename ".") Hvis xIndex > 1 Da Filename = VBA.Left (Filename, xIndex - 1) Filename = Filnavn & "_" + ActiveSheet.Name & ".pdf" ActiveSheet.ExportAsFixedFormat Type: = xlTypePDF, Filename: = FileNameSet OutlookApp = Create ( "Outlook.Application") Set OutlookMail = OutlookApp.CreateItem (0) Med OutlookMail .For = "[email protected]" cc = "" .BCC = "" .Subject = "KTE funksjoner" .Body = "Vennligst sjekk og lese dette dokumentet." .Attachments.Add Filename .SendEnd WithKill FileNameSet OutlookMail = NothingSet OutlookApp = NothingEnd SubNote. I koden ovenfor, kan du endre følgende informasjon til ditt behov
.For = "[email protected] "
cc =" "
.BCC =" "
.Subject =" "
.Body =" KTE funksjoner Vennligst sjekk og lese dette dokumentet. "
4. Deretter trykker du F5-tasten, og en rask boks vil komme ut, klikker du Tillat etter fremdriftslinjen finising, så det aktive regnearket har blitt sendt til den spesifikke personen som PDF-fil
. Merk:
1. Disse metodene er bare tilgjengelig når du bruker Outlook som e-postprogram.
To. Etter sending gjeldende regneark, kan du gå til din Outlook å sørge for at e-posten er sendt.
Noen ganger må du sende regnearket rapporten til andre, men ikke vil at andre skal endre den. I dette tilfellet, kan du sende regnearket som en PDF-fil fra Excel.
En. Aktiver regnearket som du vil sende.
To. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
3. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Sende gjeldende regneark som PDF-fil fra Excel
Sub SendWorkSheetToPDF () 'Oppdater 20131209Dim Wb As WorkbookDim filnavn som StringDim OutlookApp Som ObjectDim OutlookMail Som ObjectOn Error Resume NextSet Wb = Application.ActiveWorkbookFileName = Wb.FullNamexIndex = VBA.InStrRev (Filename ".") Hvis xIndex > 1 Da Filename = VBA.Left (Filename, xIndex - 1) Filename = Filnavn & "_" + ActiveSheet.Name & ".pdf" ActiveSheet.ExportAsFixedFormat Type: = xlTypePDF, Filename: = FileNameSet OutlookApp = Create ( "Outlook.Application") Set OutlookMail = OutlookApp.CreateItem (0) Med OutlookMail .For = "[email protected]" cc = "" .BCC = "" .Subject = "KTE funksjoner" .Body = "Vennligst sjekk og lese dette dokumentet." .Attachments.Add Filename .SendEnd WithKill FileNameSet OutlookMail = NothingSet OutlookApp = NothingEnd SubNote. I koden ovenfor, kan du endre følgende informasjon til ditt behov
.For = "[email protected] "
cc =" "
.BCC =" "
.Subject =" "
.Body =" KTE funksjoner Vennligst sjekk og lese dette dokumentet. "
4. Deretter trykker du F5-tasten, og en rask boks vil komme ut, klikker du Tillat etter fremdriftslinjen finising, så det aktive regnearket har blitt sendt til den spesifikke personen som PDF-fil
. Merk:
1. Disse metodene er bare tilgjengelig når du bruker Outlook som e-postprogram.
To. Etter sending gjeldende regneark, kan du gå til din Outlook å sørge for at e-posten er sendt.