如何快速將PST文件中所有文件夾的大小信息導出到Excel文件

Outlook解決方案 2025 年 9 月 29 日

如果要檢查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