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

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

Os ydych chi am e-bostio taflen waith sengl allan o lyfr gwaith yn Excel trwy Outlook, gallwch anfon y daflen waith fel atodiad, fel cynnwys y corff neu fel ffeil PDF. Ond a oes unrhyw ffyrdd cyflymach ichi ddelio â'r broblem hon yn Excel?

Anfonwch daflen waith sengl fel corff o Excel gydag Anfon at orchymyn Derbynnydd Post

Anfonwch daflen waith sengl fel atodiad gan Excel gyda chod VBA

Anfonwch daflen waith sengl fel ffeil PDF o Excel gyda chod VBA


swigen dde glas saeth Anfonwch daflen waith sengl fel corff o Excel gydag Anfon at orchymyn Derbynnydd Post

Mae Excel yn ein cefnogi i e-bostio'r daflen waith weithredol fel cynnwys y corff trwy ddefnyddio'r gorchymyn Anfon at Derbynnydd Post. Gallwch wneud fel a ganlyn:

Os ydych chi'n defnyddio Excel 2007, 2010 neu 2013, mae angen ichi ychwanegu hyn Anfonwch at Derbynnydd Post gorchymyn i'r Bar Offer Mynediad Cyflym gyntaf.

1. Cliciwch eicon y Addasu Bar Offer Mynediad Cyflym, a dewis Mwy o Orchmynion, gweler y screenshot:

doc-e-bost-sheet1

2. Ac yn y Dewisiadau Excel blwch deialog, dewiswch Gorchmynion Ddim yn y Rhuban yn y Dewiswch Orchmynion o gwymplen, yna dewiswch y Anfonwch at Derbynnydd Post opsiwn, a chlicio Ychwanegu >> botwm i ychwanegu'r gorchymyn hwn, o'r diwedd cliciwch OK i achub y gosodiad hwn. Gweler y screenshot:

doc-e-bost-sheet2

3. Mae Anfonwch at Derbynnydd Post mae gorchymyn wedi'i fewnosod yn y Bar Offer Mynediad Cyflym, gweler y screenshot:

doc-e-bost-sheet3

4. Yna cliciwch hwn Anfonwch at Derbynnydd Post botwm eicon, a blwch prydlon yn popio allan, yn y E-bost blwch prydlon, gwirio Anfonwch y ddalen gyfredol fel y corff negeseuon, a chliciwch OK. Gweler y screenshot:

doc-e-bost-sheet4

5. Ac mae blwch golygu e-bost yn cael ei arddangos uwchben data'r daflen waith, gallwch nodi'ch derbynwyr, eu pwnc a'u cyflwyno yn y blwch testun cyfatebol. Gweler y screenshot:

doc-e-bost-sheet5

6. Yna cliciwch Anfonwch y Shee hwnt anfon y daflen waith weithredol hon fel corff negeseuon at eich person penodol.


swigen dde glas saeth Anfonwch daflen waith sengl fel atodiad gan Excel gyda chod VBA

Os hoffech anfon e-bost at y daflen waith weithredol fel atodiad, gall y cod VBA canlynol ffafrio chi.

1. Gweithredwch eich taflen waith rydych chi am ei hanfon.

2. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

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

Cod VBA: anfonwch y daflen waith gyfredol fel atodiad gan Excel

Sub SendWorkSheet()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.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 = "kte features"
    .Body = "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
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 = "nodweddion kte"
  • .Body = "Gwiriwch a darllenwch y ddogfen hon."

4. Yna cliciwch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan, cliciwch Caniatáu pan fydd y bar cynnydd wedi'i orffen, ac yna mae'r daflen waith gyfredol wedi'i hanfon at eich derbynnydd fel atodiad.

doc-e-bost-sheet6


swigen dde glas saeth Anfonwch daflen waith sengl fel ffeil PDF o Excel gyda chod VBA

Weithiau, mae angen i chi anfon eich adroddiad taflen waith at eraill ond ddim eisiau i eraill ei addasu. Yn yr achos hwn, gallwch anfon y daflen waith fel ffeil PDF o Excel.

1. Gweithredwch eich taflen waith rydych chi am ei hanfon.

2. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

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

Cod VBA: anfonwch y daflen waith gyfredol fel ffeil PDF o Excel

Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
    .To = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "kte features"
    .Body = "Please check and read this document."
    .Attachments.Add FileName
    .Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

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

  • .To = "skyyang @extendoffice.com "
  • .CC = ""
  • .BCC = ""
  • .Subject = "nodweddion kte"
  • .Body = "Gwiriwch a darllenwch y ddogfen hon."

4. Yna pwyswch F5 allwedd, a bydd blwch prydlon yn popio allan, cliciwch Caniatáu ar ôl i'r bar cynnydd ddod i ben, yna mae'r daflen waith weithredol wedi'i hanfon at y person penodol fel ffeil PDF.

doc-e-bost-sheet6

Nodiadau:

1. Dim ond pan fyddwch chi'n defnyddio Outlook fel eich rhaglen bost y mae'r dulliau hyn ar gael.

2. Ar ôl anfon y daflen waith gyfredol, gallwch fynd i'ch Camre i sicrhau bod yr e-bost wedi'i anfon yn llwyddiannus.


Creu Rhestr Bostio Yna Anfon E-byst

Mae Kutools ar gyfer Excel's Creu Rhestr Bostio ac anfon Negeseuon e-bost gall cyfleustodau greu rhestr bostio yn gyflym mewn taflen waith, yna anfon yr un pwnc, yr un cynnwys a'r un atodiadau i gyfeiriadau e-bost lluosog.
rhestr bostio doc 1
saeth doc i lawr
rhestr bostio doc 2

Erthyglau cysylltiedig:

Sut i anfon llyfr gwaith cyfredol trwy Outlook o Excel?

Sut i anfon / e-bostio ystod o gelloedd trwy ragolygon gan 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 Swyddfa / Excel 2007-2019 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 (31)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut ydych chi'n ychwanegu derbynwyr lluosog yn yr ail enghraifft gan ddefnyddio cod VBA?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae hyn yn gweithio, ond sut y gallwn ychwanegu yn awtomatig yn y cc yr anfonwr?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan fyddaf yn defnyddio'r cod VBA i'w anfon fel pdf, mae'r e-bost yn anfon yn iawn, fodd bynnag nid oes atodiad. Beth ydw i'n ei wneud o'i le? Diolch, Chanda
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gawsoch chi anser am hyn? Rwyf hefyd yn cael yr un anhawster.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Rwyf am anfon celloedd dethol yn unig trwy fotwm gorchymyn yn Excel i dderbynebau trwy ragolygon.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi atodi anfon at dderbynnydd post, ond nid yw wedi'i actifadu pan fyddaf yn clicio i anfon y excel. Beth ydw i'n ei wneud o'i le?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n ceisio Anfon Amrediadau Enw Lluosog o fewn llyfrau gwaith penodol fel PDF's trwy Outlook. Awtomeiddio agor a chau llyfrau gwaith niferus. Nid wyf yn sicr sut i addasu'r cod a nodir isod sy'n gweithio'n wych gan anfon taflen waith gyda Pob fersiwn newydd ar Gliniadur. Anfonais adroddiadau lluosog bob nos oddi ar fy mhen desg Windows 7 Excel ac Outlook 10 Adobe Acrobat Pro 10 ac yn ceisio ad-drefnu i wneud yr un peth ar liniadur gyda fersiynau wedi'u huwchraddio o windows 8.1 Office 15 ac adobe acrobat Xl. Eich Codau Argymell ar gyfer Anfon Taflenni Gwaith Is SendWorkSheetToPDF() 'Diweddariad 20131209 Dim Wb Fel Llyfr Gwaith Dim FfeilName Fel Llinyn Dim OutlookApp Fel Gwrthrych Dim OutlookMail Fel Gwrthrych Ar Gwall Ail-ddechrau'r Set Nesaf Wb = Application.ActiveWorkbook FileName = Wb.FullName xIndex = VBA.InStrR Enw Ffeil, "). Enw Ffeil Gosod OutlookApp = CreateObject ("Outlook.Application") Gosod OutlookMail = OutlookApp.CreateItem(1) Gyda OutlookMail .To = "jbristow1@gmail.com" .CC = " .BCC = "" .Subject = "Cod Outlook" .Body = "Gwiriwch a darllenwch y ddogfen hon." .Attachments.Add FileName .Send End With Kill FileName Set OutlookMail = Dim Gosod OutlookApp = Dim Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Jim, Mae angen i chi ychwanegu; tu ôl i'r cyfeiriad e-bost ac ychwanegu un arall, gweler yr enghraifft isod : .To = "jbristow1@gmail.com; rhywun@gmail.com; onemoreperson@gmail.com"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwy'n defnyddio'r cod hwn ond mae gennyf unrhyw broblem wrth anfon. Nid yw'n broblem fawr ond dydw i ddim yn ei hoffi :-) Yn gyntaf rwy'n cadw'r ffeil yn awtomatig i leoliad penodol trwy VBA cyn anfon y ffeil trwy'r post. Mae gan y ffeil enw sy'n gorffen yn barod ar .xlsx Wrth e-bostio'r ffeil, mae'r atodiad yn darllen .xlsx.xlsx felly mae'n ychwanegu .xslx i'r ffeil. A oes unrhyw un yn gwybod a allaf i anwybyddu arbed cyn ei anfon fel atodiad ? Rwyf eisoes wedi ei gadw cyn ei anfon... Diolch,
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n defnyddio'r ail enghraifft uchod i anfon un daflen allan o'r llyfr gwaith, ond mae'n anfon y llyfr gwaith cyfan. Copïais yr enghraifft uchod a'r unig ran a newidiais oedd y cyfeiriad e-bost. Nid wyf yn siŵr beth sydd o'i le.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n defnyddio'r cod uchod i anfon dalen sengl fel atodiad excel, y broblem sydd gennyf, yw ei fod yn anfon y llyfr gwaith cyfan, nid dim ond un daflen waith. Dim ond y "I", "Pwnc" a "Corff" y newidiais ar gyfer yr e-bost. Nid wyf yn siŵr beth aeth o'i le. Helpwch Plîs! :trist:
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad] Rwy'n defnyddio'r cod uchod i anfon dalen sengl fel atodiad excel, y broblem sydd gennyf, yw ei fod yn anfon y llyfr gwaith cyfan, nid dim ond un daflen waith. Dim ond y "I", "Pwnc" a "Corff" y newidiais ar gyfer yr e-bost. Nid wyf yn siŵr beth aeth o'i le. Helpwch Plîs! :trist:Gan Janet[/quote] Helo, dywedwch wrthyf y wybodaeth fersiwn o'ch Swyddfa a'ch system gyfrifiadurol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rydw i'n defnyddio Office 2010 a Windows 7. Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad]Helo, rwy'n defnyddio Office 2010 a Windows 7. Diolch!Gan Janet[/quote] Helo, mae'r VBA hwn yn iawn gydag Office 2010 yn Ffenestr 7. Gwnewch yn siŵr eich bod wedi agor eich Outlook cyn rhedeg y VBA hwn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n ceisio defnyddio'r cod hwn i anfon taenlen sengl gan ddefnyddio ffeil templed *.ost a grëwyd yn bersonol sy'n byw ar y gyriant c:\. Methu ymddangos i chyfrif i maes sut i addasu'r cod uchod ar gyfer hynny. Unrhyw awgrymiadau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Anfonwch daflen waith sengl fel atodiad o Excel gyda chod VBA: Cod VBA Ardderchog. Yn gweithio GWYCH !!! Diolch!!! :-) Yn lle mynd i mewn i'r To: & CC: e-byst â llaw, rwyf am dynnu'r cyfeiriadau e-bost o daflen waith ar wahân o'r enw "Rhestr E-bost". Mae gan (a1) y cyfeiriad e-bost "I" a (b1) y cyfeiriad e-bost "CC". Rwy'n gwybod bod hyn yn gymharol syml i'w ddatrys ond ni allaf ddarganfod beth rwy'n ei wneud yn anghywir. Diolch i bawb ymlaen llaw. Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat Gyda OutlookMail .To = " skyyang@extendoffice.com " .CC = " .BCC = " " .Subject = " nodweddion kte " .Body = " Gwiriwch a darllenwch y ddogfen hon." .Attachments.Add Wb2.FullName .Send End With Wb2.Close Kill FilePath & FileName &xFile Set OutlookMail = Dim wedi'i osod OutlookApp = Dim byd Application.ScreenUpdating = Gwir Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hei Rwy'n defnyddio proses awtomeiddio yn fy nghwmni mae angen i mi uwchraddio fy holl gyfrifiaduron gyda'r excel a outlook 2010 Mae gen i god yn windows xp ag yr wyf yn postio taflen gan ddefnyddio outlook express mae'r cod yn gweithio'n iawn yn xp ond nawr rydw i angen ei uwchraddio gyda ffenestri 7 . Ceisiais lawer ond ni allaf anfon y daflen felly plz help
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Mae'r macro yn gweithio'n berffaith iawn i mi. Nid wyf erioed wedi defnyddio macros o'r blaen felly, a all unrhyw un fy rhoi i'r cyfeiriad cywir - dwi'n ceisio anfon hwn at fwy nag un person ond ddim yn siŵr sut i roi cyfeiriadau e-bost ychwanegol yn adran "i" y macro. Diolch ymlaen llaw
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, dwi'n Ffrangeg, sori am fy saesneg. Sut mae'n bosibl rhoi cell gwerth fy nhaflen yn .too/ .CC ... dwi'n meddwl ei fod fel : Sub SendWorkSheet() 'Diweddariad 20131209 Dim xFile Fel Llinynnol Dim xFformat Mor Hir Dim Wb Fel Llyfr Gwaith Dim Wb2 Fel Llyfr Gwaith Dim FilePath Fel Llinyn Dim FfeilName Fel Llinyn Dim OutlookApp Fel Gwrthrych Dim OutlookMail Fel Gwrthrych Ar Gwall Ail-ddechrau Nesaf Application.ScreenUpdating = Gosodiad Gau Wb = Gosod Application.ActiveWorkbook ActiveSheet.Copy Wb2 = Application.ActiveWorkbook Dewiswch Achos Wb.FileFormat Achos xlOpenXMLWorkbook: xFile = " .xlsx " xFormat = Achos xlOpenXMLWorkbook xlOpenXMLWorkbookMacroEnabled: If Wb2.HasVBProject Yna xFile = " .xlsm " xFormat = xlOpenXMLWorkbookMacroEnabled Else = " .xlsx " xFormat = " .xlsx " xFormat = " .xlsx " xFile = " .xlsm " xFormat = xlOpenXMLWorkbookMacroEnabled Else = " .xlsx " xFormat = " .xlsx " xFormat = ". : xFile = ".xlsb" xFormat = xlExcel8 Diwedd Dewiswch FilePath = Amgylchedd$("temp") & "\" FileName = Wb.Name & Fformat(Nawr, "dd-mmm-bby h-mm-ss") Gosod OutlookApp = CreateObject ("Outlook.Application") Gosod OutlookMail = OutlookApp.Cre ateItem(8) Wb12.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat Gyda OutlookMail .To = "skyyang@extendoffice.com" & RANGE("AVIVA!b12") .CC = "" & RANGE("AVIVA!c12") .BCC = "" .Subject = "DOSSIER NOUVEAU" .body = "Gwiriwch a darllenwch y ddogfen hon." .Attachments.Add Wb2.FullName .DISPLAY .Anfon Diwedd Gyda Wb2.Close Kill FilePath & FileName & xFile Set OutlookMail = Dim Gosod OutlookApp = Dim Application.ScreenUpdating = Gwir Diwedd Is diolch am eich cymorth
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A allwn ganiatáu i'r defnyddiwr ychwanegu'r ID e-bost gyda'r cod a grybwyllir uchod... Mae'n gweithio'n dda iawn os ydym yn sôn am yr ID e-bost I...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Syr Rwy'n gallu anfon taflen waith dethol fel atodiad trwy gynnwys pwnc a Thestun. Ond mae enw'r ffeil yn dangos fel book1-02-apr-2016.... Yn lle hynny dwi am roi enw'r ffeil yn y cod ei hun (yr un enw i barhau bob tro dwi'n anfon) Caredig helpme
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helpwch fi ar frys. Dyma'r tro cyntaf i mi ddefnyddio'r daflen waith anfon cyfredol fel PDF ond ni weithiodd y cod isod o gwbl ac ni ddangosodd y ddeialog i ganiatáu pan fyddaf yn pwyso ctrl+G. Rwyf hefyd eisiau gwybod beth i'w newid i gyfeirio at gell a oedd yn cynnwys y cyfeiriad e-bost yn lle "i gyfeiriad e-bost penodol. Is SendWorkSheetToPDF() 'Diweddariad 20131209 Dim Wb Fel Llyfr Gwaith Dim Enw Ffeil Fel Llinynnol Dim OutlookApp Fel Gwrthrych Dim OutlookMail Fel Gwrthrych Ymlaen Gwall Ail-ddechrau Set Nesaf Wb = Application.ActiveWorkbook FileName = Wb.FullName xIndex = VBA.InStrRev(FileName, ".") Os xIndex > 1 Yna FileName = VBA.Left(FileName, xIndex - 1) FileName = Enw Ffeil & "_" + ActiveSheet.Name & ".pdf" ActiveSheet.ExportAsFixedFormat Math:=xlTypePDF, FileName:=FileName Set OutlookApp = CreateObject("Outlook.Application") Gosod OutlookMail = OutlookApp.CreateItem(0) Gyda OutlookMail .To = "skyyang@extendoffice.com " .CC = " .BCC = " " .Subject = " nodweddion kte " .Body = " Gwiriwch a darllenwch y ddogfen hon." .Attachments.Add FileName .Send End With Kill FileName Set OutlookMail = Dim Gosod OutlookApp = Dim Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod hwn yn gweithio'n dda, fodd bynnag, a oes unrhyw un yn gwybod ffordd i awtomeiddio maes fel rhybudd i'r e-bost fynd yn awtomatig yn seiliedig ar golofn dyddiad?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! A yw'n bosibl defnyddio'r cod hwn, ond yn lle anfon yn syth mae'n agor y post?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gallwch roi cynnig ar y cod hwn:
Is-Daflen Waith Anfon()
'Diweddariad 20180109
Dim xFile Fel Llinynnol
Dim xFformat Cyhyd
Dim Wb Fel Llyfr Gwaith
Dim Wb2 Fel Gweithlyfr
Dim FfeilPath Fel Llinynnol
Enw Ffeil Dim Fel Llinyn
Dim OutlookApp Fel Gwrthrych
Dim OutlookMail Fel Gwrthrych
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Gosod Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Gosod Wb2 = Application.ActiveWorkbook
Dewiswch Achos Wb.FileFormat
Achos xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Achos xlOpenXMLWorkbookMacro wedi'i alluogi:
Os Wb2.HasVBProject Yna
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
arall
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Gorffennwch Os
Achos Excel8:
xFile = ".xls"
xFformat = Excel8
Achos xlExcel12:
xFile = ".xlsb"
xFformat = xlExcel12
Diwedd Dewis
FilePath = Amgylchedd$("temp") & "\"
FileName = Wb.Name & Fformat(Nawr, "dd-mmm-bb h-mm-ss")
Gosod OutlookApp = CreateObject ("Outlook.Application")
Gosod OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFformat
Gyda OutlookMail
.To = "skyyang @extendoffice.com "
.CC = ""
.BCC = ""
.Subject = "nodweddion kte"
.Body = "Gwiriwch a darllenwch y ddogfen hon."
.Attachments.Add Wb2.FullName
.Arddangos
' .Anfon
Diwedd Gyda
Wb2.Close
Lladd FilePath & FileName & xFile
Gosod OutlookMail = Dim byd
Gosod OutlookApp = Dim byd
Application.ScreenUpdating = Gwir
Is-End

Rhowch wybod i mi os yw'n gweithio i chi, diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth bynnag gallaf yn hawdd anfon taflen waith excel trwy fy rhagolygon heb hyn i gyd ?? Gallaf anfon cyd-destun y daflen waith, ond dim y llyfr gwaith fel atodiad. Ar fy nghyfrifiadur gwaith gallaf anfon o Word a Excel, ond rwy'n cael trafferth gartref.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir