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

Jak exportovat strukturu složek z Outlooku do Excelu?

V tomto článku představím, jak exportovat strukturu složek účtu ze souboru aplikace Outlook do aplikace Excel. Dosáhněte toho s podrobnostmi tohoto článku.

Exportujte strukturu složek účtu z Outlooku do Excelu pomocí kódu VBA


Exportujte strukturu složek účtu z Outlooku do Excelu pomocí kódu VBA

Následující kód VBA vám může udělat laskavost, proveďte následující kroky:

1. Povolte Excel a podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Export struktury složek účtu z aplikace Outlook do aplikace 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. Ještě v Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Tools > Reference přejděte na Reference-Project1 dialogové okno a zkontrolujte Objektová knihovna Microsoft Excel možnost z nabídky Dostupné reference seznam, viz screenshot:

struktura složek pro export dokumentů do aplikace Excel 1

4. Pak klikněte na tlačítko OK a stiskněte tlačítko F5 klíč ke spuštění tohoto kódu, a Vybrat složku je vyskakovací dialogové okno, vyberte e-mailový účet, ze kterého chcete exportovat jeho strukturu složek, viz screenshot:

struktura složek pro export dokumentů do aplikace Excel 2

5. A pak klikněte OK tlačítko, a Uložit soubor Zobrazí se okno, uveďte umístění a název souboru pro tento exportovaný soubor, viz screenshot:

struktura složek pro export dokumentů do aplikace Excel 3

6. Konečně klikněte na tlačítko Uložit Tlačítko a můžete přejít na konkrétní sešit aplikace Excel, který jste uložili, a zobrazit strukturu exportovaných složek, viz screenshot:

struktura složek pro export dokumentů do aplikace Excel 4

 


Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
  • Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
  • Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.
záběr kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus karta 1180x121
 

 

Komentáře (13)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Tento kód je skvělý a funguje skvěle, děkuji.
Co by bylo ještě extra skvělé, bylo by, kdyby to mohlo ukazovat velikosti (v bajtech, kilobajtech, megabajtech, petabajtech, cokoli) a dokonce možná i počet položek pro každou složku.
:)
Tento komentář byl moderátorem webu minimalizován
Hallo, 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.
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Jörg.N
Pokud se zobrazí chybová zpráva, zkontrolujte, zda jste nevynechali krok 3 v tomto článku.
Měli byste postupovat podle kroků v článku krok za krokem, pokud problém přetrvává, napište komentář zde.
Děkuji!
Tento komentář byl moderátorem webu minimalizován
Dobrý den, udělal jsem to podle popisu. Krok 3 (MS Excel 16.0 Object Library) byl již aktivní. Zakázal jsem a později znovu povolil. Když kliknu na F5, není otázka, zda se má uložit složka. Zobrazuje se mi chybová zpráva: Chyba na řádku 40: "Fehler beim Kompilieren: Benutzerdefinierter Typ nicht definiert".
Tento komentář byl moderátorem webu minimalizován
Dobrý den, zdá se, že moje odpověď nebyla odeslána. Znovu jsem otestoval skript. Stejná chybová zpráva. Krok 3 mi nechybí. Toto téma již bylo/je aktivní. Zakázal jsem a později znovu povolil. Stejný výsledek. Vždy staví na lince 40. Nějaký nápad?
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Jörgu Normanne

Kód funguje dobře v mém Outlooku, kterou verzi Outlooku jste použili? Nebo můžete sem nahrát snímek obrazovky s chybou.
Děkuji!
Tento komentář byl moderátorem webu minimalizován
Používám Outlook z MS Office 2019 Pro plus 64bit v němčině vždy nejnovější verzi. Jak mohu poslat obrázek?
Tento komentář byl moderátorem webu minimalizován
Ahoj,
Možná byste měli povolit všechna nastavení maker, proveďte prosím toto:
Ve svém Outlooku klikněte na Soubor > možnosti > Centrum zabezpečení > Nastavení centra důvěryhodnosti > Nastavení makra, a pak zkontrolujte Povolit všechna makra a Použijte nastavení zabezpečení maker na nainstalované doplňky možnosti.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-option-setting.png

Po dokončení tohoto nastavení restartujte Outlook.

Zkuste to prosím, děkuji!
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
ich habe exakt den gleichen Fehler wie Jörg. Mám nainstalován Office Professional Plus 2021 v němčině.
Punkt 3 finde ich unter Extras - Verweise. Auch bei mir war die "MS Excel 16.0 Object Library" je aktivní, používá se k "Visual Basic for Applications", "MS Office 16.0 Object Library" a "OLE Automation".
Beim Ausführen ebenfalls der "Fehler beim Kompilieren", der Hilfe-Button verrät dann noch "Der Administrator Ihrer Organization hat den for die Verwendung dieser Funktion erforderlichen Dienst deaktiviert."
Aber welcher ist das und wo / wie kann man ihn aktivieren???
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Erichu
Možná byste měli povolit všechna nastavení maker, proveďte prosím toto:
Ve svém Outlooku klikněte na Soubor > možnosti > Centrum zabezpečení > Nastavení centra důvěryhodnosti > Nastavení makra, a pak zkontrolujte Povolit všechna makra a Použijte nastavení zabezpečení maker na nainstalované doplňky možnosti.

Po dokončení tohoto nastavení restartujte Outlook.

Zkuste to prosím, děkuji!
Tento komentář byl moderátorem webu minimalizován
Ahoj,
děkuji za rychlou odpověď. Myslím, že jsem nyní nastavil všechny potřebné možnosti. Nemohu však najít „Použít nastavení zabezpečení maker na nainstalované doplňky“
Chtěl bych poslat nějaké screenshoty, ale na této stránce nemůžu najít jak.
S pozdravem Erich Hackel
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Erichu,
Pokud nemůžete najít možnost „Použít nastavení zabezpečení maker na nainstalované doplňky“, podívejte se na níže uvedený snímek obrazovky:

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-option-setting.png
Tento komentář byl moderátorem webu minimalizován
Dále musíte jako referenci vybrat "Microsoft Outlook 16.0 Object Library".
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL