Якщо ви хочете швидко експортувати таблиці з електронної пошти Outlook у файл Excel, ви можете скористатися методом, представленим у цій статті. Він використовуватиме VBA, щоб допомогти вам досягти цього лише одним клацанням миші.
Як ми всі знаємо, Excel призначений для таблиць та статистики даних. Таким чином, коли ви отримуєте електронне повідомлення, яке містить декілька таблиць у тілі, можливо, ви захочете експортувати всі ці таблиці у файл Excel, щоб краще проаналізувати дані в таблицях. Отже, тут ми навчимо вас як швидко експортувати всі таблиці з електронного листа до нової книги Excel. Тепер, будь ласка, читайте далі, щоб отримати код VBA та докладні кроки.
Експортуйте всі таблиці з електронної пошти Outlook у книгу Excel
- Для початку запустіть програму Outlook як завжди.
- Потім у головному вікні Outlook натисніть кнопки Alt + F11.
- Далі у наступному вікні “Microsoft Visual Basic for Applications” слід відкрити порожній модуль.
- Згодом вам потрібно скопіювати код VBA нижче в цей модуль.
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
- Після цього вам потрібно додати новий макрос на панель швидкого доступу.
- Пізніше вам слід змінити рівень захисту макросів Outlook на низький.
- Зрештою, ви можете спробувати.
- По-перше, виберіть вихідний електронний лист у списку електронних листів.
- Потім натисніть кнопку макросу на панелі швидкого доступу.
- Одразу з’явиться новий файл Excel.
- Якщо в електронному листі є лише одна таблиця, ця таблиця буде експортована на перший аркуш файлу Excel, як на наступному скріншоті:
- Але якщо в електронному листі є більше однієї таблиці, кожна таблиця буде скопійована на окремий аркуш.
Позбудьтесь жалюгідної втрати даних PST
Outlook схильний до помилок та корупції. Тому захистити ваші дані PST та запобігти хворобливій втраті даних PST - це нудне і важке завдання. По-перше, вам потрібно регулярно створювати резервні копії своїх файлів PST. Більше того, ви повинні підготувати потужний Виправлення PST утиліта, типу DataNumen Outlook Repair. Це може з легкістю визволити вас від усіх видів PST-проблем.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі пошкоджений sql та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com