The Excel? Følgende VBA-kode kan hjelpe deg til å sende din valgte området som vedlegg i Excel. Vennligst gjør som dette:
1. Åpne arbeidsboken og deretter holde nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Send celle som vedlegg fra Excel
Sub SendRange () 'Update 20131209Dim Xfile Som StringDim xFormat Som LongDim Wb As WorkbookDim WB2 Som WorkbookDim Ws As WorksheetDim Filbane Som StringDim filnavn som StringDim OutlookApp Som ObjectDim OutlookMail Som ObjectDim WorkRng Som RangexTitleId = "KutoolsforExcel" Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8) Application.ScreenUpdating = FalseApplication.DisplayAlerts = FalseSet Wb = Application.ActiveWorkbookWb.Worksheets.AddSet Ws = Application.ActiveSheetWorkRng.Copy Ws.Cells (1, 1) Ws.CopySet WB2 = Application.ActiveWorkbookSelect sak Wb.FileFormatCase xlOpenXMLWorkbook: Xfile = ".xlsx" xFormat = xlOpenXMLWorkbookCase xlOpenXMLWorkbookMacroEnabled: Hvis Wb2.HasVBProject Så 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-åå h-mm-ss") Set OutlookApp = Create ("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem (0) Wb2.SaveAs Filbane & Filename & Xfile, filformatet: = xFormatWith OutlookMail .For = "[email protected]" cc = "" .BCC = "" .Subject = "informasjon av KTE" .Body = "hallo, kan du sjekke og lese dette dokumentet.". Attachments.Add Wb2.FullName .SendEnd WithWb2.CloseKill Filbane & Filename & xFileSet OutlookMail = NothingSet OutlookApp = NothingWs.DeleteApplication.DisplayAlerts = TrueApplication.ScreenUpdating = TrueEnd SubNote. I koden ovenfor, kan du endre følgende informasjon til ditt eget behov

.For = "skyyang @ extendoffice.com "

cc =" "

.BCC =" "

.Subject =" informasjon av KTE "

.Body =" Hei, kan du sjekke og lese dette dokumentet. "
tre. Klikk deretter F5 for å kjøre denne koden, og en rask boks vil komme ut for å minne deg på å velge et område som du vil sende. Se skjermbilde:
4. Klikk deretter på OK, og en rask boks vises, etter fremdriftslinjen etterbehandling, klikker Tillat, og deretter den spesifikke celle har blitt sendt til mottakeren som et vedlegg.

Send celle som kroppen fra Excel med VBA kode
Hvis du ønsker å sende et spesifikt område som en del av meldingsteksten fra Excel, kan du også bruke følgende VBA-kode for å løse det.
1. Aktiver regnearket og hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Send celle som kroppen fra Excel
Sub EmailRange () 'Update 20131209Dim WorkRng Som RangeOn Error Resume NextxTitleId = "KutoolsforExcel" Set WorkRng = Application .SelectionSet WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8) Application.ScreenUpdating = FalseWorkRng.SelectActiveWorkbook.EnvelopeVisible = TrueWith ActiveSheet.MailEnvelope .Introduction = "Vennligst les denne e-posten." .Item.To = "[email protected]" .Item.Subject = "informasjon av KTE" .Item.SendEnd WithApplication.ScreenUpdating = TrueEnd SubNote. I koden ovenfor, kan du endre følgende informasjon til ditt behov


.Introduction = "Vennligst les denne e-posten."

.Item.To = "[email protected]"

.Item.Subject = "informasjon av KTE "
tre. Klikk deretter F5 for å kjøre denne koden, og en rask boks vil komme ut for å minne deg på å velge et område som du vil sende.
4. Klikk deretter på OK, og en rask boks vises, etter fremdriftslinjen etterbehandling, klikker Tillat, og deretter den spesifikke celle har blitt sendt til mottakeren som meldingsteksten
. Merknader:
1. Disse kodene er bare tilgjengelig når Outlook som e-postprogram.
To. Etter sending gjeldende regneark, kan du gå til din Outlook for å være sikker på om e-posten er sendt. Anmeldelser

Previous:Hvordan oppsummere verdier basert på kriterier i en annen kolonne i Excel?

Next Page:Hvordan du raskt sette inn delsummer i Excel?