Jeśli chcesz szybko wyeksportować tabele z wiadomości e-mail programu Outlook do pliku programu Excel, możesz skorzystać z metody przedstawionej w tym artykule. Wykorzysta VBA, aby pomóc Ci to osiągnąć za pomocą jednego kliknięcia.
Jak wszyscy wiemy, Excel jest przeznaczony do tabel i statystyk danych. Dlatego po otrzymaniu wiadomości e-mail zawierającej kilka tabel w treści możesz wyeksportować wszystkie te tabele do pliku programu Excel, aby lepiej analizować dane w tabelach. Dlatego tutaj nauczymy Cię, jak szybko wyeksportować wszystkie tabele z wiadomości e-mail do nowego skoroszytu programu Excel. Teraz przeczytaj dalej, aby uzyskać kod VBA i szczegółowe instrukcje.
Eksportuj wszystkie tabele z wiadomości e-mail programu Outlook do skoroszytu programu Excel
- Na początek uruchom aplikację Outlook w zwykły sposób.
- Następnie w głównym oknie Outlooka naciśnij klawisze „Alt + F11”.
- Następnie w następnym oknie „Microsoft Visual Basic for Applications” należy otworzyć pusty moduł.
- Następnie musisz skopiować poniższy kod VBA do tego modułu.
Sub ExportTablesinEmailtoExcel()
Dim objMail As Outlook.MailItem
Dim objWordDocument As Word.Document
Dim objTable As Word.Table
Dim lTableCount As Long
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet
Dim i As Long
'Create a new excel workbook
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWorkbook = objExcelApp.Workbooks.Add
objExcelApp.Visible = True
'Get the table(s) in the selected email
Set objMail = Outlook.Application.ActiveExplorer.Selection.item(1)
Set objWordDocument = objMail.GetInspector.WordEditor
lTableCount = objWordDocument.Tables.Count
If lTableCount > 1 Then
'If there is more than one table
'Copy each table into separate worksheet
For i = 1 To lTableCount
Set objTable = objWordDocument.Tables(i)
objTable.Range.Copy
Set objExcelWorksheet = objExcelWorkbook.Sheets(i)
objExcelWorksheet.Paste
objExcelWorksheet.Columns.AutoFit
Next
Else
'If there is only one table
'Just copy it into the first worksheet
Set objTable = objWordDocument.Tables(1)
objTable.Range.Copy
Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
objExcelWorksheet.Paste
objExcelWorksheet.Columns.AutoFit
End If
End Sub
- Następnie musisz dodać nowe makro do paska narzędzi szybkiego dostępu.
- Później należy zmienić poziom bezpieczeństwa makr programu Outlook na niski.
- Ostatecznie możesz spróbować.
- Najpierw wybierz źródłowy adres e-mail z listy e-mailowej.
- Następnie kliknij przycisk makra na pasku narzędzi Szybki dostęp.
- Od razu zostanie wyświetlony nowy plik Excel.
- Jeśli w wiadomości e-mail znajduje się tylko jedna tabela, ta tabela zostanie wyeksportowana do pierwszego arkusza roboczego pliku Excel, jak na poniższym zrzucie ekranu:
- Jeśli jednak wiadomość e-mail zawiera więcej niż jedną tabelę, każda tabela zostanie skopiowana do osobnego arkusza.
Pozbądź się nieszczęśliwej utraty danych z pliku PST
Outlook jest podatny na błędy i korupcję. Dlatego ochrona danych PST i uniknięcie bolesnej utraty danych PST jest żmudnym i żmudnym zadaniem. Po pierwsze, musisz regularnie tworzyć kopie zapasowe plików PST. Ponadto musisz przygotować silny Poprawka PST narzędzie, jak DataNumen Outlook Repair. Może z łatwością uchronić Cię przed wszelkiego rodzaju problemami z PST.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym uszkodzony plik sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com