Outlook에서 여러 Excel 통합 문서 첨부 파일을 하나의 통합 문서로 빠르게 병합하고 내보내는 방법

Outlook 솔루션 2025 년 9 월 29 일

여러 Excel 통합 문서가 첨부 된 전자 메일을 받았을 때 단일 통합 문서에있는 모든 통합 문서의 내용을 확인하려면이 문서의 방법을 사용할 수 있습니다. 여러 Excel 통합 문서 첨부 파일을 하나의 통합 문서로 내 보냅니다.

하나의 Excel 통합 문서에서 전자 메일의 모든 Excel 통합 문서 첨부 파일을 보려면 먼저 이러한 첨부 파일을 단일 통합 문서로 결합하고 내 보내야합니다. 수동으로 수행하는 대신 다음 방법을 사용하여 쉽게 수행 할 수 있습니다. 이를 수행하기 위해 VBA 코드를 사용하는 방법을 알려줍니다. VBA 사용 방법은 p를 참조하십시오.ost "Outlook에서 VBA 코드를 실행하는 방법".

여러 Excel 통합 문서 첨부 파일을 하나의 통합 문서로 병합 및 내보내기

로tart, Outlook 응용 프로그램을 시작합니다.
그런 다음 Outlook VBA 편집기에 액세스하십시오.
다음으로 새로운“Microsoft Visual Basic for Applications”창에서“MS Excel Object Lib를 활성화해야합니다.rary”, 기사를 참조 할 수 있습니다. –“개체 라이브러리를 추가하는 방법rary VBA의 참조".
그런 다음 다음 VBA 코드를 프로젝트 또는 모듈에 복사합니다.

Sub CombineMultipleExcelWorkbookAttachmensIntoOne()
    Dim objSelectedAttachments As Outlook.AttachmentSelection
    Dim objAttachment As Outlook.Attachment
    Dim strTempFolder As String
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim strFile As String
    Dim objCurrentSheet As Excel.Worksheet
    Dim objCurrentBook As Excel.Workbook
    Dim objSheet As Excel.Worksheet
    Dim objFileSystem As Object
 
    On Error Resume Next
    'Create a new temp folder
    strTempFolder = "E:\Temp" & Format(Now, "yyymmddhhmmss") & "\"
    MkDir (strTempFolder)
 
    'Save selected attachments
    Set objSelectedAttachments = Outlook.Application.ActiveExplorer.AttachmentSelection
    For Each objAttachment In objSelectedAttachments
        objAttachment.SaveAsFile (strTempFolder & objAttachment.FileName)
    Next
 
    'Copy all the workbooks into a new file
    Set objExcelApp = CreateObject("Excel.Application")
    objExcelApp.Visible = True
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    objExcelWorkbook.Activate
 
    strFile = Dir(strTempFolder)
    Do While strFile <> ""
       Set objCurrentBook = objExcelApp.Workbooks.Open(strTempFolder & strFile)
       For Each objCurrentSheet In objCurrentBook.Sheets
           objCurrentSheet.Copy Before:=objExcelWorkbook.Sheets(1)
       Next
 
       objExcelApp.Workbooks(strFile).Close
       strFile = Dir()
    Loop
 
    'Remove empty sheets
    objExcelApp.DisplayAlerts = False
    For Each objSheet In objExcelWorkbook.Worksheets
        If objExcelApp.WorksheetFunction.CountA(objSheet.Cells) = 0 Then
           objSheet.Delete
        End If
    Next
    objExcelApp.DisplayAlerts = True
 
    'Delete the temp folder
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    objFileSystem.DeleteFolder (strTempFolder)
End Sub

그런 다음 창을 닫고 빠른 실행 도구 모음에 새 매크로를 추가 할 수 있습니다.
나중에 메일 목록에서 원본 이메일에 대해 설명합니다.
그런 다음 "Ctrl"을 누른 상태로 내보내려는 Excel 통합 문서 첨부 파일을 선택합니다.
다음으로 빠른 실행 도구 모음에서 매크로 버튼을 클릭합니다.
매크로가 완료되면 새 Excel 통합 문서가 표시됩니다. 이전에 선택한 Excel 통합 문서의 내용이 포함됩니다.

더 강력한 외부 복구 도구로 대체

Outlook 손상을 충족 할 때 most 사용자는 받은 편지함 수리 도구 애초에 시도해보십시오. 그러나 심각한 손상의 경우 많은 도움이되지 않습니다. 이 시점에서 다음과 같이 신뢰할 수 있고 경험이 풍부한 외부 도구를 사용할 수밖에 없습니다. DataNumen Outlook Repair.

저자 소개 :

Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. mdf 복구 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM