Ako rýchlo exportovať informácie o veľkosti všetkých priečinkov v súbore PST do súboru Excel

Ak chcete skontrolovať informácie o veľkosti každého priečinka v súbore PST, môžete použiť metódu uvedenú v tomto článku. Rýchlo exportuje informácie o veľkosti všetkých priečinkov v súbore PST do súboru Excel.

Ak je váš súbor PST príliš veľký, môžete skontrolovať veľkosť každého priečinka. Pomôže vám to ľahko zistiť, ktoré sú väčšie, a urobiť vhodnú archiváciu na základe veľkosti. Všeobecne môžete skontrolovať veľkosť priečinka tak, že kliknete pravým tlačidlom myši na priečinok a potom vyberiete možnosť „Vlastnosti“. V novom vyskakovacom dialógovom okne môžete kliknúť na tlačidlo „Veľkosť priečinka“. Ak ste však vytvorili veľa priečinkov, manuálna kontrola informácií o veľkosti je značne nepríjemná. Ak teda chcete hromadne získať informácie o veľkosti všetkých priečinkov v súbore PST, môžete použiť nasledujúci kód VBA. Exportuje všetky názvy priečinkov a informácie o veľkosti do súboru programu Excel naraz.

Exportujte informácie o veľkosti všetkých priečinkov v súbore PST do súboru Excel

1. Najprv spustite aplikáciu Outlook.
2. Potom prepnite na kartu „Vývojár“ a kliknutím na tlačidlo „Visual Basic“ alebo stlačením klávesov „Alt + F11“ vstúpte do editora VBA.
3. Ďalej v okne „Microsoft Visual Basic for Applications“ otvorte modul, ktorý sa nepoužíva.
4. Následne skopírujte a prilepte nasledujúce kódy VBA do tohto modulu.

Dim strExcelFile As String
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet

Sub ExportFodlerSizetoExcel()
    Dim objSourcePST As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    Set objExcelApp = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
    objExcelWorksheet.Cells(1, 1) = "Folder"
    objExcelWorksheet.Cells(1, 2) = "Size"
 
    'Select a source PST file
    Set objSourcePST = Outlook.Application.Session.PickFolder

    For Each objFolder In objSourcePST.Folders
        Call ProcessFolders(objFolder)
    Next
 
    'Fit the columns from A to B
    objExcelWorksheet.Columns("A:B").AutoFit
 
    strExcelFile = "E:\Outlook\" & objSourcePST.Name & " Folder Size (" & Format(Now, "yyyy-mm-dd hh-mm-ss") & ").xlsx"
    objExcelWorkbook.Close True, strExcelFile

    MsgBox "Complete!", vbExclamation
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objItem As Object
    Dim lCurrentFolderSize As Long
    Dim nNextEmptyRow As Integer
 
    objCurrentFolder.Items.SetColumns ("Size")
    For Each objItem In objCurrentFolder.Items
        lCurrentFolderSize = lCurrentFolderSize + objItem.Size
    Next
 
    'Convert byte to kilobyte
    'To convert to megabyte, use:
    'lCurrentFolderSize = (lCurrentFolderSize / 1024) / 1024
    lCurrentFolderSize = lCurrentFolderSize / 1024
 
    nNextEmptyRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1

    'Add the values into the columns
    objExcelWorksheet.Range("A" & nNextEmptyRow) = objCurrentFolder.FolderPath
    objExcelWorksheet.Range("B" & nNextEmptyRow) = lCurrentFolderSize & " KB"
 
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

5. Potom by ste mali nastaviť nízku úroveň zabezpečenia makra programu Outlook.
6. Nakoniec to môžete vyskúšať.

• V súčasnom okne makra stlačte klávesovú skratku F5.
• Potom sa zobrazí výzva na výber súboru PST, napríklad na nasledujúcom obrázku:
• Po výbere zdrojového súboru začne Outlook exportovať informácie o veľkosti do Excelu.
• Po dokončení makra dostanete správu, ako je napríklad snímka obrazovky nižšie.
• Nakoniec budete môcť nájsť súbor programu Excel v preddefinovanom miestnom priečinku. Súbor Excel bude vyzerať nasledovne:

Zaoberajte sa častými chybami PST

Pretože je Outlook náchylný na chyby, môže sa stať, že ste v Outlooku niekedy utrpeli veľa problémov. Aby sme sa lepšie a pružnejšie vyrovnali s frustrujúcimi problémami s PST, je vhodné mať v blízkosti skúsenú a renomovanú pomôcku na opravu, ako napr. DataNumen Outlook Repair, Je schopný opraviť PST problémy ako vánok.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane SQL Server zotavenie a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S