Sende Enkelt regneark via e-post

April 28  by Eliza

Tysk spurte om det er en måte å sende ett regneark i en arbeidsbok som et e-postvedlegg uten å sende den hele arbeidsboken. Det korte svaret er at du kan ikke-et regneark, av seg selv, kan ikke eksistere som en "enhet" som du kan feste til en e-post. Du kan bare sende filer som vedlegg til e-post, noe som betyr at du må ha en arbeidsbok fil som skal sendes.

Selvfølgelig, er det lett å foreta en boken fra en enkelt regneark. Hvis du bare trenger å gjøre dette en gang på en stund, så den enkleste måten er å følge disse trinnene:

  1. Høyreklikk på fanen for regnearket du ønsker å sende en e-post.
  2. Fra den resulterende Kontekst-menyen velger du Flytt eller Kopier. Excel viser dialogboksen Kopier Flytt eller. (Se figur 1)

    Sende Enkelt regneark via e-post

    Figur 1. Kopier dialogboksen Flytt eller.

  3. Bruke å reservere rullegardinlisten velger ny bok.
  4. Sørg for at lage en kopi er merket.
  5. Klikk på OK.

På dette punktet, bør du se en ny arbeidsbok med et enkelt regneark i it-en kopi av regnearket du vil sende. E-post denne arbeidsboken, og du har oppnådd det du ønsket å gjøre. Når det er e-post, kan du slette arbeidsboken, som regnearket er fortsatt i den opprinnelige arbeidsboken, også.

Hvis du trenger å rutinemessig e-post gjeldende regneark til noen andre, kan det være lurt å lage en makro som vil gjøre oppgaven for deg. Makroen du lager vil variere, avhengig av e-postprogrammet du bruker. Av denne grunn er det ikke mulig å gi en omfattende makro basert svaret i denne spissen. Imidlertid kan det være lærerikt å gi et eksempel på en makro som kan sende e-post et regneark ved hjelp av Outlook som e-postprogram.

Sub EmailWithOutlook ()
Dim oApp Som Object
Dim oMail Som Object
Dim WB Som arbeidsbok
Dim Filename As String
Dim wSht Som regneark
Dim shtName As String

Application.ScreenUpdating = False

"Lag en kopi av det aktive regnearket
'Og lagre den til en midlertidig fil
ActiveSheet.Copy
Satt WB = Active

Filename = WB.Worksheets (1) .name
On Error Resume Next
Kill "C: \" & Filename
On Error GoTo 0
WB.SaveAs Filename: = "C: \" & Filename

Opprett og vis Outlook mail element
Satt oApp = Create ("Outlook.Application")
Satt oMail = oApp.CreateItem (0)
Med oMail
'Uncomment linjen under til hardt kode en mottaker
'.For = "[email protected]"
'Uncomment linjen under til hardt kode et emne
'.Subject = "Subject Line"
'uncomment linjene nedenfor til hardt kode en kropp
'.body = "Dear John" & vbCrLf & vbCrLf & _
"" Her er filen du ba om "
.Attachments.Add WB.FullName
.Display
Avslutt med

'Slett den midlertidige filen
WB.ChangeFileAccess Mode: = xlReadOnly
Kill WB.FullName
WB.Close Savechanges: = False

«Gjenopprett skjerm oppdatering og slipp Outlook
Application.ScreenUpdating = True
Satt oMail = Nothing
Satt oApp = Nothing
End Sub

Merk at makroen gjør effektivt det som ble gjort i tidligere trinn: kopierer den regneark til en ny arbeidsbok og deretter e-post som arbeidsbok. Da slettes arbeidsboken og du kommer tilbake til normal bruk av Excel.

Hvis du er ute etter en mer inngående drøfting av hvordan e-post et regneark ved hjelp av ulike programmer, så vil du definitivt ønsker å besøke følgende nettside:

http://www.rondebruin.nl/win/section1.htm

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (3273) gjelder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Excel (Excel 2007 og senere) her: Sende Enkelt regneark via e-post.