Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się  \/ 
x
or
x
Zarejestruj się  \/ 
x

or

Jak wysłać arkusz roboczy tylko przez Outlooka z Excela?

Jeśli chcesz wysłać e-mailem pojedynczy arkusz ze skoroszytu w programie Excel za pośrednictwem programu Outlook, możesz wysłać arkusz jako załącznik, treść lub jako plik PDF. Ale czy są jakieś szybsze sposoby rozwiązania tego problemu w programie Excel?

Wyślij pojedynczy arkusz jako treść z programu Excel za pomocą polecenia Wyślij do adresata poczty

Wyślij pojedynczy arkusz jako załącznik z Excela z kodem VBA

Wyślij pojedynczy arkusz roboczy jako plik PDF z programu Excel z kodem VBA


strzałka niebieski prawy bąbelek Wyślij pojedynczy arkusz jako treść z programu Excel za pomocą polecenia Wyślij do adresata poczty

Program Excel umożliwia nam wysyłanie aktywnego arkusza jako treści w wiadomości e-mail za pomocą polecenia Wyślij do odbiorcy poczty. Możesz wykonać następujące czynności:

Jeśli używasz programu Excel 2007, 2010 lub 2013, musisz to dodać Wyślij do odbiorcy poczty polecenie do Pasek narzędzi szybkiego dostępu pierwszy.

1. Kliknij ikonę pliku Dostosuj pasek narzędzi Szybki dostępi wybierz Więcej poleceńzobacz zrzut ekranu:

dokument-e-mail-arkusz1

2. I w Opcje programu Excel okno dialogowe, wybierz Polecenia, których nie ma na Wstążce w Wybierz Polecenia z rozwijaną listę, a następnie wybierz plik Wyślij do odbiorcy poczty opcję i kliknij Dodaj >> aby dodać to polecenie, ostatnim kliknięciem OK aby zapisać to ustawienie. Zobacz zrzut ekranu:

dokument-e-mail-arkusz2

3. Pandemia Wyślij do odbiorcy poczty polecenie zostało wstawione do Pasek narzędzi szybkiego dostępuzobacz zrzut ekranu:

dokument-e-mail-arkusz3

4. Następnie kliknij to Wyślij do odbiorcy poczty ikona przycisku i pojawi się okno zachęty w pliku E-mail pole zachęty, zaznacz Wyślij bieżący arkusz jako treść wiadomościi kliknij OK. Zobacz zrzut ekranu:

dokument-e-mail-arkusz4

5. A pole edycji wiadomości e-mail jest wyświetlane nad danymi arkusza roboczego, możesz wprowadzić odbiorców, temat i wprowadzenie do odpowiedniego pola tekstowego. Zobacz zrzut ekranu:

dokument-e-mail-arkusz5

6. Następnie kliknij Wyślij tę SheeAby wysłać ten aktywny arkusz jako treść wiadomości do określonej osoby.


strzałka niebieski prawy bąbelek Wyślij pojedynczy arkusz jako załącznik z Excela z kodem VBA

Jeśli chcesz wysłać e-mailem aktywny arkusz roboczy jako załącznik, poniższy kod VBA może wyświadczyć ci przysługę.

1. Aktywuj arkusz, który chcesz wysłać.

2. Przytrzymaj ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.

3, Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Kod VBA: wyślij aktualny arkusz jako załącznik z programu 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

Uwagi: W powyższym kodzie możesz zmienić następujące informacje według własnych potrzeb.

  • .To = "skyyang @extendoffice.com ”
  • .CC = „”
  • .BCC = „”
  • .Subject = "funkcje kte"
  • .Body = "Sprawdź i przeczytaj ten dokument."

4. Następnie kliknij F5 aby uruchomić ten kod, a pojawi się okienko zachęty, kliknij dopuszczać kiedy pasek postępu jest gotowy, a następnie bieżący arkusz został wysłany do odbiorcy jako załącznik.

dokument-e-mail-arkusz6


strzałka niebieski prawy bąbelek Wyślij pojedynczy arkusz roboczy jako plik PDF z programu Excel z kodem VBA

Czasami musisz wysłać raport arkusza do innych osób, ale nie chcesz, aby inni go modyfikowali. W takim przypadku możesz wysłać arkusz jako plik PDF z programu Excel.

1. Aktywuj arkusz, który chcesz wysłać.

2. Przytrzymaj ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.

3, Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Kod VBA: wyślij aktualny arkusz roboczy jako plik PDF z programu 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

Uwaga: w powyższym kodzie możesz zmienić następujące informacje według swoich potrzeb.

  • .To = "skyyang @extendoffice.com ”
  • .CC = „”
  • .BCC = „”
  • .Subject = "funkcje kte"
  • .Body = "Sprawdź i przeczytaj ten dokument."

4. Następnie naciśnij F5 i pojawi się okienko zachęty, kliknij dopuszczać po zamknięciu paska postępu aktywny arkusz został wysłany do określonej osoby jako plik PDF.

dokument-e-mail-arkusz6

Uwagi:

1. Te metody są dostępne tylko wtedy, gdy używasz programu Outlook jako programu pocztowego.

2. Po wysłaniu aktualnego arkusza możesz przejść do programu Outlook, aby upewnić się, że wiadomość e-mail została wysłana pomyślnie.


Utwórz listę mailingową, a następnie wyślij e-maile

Pandemia Kutools dla programu Excel's Utwórz listę mailingową Wysłać E-maile narzędzia mogą szybko tworzyć listy mailingowe w arkuszu, a następnie wysyłać ten sam temat, tę samą zawartość i te same załączniki na wiele adresów e-mail.
lista mailingowa doc 1
strzałka doc w dół
lista mailingowa doc 2

Podobne artykuły:

Jak wysłać aktualny skoroszyt przez Outlooka z Excela?

Jak wysłać / wysłać zakres komórek za pośrednictwem programu Outlook z programu Excel?


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2019 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowy bezpłatny okres próbny. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszą każdego dnia!
officetab dół
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.