Invio di fogli di lavoro singoli tramite e-mail (Microsoft Excel)
Il tedesco ha chiesto se esiste un modo per inviare un foglio di lavoro in una cartella di lavoro come allegato di posta elettronica senza inviare l’intera cartella di lavoro. La risposta breve è che non puoi — un foglio di lavoro, da solo, non può esistere come “entità”
che puoi allegare a un’e-mail. È possibile inviare file solo come allegati ai messaggi di posta elettronica, il che significa che è necessario disporre di un file della cartella di lavoro da inviare.
Ovviamente è facile creare una cartella di lavoro da un singolo foglio di lavoro. Se hai bisogno di farlo solo una volta ogni tanto, il modo più semplice è seguire questi passaggi:
-
Fare clic con il pulsante destro del mouse sulla scheda del foglio di lavoro che si desidera inviare tramite posta elettronica.
-
Dal menu contestuale risultante, scegli Sposta o Copia. Excel visualizza la finestra di dialogo Sposta o Copia. (Vedi figura 1.)
-
Utilizzando l’elenco a discesa To Book, scegli New Book.
-
Assicurati che la casella di controllo Crea una copia sia selezionata.
-
Fare clic su OK.
A questo punto, dovresti vedere una nuova cartella di lavoro con un singolo foglio di lavoro al suo interno, una copia del foglio di lavoro che desideri inviare. Invia questa cartella di lavoro tramite e-mail e hai realizzato ciò che volevi fare. Una volta inviata tramite posta elettronica, è possibile eliminare la cartella di lavoro, poiché anche il foglio di lavoro è ancora nella cartella di lavoro originale.
Se è necessario inviare regolarmente tramite posta elettronica il foglio di lavoro corrente a qualcun altro, è possibile creare una macro che eseguirà l’attività per te. La macro creata varierà a seconda del programma di posta elettronica in uso. Per questo motivo, non è possibile fornire una risposta completa basata su macro in questo suggerimento. Tuttavia, può essere istruttivo fornire un esempio di una macro che può inviare un foglio di lavoro tramite posta elettronica utilizzando Outlook come programma di posta.
Sub EmailWithOutlook()
Dim oApp As Object Dim oMail As Object Dim WB As Workbook Dim FileName As String Dim wSht As Worksheet Dim shtName As String
Application.ScreenUpdating = False
' Make a copy of the active worksheet ' and save it to a temporary file ActiveSheet.Copy Set WB = ActiveWorkbook
FileName = WB.Worksheets(1).Name On Error Resume Next Kill "C:\" & FileName On Error GoTo 0 WB.SaveAs FileName:="C:\" & FileName
'Create and show the Outlook mail item Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(0)
With oMail 'Uncomment the line below to hard code a recipient '.To = "[email protected]"
'Uncomment the line below to hard code a subject '.Subject = "Subject Line"
'Uncomment the lines below to hard code a body '.body = "Dear John" & vbCrLf & vbCrLf & _ '"Here is the file you asked for"
.Attachments.Add WB.FullName .Display End With
'Delete the temporary file WB.ChangeFileAccess Mode:=xlReadOnly Kill WB.FullName WB.Close SaveChanges:=False
'Restore screen updating and release Outlook Application.ScreenUpdating = True Set oMail = Nothing Set oApp = Nothing End Sub
Nota che la macro fa in modo efficace ciò che è stato fatto nei passaggi precedenti:
copia il foglio di lavoro in una nuova cartella di lavoro e quindi invia quella cartella di lavoro tramite posta elettronica. Quindi elimina la cartella di lavoro e torna al normale utilizzo di Excel.
Se stai cercando una discussione più approfondita su come inviare un foglio di lavoro tramite posta elettronica utilizzando vari programmi, allora vorrai sicuramente visitare la seguente pagina Web:
http://www.rondebruin.nl/win/section1.htm
_Nota: _
Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.
ExcelTips è la tua fonte di formazione economica su Microsoft Excel.
Questo suggerimento (3273) si applica a Microsoft Excel 97, 2000, 2002 e 2003. Puoi trovare una versione di questo suggerimento per l’interfaccia a nastro di Excel (Excel 2007 e versioni successive) qui: