Több Excel-munkafüzet-melléklet gyors egyesítése és exportálása egyetlen munkafüzetbe az Outlook alkalmazásban

Ha több Excel-munkafüzethez csatolt e-mailt kap, és egyetlen munkafüzetben szeretné ellenőrizni az összes munkafüzet tartalmát, akkor használja a cikkben leírt módszert. Több Excel-munkafüzet-mellékletet exportál egyetlen munkafüzetbe.

Ha egy e-mail összes Excel-munkafüzet-mellékletét egyetlen Excel-munkafüzetben szeretné megtekinteni, először egyesítse és exportálja ezeket a mellékleteket egyetlen munkafüzetbe. Ahelyett, hogy ezt manuálisan tenné, a következő módszerrel érheti el ezt könnyedén. Ez megtanítja Önnek a VBA kód használatát ennek eléréséhez. A VBA használatával kapcsolatban lásd a post "A VBA kód futtatása az Outlookban".

Egyesítsen és exportáljon több Excel-munkafüzet-mellékletet egyetlen munkafüzetbe

1. Mert minttart, indítsa el az Outlook alkalmazást.
2. Ezután nyissa meg az Outlook VBA szerkesztőjét.
3. Ezután az új „Microsoft Visual Basic for Applications” ablakban engedélyeznie kell az „MS Excel Object Lib”rary”, amelyről a cikkre hivatkozhat – „Hogyan adjunk hozzá egy Object Lib-etrary Hivatkozás a VBA-ban".
4. Ezt követően másolja be a következő VBA-kódot egy projektbe vagy modulba.

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

5. Ezt követően bezárhatja az ablakot, és hozzáadhatja az új makrót a Gyorselérési eszköztárhoz.
6. Később jelölje be a forrás e-mailt a levelezőlistában.
7. Ezután tartsa lenyomva a „Ctrl” billentyűt az exportálni kívánt Excel-munkafüzet mellékletek kiválasztásához.
8. Ezután kattintson a makró gombra a Gyorselérési eszköztárban.
9. Amikor a makró befejeződik, egy új Excel-munkafüzet jelenik meg. A korábban kiválasztott Excel-munkafüzetek tartalmát fogja tartalmazni.

Váljon vissza egy erősebb külső javítószerszámra

Amikor találkozik az Outlook korrupciójával, a most a felhasználók hajlamosak lesznek kihasználni a postafiók javító eszköz hogy eleve egy próbát tegyen. Komoly károk esetén azonban nem sokat segít. Ekkor nincs más dolga, mint egy külső megbízható és tapasztalt eszköz segítségére lenni, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve mdf helyreállítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com