Kako brzo spojiti i izvesti više priloga Excel radne sveske u jednu radnu svesku u Outlooku

Kada primite e-poruku priloženu s više Excel radnih knjiga, ako želite da provjerite sadržaj svih radnih knjiga u jednoj radnoj svesci, možete koristiti način iz ovog članka. Izveziće više priloga Excel radne sveske u jednu radnu svesku.

Da biste pregledali sve priloge Excel radne knjige e-pošte u jednoj Excel radnoj knjizi, prvo biste trebali kombinirati i izvesti ove priloge u jednu radnu knjigu. Umjesto da to radite ručno, možete koristiti sljedeću metodu da to postignete s lakoćom. Naučit će vas kako koristiti VBA kod za to. Što se tiče korištenja VBA, možete pogledati objavu "Kako pokrenuti VBA kod u vašem Outlooku".

Spojite i izvezite više priloga Excel radne sveske u jednu radnu svesku

1. Za početak, pokrenite Outlook aplikaciju.
2. Zatim pristupite Outlook VBA editoru.
3. Zatim, u novom prozoru „Microsoft Visual Basic for Applications“, potrebno je omogućiti „MS Excel Object Library“, o čemu možete pogledati članak – „Kako dodati referencu biblioteke objekata u VBA".
4. Nakon toga, kopirajte sljedeći VBA kod u projekat ili modul.

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. Nakon toga, možete zatvoriti prozor i dodati novi makro na alatnu traku za brzi pristup.
6. Kasnije postavite izvornu e-poštu na listi e-pošte.
7. Zatim držite pritisnut “Ctrl” da odaberete priloge Excel radne knjige koje želite da izvezete.
8. Zatim kliknite na dugme makro na traci sa alatkama za brzi pristup.
9. Kada se makro završi, prikazat će se nova Excel radna knjiga. Sadržat će sadržaj prethodno odabranih Excel radnih knjiga.

Vratite se na moćniji vanjski alat za popravku

Prilikom susreta s oštećenjem Outlooka, većina korisnika će obično koristiti alat za popravku inboxa da prvo probam. Međutim, to neće biti od velike pomoći u slučaju ozbiljne štete. U tom trenutku nemate izbora osim da uzmete pomoć vanjskog pouzdanog i iskusnog alata, kao što je npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf recovery i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com