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
Anfonwch 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 = ""
.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.
- .i = ""
- .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:
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.
Anfonwch 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 = ""
.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 = ""
- .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.
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.
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?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!