Outlook 에서 이메일 본문의 테이블을 Excel 로 내보내는 방법은 무엇입니까？

본문에 일부 테이블이 포함된 이메일을 수신한 경우， 때때로 메시지 본문의 모든 테이블을 Excel 워크시트로 내보내야 할 필요가 있습니다。 일반적으로 테이블을 복사하여 워크시트에 붙여넣을 수 있지만， 여기서는 여러 개의 테이블을 내보내야 할 때 이 작업을 해결할 수 있는 유용한 방법을 소개하겠습니다。

VBA 코드를 사용하여 Outlook 메시지 본문의 모든 테이블을 Excel 워크시트로 내보내기

---

VBA 코드를 사용하여 Outlook 메시지 본문의 모든 테이블을 Excel 워크시트로 내보내기

다음 VBA 코드를 적용하여 하나의 메시지 본문에서 모든 테이블을 Excel 워크시트로 내보내십시오。

1. 테이블을 내보내려는 메시지를 열고 「ALT」 + “F11" 키를 누른 상태로 「Microsoft Visual Basic for Applications」 창을 엽니다。

2. 「삽입(Insert)」 > 「모듈(Module)」을 클릭하고 다음 코드를 「모듈(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」 창에서 「도구(Tools)」 > 「참조(References)」를 클릭하여 “References-Project1" 대화상자로 이동합니다。 「사용 가능한 참조(Available References)」 목록 상자에서 「Microsoft Word Object Library」 및 「Microsoft Excel Object Library」 옵션을 선택합니다。 아래 스크린샷을 참조하십시오：

4. 그런 다음 「확인(OK)」 버튼을 클릭하여 대화상자를 닫고， 이제 “F5" 키를 눌러 코드를 실행합니다。 그러면 메시지 본문의 모든 테이블이 다음과 같은 스크린샷과 같이 새 워크북로 내보내집니다：