메인 컨텐츠로 가기

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

저자: 샤오양 최종 수정 날짜: 2018-05-22

본문에 일부 테이블이 포함 된 전자 메일을 받으면 메시지 본문의 모든 테이블을 Excel 워크 시트로 내 보내야 할 수 있습니다. 일반적으로 테이블을 복사하여 워크 시트에 붙여 넣을 수 있지만 여기서는 내 보내야하는 테이블이 여러 개있을 때이 작업을 해결하는 유용한 방법에 대해 설명합니다.

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


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

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

1. 테이블을 내보낼 메시지를 연 다음 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창.

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

Excel 1로 문서 내보내기 테이블

3. 위의 코드를 붙여 넣은 후에도 여전히 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 도구 > 참고자료 로 이동합니다 참조 -Project1 대화 상자 및 확인 Microsoft Word 개체 라이브러리Microsoft Excel 개체 라이브러리 옵션에서 사용 가능한 참조 목록 상자, 스크린 샷 참조 :

Excel 2로 문서 내보내기 테이블

4. 그런 다음 OK 버튼을 눌러 대화 상자를 종료하고 이제 F5 코드를 실행하려면 다음 스크린 샷과 같이 메시지 본문의 모든 테이블을 새 통합 문서로 내보냈습니다.

Excel 3로 문서 내보내기 테이블


최고의 사무 생산성 도구

속보: Outlook용 Kutools 출시 무료 버전!

완전히 새로운 Outlook용 Kutools를 경험해보세요 70개 이상의 놀라운 기능을 갖춘 무료 버전으로 영원히 사용할 수 있습니다.! 지금 다운로드하려면 클릭하세요!

🤖 Kutools AI : AI 마법이 적용된 즉각적인 전문가 이메일 - 원클릭으로 천재적인 답변, 완벽한 어조, 다국어 숙달이 가능합니다. 손쉽게 이메일을 변환하세요! ...

📧 이메일 자동화: 자동 회신(POP 및 IMAP에서 사용 가능)  /  이메일 보내기 예약  /  이메일 발송 시 규칙에 따른 자동 참조/숨은참조  /  자동 전달(고급 규칙)   /  인사말 자동 추가   /  여러 수신자 이메일을 개별 메시지로 자동 분할 ...

📨 이메일 관리: 리콜 이메일  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

📁 첨부 파일 프로일괄 저장  /  일괄 분리  /  일괄 압축  /  자동 저장   /  자동 분리  /  자동 압축 ...

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  중요한 이메일이 오면 알림  /  문을 닫는 대신 전망을 최소화하세요 ...

???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신  /   피싱 방지 이메일  /  🕘발신자의 시간대 표시 ...

👩🏼‍🤝‍👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가  /  연락처 그룹을 개별 그룹으로 분할  /  생일 알림 제거 ...

한 번의 클릭으로 Outlook용 Kutools를 즉시 잠금 해제—영구적으로 무료. 기다리지 마세요. 지금 다운로드하여 효율성을 높이세요!

Outlook 기능을 위한 kutools1 Outlook 기능을 위한 kutools2
 

 

 

Comments (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
re. Export all tables from Outlook message body to Excel worksheet with VBA code - i followed the instructions and it looked like it worked but where does the excel workbook go? I cant find it! (sorry, very new to this)
This comment was minimized by the moderator on the site
Hello,
The vba code will export the tables to a new opened workbook, and after getting the result, you just need to save the workbook to your desired location.
please have a try, hope this can help you!
This comment was minimized by the moderator on the site
i need to extract a table of data i receive every hour to a saved file

this doesn't work for me
This comment was minimized by the moderator on the site
Hi, i receive an email every hour with a table that i need to automatically send to a spreadsheet in a folder, will this code above work for that?
This comment was minimized by the moderator on the site
Even I receive many email with specific subject which I want to extract those tables in that email... help needed
This comment was minimized by the moderator on the site
Hello, arshad,
Do you mean to export all tables from the messages with the same subject into a worksheet?
This comment was minimized by the moderator on the site
This VBA code is not working for me... after run not getting exported in excel
There are no comments posted here yet
Load More
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations