Як експортувати таблицю основного повідомлення електронної пошти до Excel у Outlook?
Отримуючи електронне повідомлення, яке містить деякі таблиці в тілі, іноді може знадобитися експортувати всі таблиці з тіла повідомлення на аркуш Excel. Зазвичай ви можете копіювати та вставляти таблиці на робочий аркуш, але тут я розповім про корисний метод вирішення цієї роботи, коли існує кілька таблиць, які потрібно експортувати.
Експортуйте всі таблиці з тіла повідомлення Outlook на аркуш Excel із кодом VBA
Експортуйте всі таблиці з тіла повідомлення Outlook на аркуш Excel із кодом VBA
Будь ласка, застосуйте такий код VBA, щоб експортувати всі таблиці з одного тіла повідомлення на аркуш Excel.
1. Відкрийте повідомлення про те, що ви хочете експортувати таблиці, а потім утримуйте кнопку ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у Модулі вікна.
Код VBA: Експортуйте всі таблиці з тіла повідомлення на аркуш Excel:
Sub ImportTableToExcel()
Dim xMailItem As MailItem
Dim xTable As Word.Table
Dim xDoc As Word.Document
Dim xExcel As Excel.Application
Dim xWb As Workbook
Dim xWs As Worksheet
Dim I As Integer
Dim xRow As Integer
On Error Resume Next
Set xExcel = New Excel.Application
Set xWb = xExcel.Workbooks.Add
xExcel.Visible = True
Set xWs = xWb.Sheets(1)
xRow = 1
For Each xMailItem In Application.ActiveExplorer.Selection
Set xDoc = xMailItem.GetInspector.WordEditor
For I = 1 To xDoc.Tables.Count
Set xTable = xDoc.Tables(I)
xTable.Range.Copy
xWs.Paste
xRow = xRow + xTable.Rows.Count + 1
xWs.Range("A" & CStr(xRow)).Select
Next
Next
End Sub
3. Після вставки вищевказаного коду, все ще в Microsoft Visual Basic для додатків вікна, натисніть Tools > посилання йти до Список літератури-Проект1 і перевірте Бібліотека об’єктів Microsoft Word та Бібліотека об’єктів Microsoft Excel варіанти з Доступні посилання вікно списку, див. знімок екрана:
4. Потім натисніть OK , щоб вийти з діалогового вікна, і зараз, будь ласка F5 для запуску коду всі таблиці в тілі повідомлення експортовано до нової книги, як показано на наступному знімку екрана:
Найкращі інструменти продуктивності офісу
Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.