Як швидко експортувати інформацію про розмір усіх папок у файлі PST у файл Excel

Рішення для Outlook Вересень 29, 2025

Якщо ви хочете перевірити інформацію про розмір кожної папки у файлі PST, ви можете скористатися методом, наведеним у цій статті. Він швидко експортує інформацію про розмір усіх папок у файлі PST у файл Excel.

Якщо файл PST завеликий, ви можете перевірити розмір кожної папки. Це допоможе вам легко визначити, які з них більші, і виконати відповідне архівування на основі розміру. Загалом, щоб перевірити розмір папки, ви можете просто клацнути правою кнопкою миші на папці та вибрати «Властивості». У новому спливаючому діалоговому вікні ви можете натиснути кнопку «Розмір папки». Однак, якщо ви створили багато папок, перевірка інформації про розмір одну за одною вручну є значною проблемою. Отже, якщо ви хочете пакетно отримати інформацію про розмір усіх папок у файлі PST, ви можете використати такий код VBA. Він одночасно експортує всі назви папок і інформацію про розмір у файл Excel.

Експортуйте інформацію про розмір усіх папок у файлі PST у файл Excel

Для початку запустіть програму Outlook.
Потім перейдіть на вкладку «Розробник» і натисніть кнопку «Visual Basic» або натисніть клавіші «Alt + F11», щоб отримати доступ до редактора VBA.
Далі у вікні «Microsoft Visual Basic for Applications» відкрийте модуль, який не використовується.
Згодом скопіюйте та вставте наступні коди VBA в цей модуль.

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

Після цього вам слід встановити низький рівень безпеки макросів Outlook.
Зрештою, ви можете спробувати.

Натисніть клавішу F5 у поточному вікні макросу.
Потім вам буде запропоновано вибрати файл PST, як на зображенні нижче:
Після вибору вихідного файлу Outlook почне експортувати інформацію про розмір до Excel.
Після завершення роботи макросу ви отримаєте повідомлення, як на знімку екрана нижче.
Нарешті, ви зможете знайти файл Excel у попередньо визначеній локальній папці. Файл Excel матиме такий вигляд:

Усувайте часті помилки PST

Оскільки Outlook схильний до помилок, у вас, можливо, коли-небудь виникало багато проблем із Outlook. Щоб краще й гнучкіше справлятися з розчаровуючими проблемами PST, бажано тримати поблизу досвідчену та авторитетну утиліту виправлення, таку як DataNumen Outlook Repair. Це вміє виправити PST проблеми, як вітерець.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі SQL Server відновлення та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com