De asemenea, sper să văd un răspuns pentru această problemă! Multumesc pentru ajutor!

Oficiul pentru 360

Aceeași problemă

Salut Crystal,

Este cu adevărat grozav și funcționează perfect pentru mine. Aveți nevoie de mai mult ajutor pentru a adăuga:

1. în „Către” vreau să dau link către o anumită celulă a foii active, cum ar fi în CC și în BCC, aș dori să adaug linkul pentru foaia activă
2. în corpul e-mailului trebuie să specific un text standard.

Îți voi fi foarte plin pentru ajutorul tău.

mulțumesc
paragraf

Am încercat să folosesc Intervalul pentru „To”, „CC”, pur și simplu nu preia valorile din celula desemnată. Vă rog, puteți ajuta la asta?
Multumesc,
Mehul

Salut Crystal,

Este cu adevărat grozav și funcționează perfect pentru mine. Aveți nevoie de mai mult ajutor pentru a adăuga:

1. în „Către” vreau să dau link către o anumită celulă a foii active, cum ar fi în CC și în BCC, aș dori să adaug linkul pentru foaia activă
2. în corpul e-mailului trebuie să specific un text standard.

Îți voi fi foarte plin pentru ajutorul tău.

mulțumesc
paragraf

Este posibil. Faceți variabile separate pentru a păstra valoarea din celule și apoi utilizați acele variabile când setați xFolder.
Am folosit valoarea dintr-o celulă din foaia mea plus data de astăzi. Totuși, puteți face cu ușurință mai multe valori de celule.

Iată ce am adăugat:
Dim xMemberName ca șir
Dim xFileDate ca șir

xMemberName = Range("H3").Value
xFileDate = Format(Acum, „mm-dd”)

xFolder = xFolder + „\” xMemberName + xFileDate + „.pdf”

Primesc o eroare când încerc asta, unde ar trebui să plasez asta în cod?

Cred că Geoff înseamnă a putea specifica un anumit folder în codul în care este salvat pdf-ul de fiecare dată, mai degrabă decât a fi nevoit să selectezi manual locația. pdf-ul este apoi trimis prin e-mail din acel folder specific.

Mulțumesc pentru asta, este grozav, dar vreau ca foaia să fie numită conform celulei A1 de pe foaia 1. Locul de salvare conform A1 din foaia 2, de exemplu C:\Users\peete\Dropbox\Screenshots, iar e-mailul se trimite la adresa de e-mail de pe foaia A3 2 ceea ce am rezolvat deja.

Bună, Singura modificare cu care mă confrunt este să creez un e-mail separat pentru fiecare document pdf creat.

Am mai mult de 100 de foi de lucru în registrul de lucru, ceea ce înseamnă că trebuie să rulez VBA de mai mult de 100 de ori, ceea ce necesită mult timp.  
Am reușit să-mi împart registrul de lucru în mai multe foi și apoi pot converti fiecare foaie de lucru într-un document PDF individual.
Soluția pe care o caut este să trimit prin e-mail fiecare document PDF separat în timp ce procesul de mai sus se desfășoară.
Cu aici VBA-ul pe care îl rulez în prezent:
Sub Saveaspdfandsend1()
Dim xSht ca foaie de lucru
Dim xFileDlg ca FileDialog
Dim xFolder ca șir
Dim xYesorNo, I, xNum As Integer
Dim xOutlookObj ca obiect
Dim xEmailObj ca obiect
Dim xUsedRng As Range
Dim xArrShetts ca variantă
Dim xPDFNameAddress ca șir
Dim xStr As String
xArrShetts = Array("02302257", "02400438", "02401829", "02403995", "02408001", "02409208", _
„02409980”, „02411881”, „02424178”, „02430454”, „02444046”, „02448950”, „02450600”, _
„02459861”, „02461750”, „02467535”, „02480484”, „02484749”, „02502041”, „02504807”, _
„02511843”, „02515193”, „02523098”, „02523244”, „02524036”, „02524548”, „02525516”, „02525703”, „02525898”, „02528908”, „02528950”, „XNUMX”, „XNUMX”, „XNUMX”, „XNUMX”, „XNUMX”, „XNUMX”,
„02530381”, „02531018”, „02531252”, „02531277”, „02532571”, „02533053”, „02533474”, _
„02534176”, „02534592”, „02534626”, „02535343”, „02536386”, „02536921”, „02537544”, _
„02537607”, „02538015”, „02538755”, „02538836”, „02538910”, „02539685”, „02540063”, „02540139”, „02540158”, „02541607”, „02542344”, „XNUMX”, „XNUMX”, „XNUMX”, „XNUMX”, „XNUMX”, „XNUMX”,
„02543763”, „02543985”, „02544116”, „02544748”, „02544762”, „02545026”, „02545048”, _
„02545080”, „02545447”, „02545730”, „02545814”, „02546477”, „02547458”, „02547673”, _
„02547833”, „02547912”, „02547950”, „02547991”, „02548848”, „02549103”, „02549116”, „02549125”, „02549132”, „02549140”, „02549182”, „XNUMX”, „XNUMX”, „XNUMX”, „XNUMX”, „XNUMX”, „XNUMX”,
„02549462”, „02549499”, „02549565”, „02549687”, „02550049”, „02550437”, „02550812”, _
„02550982”, „02551004”, „02551005”, „02551045”, „02552099”, „02552222”, „02552561”, _
„02552684”, „02552815”, „02552892”, „02553031”, „02553186”, „02553628”, „02553721”, „02555186”, „02556934”, „02557137”, „02557393”, „XNUMX”, „XNUMX”, „XNUMX”, „XNUMX”, „XNUMX”, „XNUMX”,
„02559121”, „02559392”, „02559419”, „02559512”, „02559802”, „02559868”, „02560052”, _
„02560612”, „02560684”, „02560920”, „02561018”, „02561061”, „02561092”, „02561227”, _
„02561349”, „02561592”, „02561630”, „02561673”, „02561880”, „02562359”, „02562920”, „02562934”, „02563013”, „02563119”, „02563133”, „XNUMX”, „XNUMX”, „XNUMX”, „XNUMX”, „XNUMX”, „XNUMX”,
„02563445”, „02563737”, „02563828”, „02563852”, „02563861”, „02563971”, „02564042”, _
„02564315”, „02564366”, „02564832”, „02564909”, „02565059”, „02565205”) „Introduceți numele foilor pe care le veți trimite ca fișiere pdf închise cu ghilimele și separați-le cu virgulă. Asigurați-vă că nu există caractere speciale, cum ar fi \/:"*<>| în numele fișierului.

Pentru I = 0 La UBound(xArrShetts)
La data de eroare CV următoare
Set xSht = Application.ActiveWorkbook.Worksheets(xArrShetts(I))
Dacă xSht.Name <> xArrShetts(I) Atunci
MsgBox „Foaia de lucru nu a fost găsită, operațiune de ieșire:” & vbCrLf & vbCrLf & xArrShetts(I), vbInformation, „Kutools pentru Excel”
Ieșiți din Sub
Final, dacă
Pagina Următoare →


Setați xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
Dacă xFileDlg.Show = Adevărat, atunci
xFolder = xFileDlg.SelectedItems(1)
Altfel
MsgBox „Trebuie să specificați un folder în care să salvați PDF-ul”. & vbCrLf & vbCrLf & „Apăsați OK pentru a ieși din această macrocomandă.”, vbCritical, „Trebuie să specificați folderul de destinație”
Ieșiți din Sub
Final, dacă
„Verificați dacă fișierul există deja
xYesorNo = MsgBox(„Dacă fișierele cu același nume există în folderul de destinație, sufixul numeric va fi adăugat automat la numele fișierului pentru a distinge duplicatele” & vbCrLf & vbCrLf & „Faceți clic pe Da pentru a continua, faceți clic pe Nu pentru a anula”, _
vbYesNo + vbÎntrebare, „Fișierul există”)
Dacă xDasauNu <> vbDa, atunci Ieșiți din sub
Pentru I = 0 La UBound(xArrShetts)
Set xSht = Application.ActiveWorkbook.Worksheets(xArrShetts(I))

xStr = xFolder & „\” & xSht.Name & „.pdf”
xNum = 1
În timp ce nu (Dir(xStr, vbDirectory) = vbNullString)
xStr = xFolder & "\" & xSht.Name & "_" & xNum & ".pdf"
xNum = xNum + 1
Merge încet
Setați xUsedRng = xSht.UsedRange
Dacă Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Atunci
xSht.ExportAsFixedFormat Type:=xlTypePDF, Nume fișier:=xStr, Quality:=xlQualityStandard
Altfel

Final, dacă
xArrShetts(I) = xStr
Pagina Următoare →

„Creează e-mail Outlook
Setați xOutlookObj = CreateObject("Outlook.Application")
Setați xEmailObj = xOutlookObj.CreateItem(0)
Cu xEmailObj
.Afişa
.To = „Ctracklegal@ctrack.com”
.CC = ""
.Subiect = "????"
Pentru I = 0 La UBound(xArrShetts)
La data de eroare CV următoare
.Atașamente.Adăugați xArrShetts(I)
Pagina Următoare →
Dacă DisplayEmail = False, atunci
.Trimite
Ieșiți din Sub
Final, dacă
Se termina cu


End Sub

Bună ziua, tocmai am încercat acest cod pe una dintre foile mele de lucru și am zone de tipărire setate, astfel încât lucrurile suplimentare din partea de jos să nu apară în pdf. Incearca-l!