Как экспортировать таблицу из текста письма в Excel прямо из Outlook?

Когда вы получаете письмо с несколькими таблицами в теле сообщения, может понадобиться экспортировать все эти таблицы сразу на лист Excel. Обычно их можно просто скопировать и вставить, но я расскажу о более удобном способе, если нужно экспортировать сразу несколько таблиц.

Экспорт всех таблиц из тела сообщения Outlook на лист Excel с помощью кода VBA

---

Экспорт всех таблиц из тела сообщения Outlook на лист Excel с помощью кода VBA

Воспользуйтесь приведённым ниже кодом VBA, чтобы экспортировать все таблицы из тела сообщения на лист Excel.

1. Откройте сообщение, содержащее таблицы для экспорта, и нажмите сочетание клавиш «ALT» + «F11», чтобы открыть окно Microsoft Visual Basic for Applications.

2. Нажмите «Insert» («Вставка») → «Module» («Модуль») и вставьте приведённый ниже код в окно модуля.

Код 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 for Applications», выберите «Сервис» > «Ссылки», чтобы открыть диалоговое окно «Ссылки – Проект1», и установите флажки рядом с пунктами «Microsoft Word Object Library» и «Microsoft Excel Object Library» в списке «Доступные ссылки». См. снимок экрана:

4. Затем нажмите кнопку «OK», чтобы закрыть диалоговое окно, после чего нажмите клавишу «F5» для запуска кода. Все таблицы из тела сообщения будут экспортированы в новую рабочую книгу, как показано на следующем снимке экрана: