Note: The other languages of the website are Google-translated. Back to English

Kako izvoziti strukturo map iz Outlooka v Excel?

V tem članku bom predstavil, kako izvoziti strukturo map računa iz Outlooka v datoteko Excel. Prosimo, dosežite to s podrobnostmi tega članka.

Izvozite strukturo map iz Outlooka v Excel s kodo VBA


Izvozite strukturo map iz Outlooka v Excel s kodo VBA

Naslednja koda VBA vam bo morda naredila uslugo, naredite spodnja navodila:

1. Omogočite Excel in držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Izvozite strukturo map računa iz Outlooka v Excel:

Dim xExcelApp As Excel.Application
Dim xWb As Excel.Workbook
Dim xWs As Excel.Worksheet
Dim xMainFolderCount As Long
Sub OutlookExportFolderStructureToExcel()
    Dim xFolder As Folder
    Dim xExcelFile As String
    Dim xFileDialog As FileDialog
    On Error Resume Next
    Set xFolder = Outlook.Application.Session.PickFolder
    If xFolder Is Nothing Then Exit Sub
    Set xExcelApp = New Excel.Application
    Set xWb = xExcelApp.Workbooks.Add
    Set xWs = xWb.Sheets(1)
    With xWs.Range("A1", "A1")
         .Value = "Folder Structure"
         .Font.Size = 14
         .Font.Bold = True
    End With
    xMainFolderCount = Len(xFolder.FolderPath) - Len(Replace(xFolder.FolderPath, "\", "")) + 1
    Call ExportToExcel(xFolder.FolderPath, xFolder.Name)
    Call ProcessFolders(xFolder.Folders)
    xWs.Columns("A").AutoFit
    Set xFileDialog = xExcelApp.FileDialog(msoFileDialogSaveAs)
    With xFileDialog
        .AllowMultiSelect = False
        .FilterIndex = 1
        If .Show = 0 Then
            xWb.Close False
            xExcelApp.Quit
            Set xExcelApp = Nothing
            Exit Sub
        End If
        xExcelFile = .SelectedItems.Item(1)
    End With
    xWb.Close True, xExcelFile
    MsgBox "Export complete!", vbExclamation, "Kutools for Outlook"
End Sub

Sub ProcessFolders(ByVal xFlds As Folders)
    Dim xSubFolder As Folder
    For Each xSubFolder In xFlds
        If xSubFolder.Name <> "Conversation Action Settings" And xSubFolder.Name <> "Quick Step Settings" Then
           Call ExportToExcel(xSubFolder.FolderPath, xSubFolder.Name)
           Call ProcessFolders(xSubFolder.Folders)
        End If
    Next
End Sub

Sub ExportToExcel(ByRef xFolderPath As String, xFolderName As String)
    Dim i, n As Long
    Dim xPrefix As String
    Dim xLastRow As Integer
    i = Len(xFolderPath) - Len(Replace(xFolderPath, "\", "")) - xMainFolderCount
    For n = 0 To i
        xPrefix = xPrefix & "-"
    Next
    xFolderName = xPrefix & xFolderName
    xLastRow = xWs.UsedRange.Rows.Count + 1
    xWs.Range("A" & xLastRow) = xFolderName
End Sub

3. Še vedno v Microsoft Visual Basic za aplikacije okno, kliknite Orodja > Reference Pojdite na Reference-Projekt1 pogovorno okno in preverite Knjižnica predmetov Microsoft Excel možnost iz Razpoložljive reference seznam, glej posnetek zaslona:

doc izvozi strukturo map v excel 1

4. Nato kliknite OK in pritisnite F5 tipko za zagon te kode, a Izberite mapo Odpre se pogovorno okno, izberite e-poštni račun, za katerega želite izvoziti strukturo map, glejte posnetek zaslona

doc izvozi strukturo map v excel 2

5. In nato kliknite OK gumb, a Datoteka Shrani prikaže se okno, navedite mesto in ime datoteke za to izvoženo datoteko, glejte posnetek zaslona:

doc izvozi strukturo map v excel 3

6. Končno kliknite Shrani in lahko odprete določen Excelov delovni zvezek, ki ste ga shranili, da si ogledate izvoženo strukturo map, glejte posnetek zaslona:

doc izvozi strukturo map v excel 4

 


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 

 

Komentarji (12)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Ta koda je odlična in deluje odlično, hvala.
Izdelovalec bi bil še posebej odličen, če bi lahko prikazal velikosti (v bajtih, kilobajtih, megabajtih, petabajtih, karkoli) in celo morda število elementov za vsako mapo.
:)
Ta komentar je moderator na spletnem mestu minimiziral
Halo, bei mir führt der Code beim Ausführen zu einem Fehler in Zeile 40 "Fehler beim Kompilieren: Benutzerdefinierter Typ nicht definiert". Und anders als in der Beschreibung wir bei mir in Punkt 4. weder nach dem Ordner noch nach dem Mail-Konto gefragt.
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Jörg.N
Če prejmete obvestilo o napaki, preverite, ali ste zamudili 3. korak v tem članku.
Sledite korakom v članku korak za korakom, če še vedno obstaja težava, komentirajte tukaj.
Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, naredil sem tako, kot je opisano. 3. korak (knjižnica objektov MS Excel 16.0) je bil že aktiven. Onemogočil sem in pozneje spet omogočil. Ko kliknem F5, ni dvoma o mapi za shranjevanje. Dobim sporočilo o napaki: Napaka v vrstici 40: "Fehler beim Kompilieren: Benutzerdefinierter Typ nicht definiert".
Ta komentar je moderator na spletnem mestu minimiziral
Živijo, izgleda, da moj odgovor ni bil poslan. Ponovno sem preizkusil scenarij. Isto sporočilo o napaki. Ne pogrešam 3. koraka. Ta tema je bila/je že aktivna. Onemogočil sem in kasneje spet omogočil. Isti rezultat. Vedno se ustavi pri vrstici 40. Imate kakšno idejo?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Jörg Normann

Koda dobro deluje v mojem Outlooku. Katero različico Outlooka ste uporabili? Lahko pa naložite posnetek zaslona napake tukaj.
Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Uporabljam Outlook iz MS Office 2019 Pro plus 64bit v nemški vedno najnovejši različici. Kako lahko pošljem sliko?
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,
Morda bi morali omogočiti vse nastavitve makrov, naredite naslednje:
V Outlooku kliknite file > možnosti > Trust Center > Trust Center Nastavitve > Nastavitve makrovin nato preverite Omogoči vse makre in Uporabite varnostne nastavitve makrov za nameščene dodatke opcije.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-option-setting.png

Ko končate to nastavitev, ponovno zaženite Outlook.

Prosim, poskusite, hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni,
ich habe exakt den gleichen Fehler wie Jörg. Imam nameščen Office Professional Plus 2021 v nemškem jeziku.
Punkt 3 finde ich unter Extras - Verweise. Auch bei my war die "MS Excel 16.0 Object Library" bereits aktiviert, zusätzlich auch noch "Visual Basic For Applications", "MS Office 16.0 Object Library" in "OLE Automation".
Beim Ausführen ebenfalls der "Fehler beim Kompilieren", der Hilfe-Button verrät dann noch "Der Administrator Ihrer Organisation hat den für die Verwendung dieser Funktion erforderlichen Dienst deaktiviert."
Aber welcher ist das und wo / wie kann man ihn aktivieren???
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljen, Erich
Morda bi morali omogočiti vse nastavitve makrov, naredite naslednje:
V Outlooku kliknite file > možnosti > Trust Center > Trust Center Nastavitve > Nastavitve makrovin nato preverite Omogoči vse makre in Uporabite varnostne nastavitve makrov za nameščene dodatke opcije.

Ko končate to nastavitev, ponovno zaženite Outlook.

Prosim, poskusite, hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,
hvala za hiter odgovor. Mislim, da sem zdaj nastavil vse potrebne možnosti. Vendar ne najdem možnosti »Uporabi varnostne nastavitve makra za nameščene dodatke«
Rad bi poslal nekaj posnetkov zaslona, ​​vendar na tej strani ne najdem, kako.
Lep pozdrav Erich Hackel
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Erich,
Če ne najdete možnosti »Uporabi varnostne nastavitve makra za nameščene dodatke«, si oglejte spodnji posnetek zaslona:

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-option-setting.png
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije