Spero anche di vedere una risposta per questo problema! Grazie per l'aiuto!

Ufficio 360

Stesso problema

Ciao Cristallo,

È davvero fantastico e funziona perfettamente per me. Hai bisogno di ulteriore aiuto per aggiungere:

1. in "A" voglio dare un collegamento a una cella particolare del foglio attivo come in CC e in BCC vorrei aggiungere un collegamento al foglio attivo
2. nel corpo dell'e-mail devo specificare del testo standard.

Sarò molto completo per te per il tuo aiuto.

Grazie
parag

Ho provato a utilizzare l'intervallo per "A", "CC", semplicemente non raccoglie i valori dalla cella designata. Per favore, puoi aiutare su questo?
Grazie,
Mehul

Ciao Cristallo,

È davvero fantastico e funziona perfettamente per me. Hai bisogno di ulteriore aiuto per aggiungere:

1. in "A" voglio dare un collegamento a una cella particolare del foglio attivo come in CC e in BCC vorrei aggiungere un collegamento al foglio attivo
2. nel corpo dell'e-mail devo specificare del testo standard.

Sarò molto completo per te per il tuo aiuto.

Grazie
parag

Questo è possibile. Crea variabili separate per mantenere il valore dalle celle e quindi usa quelle variabili durante l'impostazione di xFolder.
Ho usato il valore di una cella nel mio foglio più la data odierna. Tuttavia, potresti facilmente eseguire più valori di cella.

Questo è quello che ho aggiunto:
Dim xMemberName come stringa
Dim xFileDate come stringa

xMemberName = Intervallo ("H3"). Valore
xFileDate = Formato(Ora, "mm-gg")

xCartella = xCartella + "\" xMemberName + xFileDate + ".pdf"

Ricevo un errore quando provo questo, dove nel codice dovrei inserirlo?

Penso che Geoff significhi essere in grado di specificare una cartella specifica nel codice in cui viene salvato il pdf ogni volta piuttosto che dover selezionare la posizione manualmente. Il pdf viene quindi inviato via e-mail da quella cartella specifica.

Grazie per questo, è fantastico, ma voglio che il foglio sia nominato come da cella A1 sul foglio 1. il posto da salvare come da A1 sul foglio 2, ad esempio C:\Users\peete\Dropbox\Screenshots, e inviare un'e-mail a indirizzo email sul foglio A3 2 quello che ho già elaborato.

Ciao, l'unico cambiamento con cui sto lottando è creare un'e-mail separata per ogni documento pdf creato.

Ho più di 100 fogli di lavoro nella cartella di lavoro, il che comporterà quindi che devo eseguire VBA più di 100 volte, il che richiede tempo.  
Sono riuscito a dividere la mia cartella di lavoro in più fogli e quindi sono in grado di convertire ogni foglio di lavoro in un singolo documento PDF.
La soluzione che sto cercando è inviare via e-mail ogni documento PDF separatamente mentre il processo di cui sopra è in esecuzione.
Di seguito il VBA che sto attualmente eseguendo:
Sub Salva comepdfe invia1()
Dim xSht come foglio di lavoro
Dim xFileDlg come FileDialog
Dim xCartella come stringa
Dim xYesorNo, I, xNum As Integer
Dim xOutlookObj come oggetto
Dim xEmailObj come oggetto
Dim xUsedRng come intervallo
Dim xArrShetts come variante
Dim xPDFNameAddress come stringa
Dim xStr come stringa
xArrShetts = Array("02302257", "02400438", "02401829", "02403995", "02408001", "02409208", _
"02409980", "02411881", "02424178", "02430454", "02444046", "02448950", "02450600", _
"02459861", "02461750", "02467535", "02480484", "02484749", "02502041", "02504807", _
_
"02530381", "02531018", "02531252", "02531277", "02532571", "02533053", "02533474", _
"02534176", "02534592", "02534626", "02535343", "02536386", "02536921", "02537544", _
_
"02543763", "02543985", "02544116", "02544748", "02544762", "02545026", "02545048", _
"02545080", "02545447", "02545730", "02545814", "02546477", "02547458", "02547673", _
_
"02549462", "02549499", "02549565", "02549687", "02550049", "02550437", "02550812", _
"02550982", "02551004", "02551005", "02551045", "02552099", "02552222", "02552561", _
_
"02559121", "02559392", "02559419", "02559512", "02559802", "02559868", "02560052", _
"02560612", "02560684", "02560920", "02561018", "02561061", "02561092", "02561227", _
_
"02563445", "02563737", "02563828", "02563852", "02563861", "02563971", "02564042", _
"02564315", "02564366", "02564832", "02564909", "02565059", "02565205") 'Inserisci i nomi dei fogli che invierai come file pdf racchiusi tra virgolette e separali con virgola. Assicurati che non ci siano caratteri speciali come \/:"*<>| nel nome del file.

For I = 0 A UBound(xArrShetts)
On Error Resume Next
Imposta xSht = Application.ActiveWorkbook.Worksheets(xArrShetts(I))
Se xSht.Name <> xArrShetts(I) Allora
MsgBox "Foglio di lavoro non trovato, operazione di uscita:" & vbCrLf & vbCrLf & xArrShetts(I), vbInformation, "Kutools for Excel"
Exit Sub
End If
Successiva


Imposta xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
Se xFileDlg.Show = True allora
xCartella = xFileDlg.SelectedItems(1)
Altro
MsgBox "Devi specificare una cartella in cui salvare il PDF." & vbCrLf & vbCrLf & "Premi OK per uscire da questa macro.", vbCritical, "Deve specificare la cartella di destinazione"
Exit Sub
End If
'Verifica se il file esiste già
xYesorNo = MsgBox("Se nella cartella di destinazione esistono file con lo stesso nome, il suffisso numerico verrà aggiunto automaticamente al nome del file per distinguere i duplicati" & vbCrLf & vbCrLf & "Fai clic su Sì per continuare, fai clic su No per annullare", _
vbSìNo + vbDomanda, "Il file esiste")
Se xSìoNo <> vbSì Quindi esci da Sub
For I = 0 A UBound(xArrShetts)
Imposta xSht = Application.ActiveWorkbook.Worksheets(xArrShetts(I))

xStr = xCartella & "\" & xSht.Name & ".pdf"
xNumero = 1
Mentre non (Dir(xStr, vbDirectory) = vbNullString)
xStr = xCartella & "\" & xSht.Name & "_" & xNum & ".pdf"
xNum = xNum + 1
Wend
Imposta xUsedRng = xSht.UsedRange
Se Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Allora
xSht.ExportAsFixedFormat Tipo:=xlTypePDF, Nome file:=xStr, Qualità:=xlQualityStandard
Altro

End If
xArrShetts(I) = xStr
Successiva

'Crea e-mail di Outlook
Imposta xOutlookObj = CreateObject ("Outlook.Application")
Imposta xEmailObj = xOutlookObj.CreateItem(0)
Con xEmailObj
.Schermo
.To = "Ctracklegal@ctrack.com"
.CC = ""
.Oggetto = "????"
For I = 0 A UBound(xArrShetts)
On Error Resume Next
.Allegati.Aggiungi xArrShetts(I)
Successiva
Se DisplayEmail = False allora
.Spedire
Exit Sub
End If
Fine Con


End Sub

Ciao, ho appena provato questo codice su uno dei miei fogli di lavoro e ho impostato le aree di stampa in modo che le cose extra in basso non siano visualizzate nel pdf. Provalo!