Kuidas eksportida oma Outlooki faili kaustastruktuur Excelisse

Kui soovite oma Outlooki andmefaili kaustastruktuuri kiiresti eksportida Exceli töövihikusse, saate kasutada selles artiklis kirjeldatud meetodit.

Mõnel põhjusel, näiteks praeguste Outlooki kaustade ja alamkaustade logimisel, loodavad paljud kasutajad eksportida Outlooki faili kaustastruktuuri välisesse faili, näiteks Exceli töövihikusse. Järgnevalt jagame teile osa VBA koodist, mis aitab teil selle hetkega saavutada.

Eksportige oma Outlooki faili kaustastruktuur Excelisse

1. Et start koos käivitage oma Outlooki rakendus.
2. Seejärel vajutage Outlooki põhiaknas klahvikombinatsiooni Alt + F11.
3. Järgmisena sisenete Outlooki VBA redaktorisse, milles peaksite avama kasutamata mooduli.
4. Seejärel saate sellesse moodulisse kopeerida järgmise VBA koodi.

Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet
Dim lMainFolder As Long

Sub ExportFolderStructureToExcel()
    Dim objSourcePSTFile As Folder
 
    'Add a new Excel workbook
    Set objExcelApp = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
 
    With objExcelWorksheet
         .Cells(1, 1) = "Folder Structure"
         .Cells(1, 1).Font.Size = 14
         .Cells(1, 1).Font.Bold = True
    End With
 
    'Select an Outlook PST file
    Set objSourcePSTFile = Application.Session.PickFolder
 
    lMainFolder = Len(objSourcePSTFile.FolderPath) - Len(Replace(objSourcePSTFile.FolderPath, "\", "")) + 1
 
    Call ExportToExcel(objSourcePSTFile.FolderPath, objSourcePSTFile.Name)
    Call ProcessFolders(objSourcePSTFile.Folders)
 
    'Save this Excel workbook
    objExcelWorksheet.Columns("A").AutoFit
    strExcelFile = "E:\Folder Structure (" & Format(Now, "yyyymmddhhmmss") & ").xlsx"
    objExcelWorkbook.Close True, strExcelFile

    MsgBox "Complete!", vbExclamation
End Sub

Sub ProcessFolders(ByVal objFolders As Folders)
    Dim objFolder As Folder
 
    'Process all folders recursively
    For Each objFolder In objFolders
        If objFolder.Name <> "Conversation Action Settings" And objFolder.Name <> "Quick Step Settings" Then
           Call ExportToExcel(objFolder.FolderPath, objFolder.Name)
           Call ProcessFolders(objFolder.Folders)
        End If
    Next
End Sub

Sub ExportToExcel(ByRef strFolderPath As String, strFolderName As String)
    Dim i, n As Long
    Dim strPrefix As String
    Dim nLastRow As Integer
 
    i = Len(strFolderPath) - Len(Replace(strFolderPath, "\", ""))
    For n = lMainFolder To i
        strPrefix = strPrefix & "-"
    Next
    strFolderName = strPrefix & strFolderName
 
    'Input the folder name in Excel
    nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
    objExcelWorksheet.Range("A" & nLastRow) = strFolderName
End Sub

5. Pärast seda peaksite veenduma, et Outlook on makrod lubanud.
6. Lõpuks saate pildistada:

• Praeguses makroaknas vajutage klahvi F5 nuppu.
• Kui makro on lõpetatud, kuvatakse hoiatus „Lõpeta”.
• Hiljem saate uue Exceli faili leidmiseks suunduda eelmääratletud kohalikku kausta. Avage see ja see näeb välja nagu järgmine ekraanipilt:

Ärge kunagi jätke tähelepanuta Outlooki vigu

Vaatamata paljudele võimalustele on Outlook sama vastuvõtlik vigadele ja korruptsioonile kui teised e-posti kliendid. Seetõttu peaksite oma Outlookis kõiki vigu tähtsustama. Ärge jätke neid tähelepanuta, palun. Vastasel juhul võivad kuhjuvad vead viia Outlooki lõpuks korruptsioonini. Kui puutute kokku sõlmeliste vigadega, on soovitatav kasutada võimsat tööriista, näiteks DataNumen Outlook Repair, mis võib Outlooki parandamine vead mõne sekundi jooksul.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql taastamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom