Note: The other languages of the website are Google-translated. Back to English

Sut i anfon / e-bostio ystod o gelloedd trwy ragolygon gan Excel?

A ydych erioed wedi dioddef gyda phroblem, ar ôl gorffen adroddiad mewn taflen waith, ac mae angen i chi anfon at ystod o gelloedd yn y daflen waith hon sy'n cynnwys rhywfaint o ddata pwysig i'ch derbynnydd penodol. A oes unrhyw ffyrdd cyflym ichi e-bostio'r ystod hon o Excel heb agor Outlook?

Anfonwch ystod o gelloedd fel atodiad o Excel gyda chod VBA

Anfonwch ystod o gelloedd fel corff o Excel gyda chod VBA


swigen dde glas saethAnfonwch ystod o gelloedd fel atodiad o Excel gyda chod VBA

Gall y cod VBA canlynol eich helpu i anfon eich ystod ddethol fel atodiad yn Excel. Gwnewch fel hyn:

1. Agorwch eich llyfr gwaith ac yna daliwch y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: anfon ystod o gelloedd fel atodiad gan Excel

Sub SendRange()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim Ws As Worksheet
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Wb = Application.ActiveWorkbook
Wb.Worksheets.Add
Set Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
    If Wb2.HasVBProject Then
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    Else
        xFile = ".xlsx"
        xFormat = xlOpenXMLWorkbook
    End If
Case Excel8:
    xFile = ".xls"
    xFormat = Excel8
Case xlExcel12:
    xFile = ".xlsb"
    xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
    .To = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "information of kte"
    .Body = "hello, please check and read this document. "
    .Attachments.Add Wb2.FullName
    .Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Ws.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Nodyn: Yn y cod uchod, gallwch newid y wybodaeth ganlynol i'ch angen eich hun.

  • .To = "skyyang @extendoffice.com "
  • .CC = ""
  • .BCC = ""
  • .Subject = "gwybodaeth am kte"
  • .Body = "helo, gwiriwch a darllenwch y ddogfen hon."

3. Yna cliciwch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan i'ch atgoffa i ddewis ystod rydych chi am ei hanfon. Gweler y screenshot:

doc-anfon-ystod1

4. Yna cliciwch OK, a bydd blwch prydlon yn ymddangos, ar ôl i'r bar cynnydd orffen, cliciwch Caniatáu, ac yna mae'r ystod benodol o gelloedd wedi'i hanfon at eich derbynnydd fel atodiad.

doc-anfon-ystod2


swigen dde glas saethAnfonwch ystod o gelloedd fel corff o Excel gyda chod VBA

Os ydych chi am anfon ystod benodol fel rhan o gorff negeseuon gan Excel, gallwch hefyd gymhwyso'r cod VBA canlynol i'w ddatrys.

Kutools ar gyfer Excel, gyda mwy na 120 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

1. Gweithredwch eich taflen waith a dal y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: anfon ystod o gelloedd fel corff o Excel

Sub EmailRange()
'Update 20131209
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
WorkRng.Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
    .Introduction = "Please read this email."
    .Item.To = "skyyang@extendoffice.com"
    .Item.Subject = "information of kte"
    .Item.Send
End With
Application.ScreenUpdating = True
End Sub

Nodyn: Yn y cod uchod, gallwch newid y wybodaeth ganlynol i'ch angen.

  • .Introduction = "Darllenwch yr e-bost hwn os gwelwch yn dda."
  • .Item.To = "skyyang @extendoffice.com "
  • .Item.Subject = "gwybodaeth kte"

3. Yna cliciwch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan i'ch atgoffa i ddewis ystod rydych chi am ei hanfon.

doc-anfon-ystod1

4. Yna cliciwch OK, a bydd blwch prydlon yn ymddangos, ar ôl i'r bar cynnydd orffen, cliciwch Caniatáu, ac yna mae'r ystod benodol o gelloedd wedi'u hanfon at eich derbynnydd fel corff neges.

doc-anfon-ystod2

Nodiadau:

1. Dim ond pan fydd yr Outlook fel eich rhaglen bost y mae'r codau hyn ar gael.

2. Ar ôl anfon y daflen waith gyfredol, gallwch fynd i'ch Outlook i sicrhau a yw'r e-bost wedi'i anfon yn llwyddiannus.


Erthyglau cysylltiedig:

Sut i anfon taflen waith yn unig trwy Outlook o Excel?

Sut i anfon llyfr gwaith cyfredol trwy Outlook o Excel?


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Office / Excel 2007-2021 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (26)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, dwi'n defnyddio'r marco sy'n dewis y celloedd sydd eu hangen i e-bostio. Rwyf wedi cyfuno hwn gyda macro arall fel fy mod yn ei gael i agor "e-bost newydd" fy mhroblem nawr yw os ydych yn rhoi llawer o wybodaeth mewn un gell yna dim ond iformaiton yr ydych yn edrych arno nid yw'n cymryd yr holl wybodaeth yn y gell honno unrhyw syniadau ?? diolch yn fawr iawn am eich help gyda'r hwyl hon
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo bawb
Mae gen i brosiect i ddewis ystod yn nhaflen 1 i'w hanfon trwy e-bost fesul un i lawer o gyfeiriadau e-bost wedi'u hysgrifennu yn nhaflen 2 yng ngholofn A ac os yw colofn B yn wag gyda phwnc penodol ac ar ôl ei anfon ysgrifennwch ar ddalen 2 anfonodd colofn b
Ac i aros amser 10 eiliad i anfon yr e-bost nesaf fel cyflwr y gweinydd
Unrhyw un yn fy helpu os gwelwch yn dda?   
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, A allwch chi roi gwybod i mi sut i ychwanegu llofnod ac ail linell gyflwyno i'r post hwn ar gyfer yr ail raglen. Diolch ymlaen llaw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
neis a defnyddiol, swydd dda !!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiol iawn. Diolch . Mae gennyf restr o gyfeiriadau e-bost ar yr un ddalen. Pan gliciais i un cyfeiriad e-bost , bydd yr ystod o gelloedd a ddewiswyd yn cael eu hanfon fel atodiad i'r e-bost hwn. Allwch chi fy helpu ar hyn? Llawer o Ddiolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Wedi'i Egluro'n Dda Iawn. Yn lle anfon llyfr gwaith newydd a allwn ni ddim ond copïo a gludo'r ystod a ddewiswyd i gorff e-bost a'i anfon. Nid wyf am anfon yr Ystod a ddewiswyd fel Delwedd. Rwyf am anfon fel golygfa bwrdd yng nghorff yr e-bost. Gawn ni wneud hynny ??
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch, Mae hyn yn ddefnyddiol iawn ond beth os oes angen i mi ychwanegu rhywfaint o ddisgrifiad yng nghorff post cyn ei anfon. Awgrymwch y cod.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Mae popeth yn edrych yn dda ond heb roi'r ystod a ddewiswyd ar y ffin, A allech chi awgrymu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr fy mod wedi dod o hyd i'r ateb hwn cyhyd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwaith ardderchog. Byddai'n well gweld hwn yn cael ei anfon yn awtomatig. Beth ddylwn i ei wneud fel nad yw'n ysgogi gwall cyn ailddechrau anfon?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a allem ni roi cymaint o gyfeiriadau e-bost i'w hanfon?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Carey, gall pob un uwchlaw'r VBAs ychwanegu llawer o gyfeiriadau e-bost (At, BCC, CC) i'w hanfon trwy ddefnyddio ; fel gwahanydd. Er enghraifft, .To = "skyyang@extendoffice.com; prawf1@extendoffice.com; prawf2@extendoffice.com "
Lleihawyd y sylw hwn gan y safonwr ar y wefan
ich möchte das kopierte nicht als Datei in eine E-Mail einfügen, sondern per copy and paste in die E-Mail einfügen. Wie geht das in dem VBA-Cod?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Mae gen i dabl wedi'i sefydlu yr wyf am i staff ei lenwi ac yna botwm gorchymyn a fydd wedyn yn cynhyrchu e-bost yn awtomatig, fodd bynnag rwyf am i'r data o'r tabl fod yn y corff e-bost. A oes cod ar gyfer hynny? 
Diolch yn fawr 
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo bawb
Mae gen i brosiect i ddewis ystod yn nhaflen 1 i'w hanfon trwy e-bost fesul un i lawer o gyfeiriadau e-bost wedi'u hysgrifennu yn nhaflen 2 yng ngholofn A ac os yw colofn B yn wag gyda phwnc penodol ac ar ôl ei anfon ysgrifennwch ar ddalen 2 anfonodd colofn b
Ac i aros amser 10 eiliad i anfon yr e-bost nesaf fel cyflwr y gweinydd
Unrhyw un yn fy helpu os gwelwch yn dda?   
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo bawb
Mae gen i brosiect i ddewis ystod yn nhaflen 1 i'w hanfon trwy e-bost fesul un i lawer o gyfeiriadau e-bost wedi'u hysgrifennu yn nhaflen 2 yng ngholofn A ac os yw colofn B yn wag gyda phwnc penodol ac ar ôl ei anfon ysgrifennwch ar ddalen 2 anfonodd colofn b
Ac i aros amser 10 eiliad i anfon yr e-bost nesaf fel cyflwr y gweinydd
Unrhyw un yn fy helpu os gwelwch yn dda?   
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, hriad, " os yw colofn B yn wag gyda rhyw destun ac ar ôl ei anfon ysgrifennwch ar dudalen 2 colofn b anfonwyd
Ac i aros 10 eiliad i anfon yr e-bost nesaf fel cyflwr y gweinydd" Dydw i ddim yn deall hyn. A fyddech cystal â dweud wrthyf eto am eich gofyniad.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Sunny
yn gyntaf oll , diolch am eich cymorth , gan fod y gweinydd yn gosod amod i beidio ag anfon llawer o e-byst yn yr un eiliad , rwyf am aros 10 eiliad ar ôl anfon yr e-bost cyntaf a'r un canlynol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, hriad, rhowch gynnig ar y cod isod, ar ôl ei redeg, bydd yn popio allan ymgom ar gyfer dewis ystod yr ydych am ei anfon, yna mae'n anfon i gyfeiriadau yn nhaflen 2 colofn A a gyda'r pynciau yng ngholofn B. Bob 10 eiliad , anfon i un cyfeiriad. Gallwch newid y cod "Darllenwch yr e-bost hwn" yn ôl yr angen.
Amrediad AnfonE-bost()

'Diweddariad GanExtendoffice20220414

Dim WorkRng Fel Ystod

Dim xSU, EV Fel Boolean

Dim xWsh Fel Taflen Waith

Dim xCyfrif Fel Cyfanrif

Dim xI Fel Cyfanrif

Ar Ail-ddechrau Gwall Nesaf

xTitleId = "KutoolsforExcel"

' dewiswch ystod a arferai anfon fel corff

Gosod WorkRng = Application.InputBox("Range", xTitleId, Application.Selection.Address, , , , , 8)

Os Dim Yw WorkRng Yna Gadael Is
WorkRng.Activate
WorkRng.Dewis

Gosod xWsh = ActiveWorkbook.Worksheets("Taflen2") 'y ddalen sy'n cynnwys cyfeiriadau a phynciau

xCount = xWsh.UsedRange.Rows.Count

xSU = Application.ScreenUpdating

EV = ActiveWorkbook.EnvelopeVisible

Application.ScreenUpdating = Anghywir


Am xI = 1 I xCount

Os (xWSh.Range("A" & xI)="") Yna
Allanfa Ar Gyfer
Gorffennwch Os
ActiveWorkbook.EnvelopeVisible = Gwir
Gyda ActiveSheet.MailEnvelope
.Introduction = "Darllenwch yr e-bost hwn os gwelwch yn dda."

.Item.To = xWSh.Range("A" & xI)

.Item.Subject = xWSh.Range("B" & xI)

.Item.Anfon
Diwedd Gyda
Os (xI = xCount) Yna

Allanfa Ar Gyfer

Gorffennwch Os

Cais.Arhoswch Nawr + Gwerth Amser ("0:00:10")

Digwyddiadau


Application.ScreenUpdating = xSU

ActiveWorkbook.EnvelopeVisible = EV

Is-End

Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Sunny
Llawer iawn Diolch am eich ymdrech.... Diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A allwn ni amrediadau sefydlog? yn macro ei hunan
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,

Mam plik z 6 arkuszami. Każdy z arkuszy 2-6 musi zostać wysłany do innej grupy odbiorcow jako załącznik excela. Czy da się i podpiąć pod 5 przycisków?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, pawerl
I ddatrys eich problem, efallai y bydd yr erthygl isod yn eich helpu, gwiriwch ef:

https://www.extendoffice.com/documents/excel/7178-send-each-sheet-to-different-email.html

Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am hyn! Byddaf yn ei brofi yn fuan gan y byddaf yn ôl o wyliau. Cael un cwestiwn arall. Cael problem gyda rhedeg codau vba drwy ddefnyddio botwm Activex (dim gweithredu o gwbl) hyd yn oed os cod yn gweithio'n berffaith ar y modd golygu neu pan gaiff ei redeg gan ctrl + botwm a ddewiswyd o'r bysellfwrdd. Im 'jyst yn dechrau taith vba a heb
syniad beth rydw i'n ei wneud yn anghywir :/
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, pawerl
Does ond angen i chi gopïo a gludo'r cod i mewn i'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, ac yna cliciwch ar y Run botwm o'r bar offer fel y sgrin isod a ddangosir: (Nodyn: yn y cod, S1 a yw'r gell yn cynnwys y cyfeiriad e-bost yr ydych am anfon yr e-bost ato. Newidiwch nhw i'ch angen.)

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-emails.png

Trio eto os gwelwch yn dda!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

Rwyf wedi gwneud popeth fel uchod a'r canlyniad yw: mae popeth yn gweithio'n berffaith ar wahân i'r botwm :) Ddim yn poeni am hyn ar hyn o bryd :)

Diolch enfawr!!! pwnc ar gau :)
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL