Cara Cepat Mengeksport Maklumat Ukuran Semua Folder dalam Fail PST ke Fail Excel

Sekiranya anda ingin memeriksa maklumat ukuran setiap folder dalam fail PST, anda boleh menggunakan kaedah yang dinyatakan dalam artikel ini. Ia akan dengan cepat mengeksport maklumat ukuran semua folder dalam fail PST ke fail Excel.

Apabila fail PST anda terlalu besar, anda mungkin ingin memeriksa ukuran setiap folder. Ini akan membantu anda mengetahui mana yang lebih besar dan membuat pengarkiban yang sesuai berdasarkan ukurannya. Secara umum, untuk memeriksa ukuran folder, anda cukup klik kanan pada folder dan kemudian pilih "Properties". Dalam kotak dialog pop timbul baru, anda dapat mengklik butang "Folder Size". Namun, jika anda telah membuat banyak folder, memeriksa maklumat ukuran satu persatu secara manual sangat menyusahkan. Jadi, jika anda ingin mendapatkan maklumat ukuran semua folder dalam satu fail PST, anda boleh menggunakan kod VBA berikut. Ia akan mengeksport semua nama folder dan maklumat ukuran ke fail Excel sekali gus.

Eksport Maklumat Ukuran Semua Folder dalam Fail PST ke Fail Excel

1. Untuk bermula, lancarkan aplikasi Outlook anda.
2. Kemudian beralih ke tab "Pembangun" dan klik butang "Visual Basic" atau tekan kekunci "Alt + F11" untuk mengakses editor VBA.
3. Selanjutnya di tetingkap "Microsoft Visual Basic for Applications", buka modul yang tidak digunakan.
4. Selepas itu, salin dan tampal kod VBA berikut ke dalam modul ini.

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. Selepas itu, anda harus menetapkan tahap keselamatan makro Outlook anda menjadi rendah.
6. Akhirnya, anda boleh mencuba.

• Tekan butang kekunci F5 di tetingkap makro semasa.
• Kemudian anda akan diminta untuk memilih fail PST, seperti gambar berikut:
• Setelah memilih fail sumber, Outlook akan mula mengeksport maklumat ukuran ke Excel.
• Setelah makro selesai, anda akan menerima mesej seperti tangkapan skrin di bawah.
• Terakhir, anda akan dapat mencari fail Excel dalam folder tempatan yang telah ditetapkan. Fail Excel akan kelihatan seperti berikut:

Tangani Kesalahan PST Kerap

Oleh kerana Outlook terdedah kepada kesilapan, anda mungkin pernah mengalami banyak masalah dalam Outlook anda. Untuk mengatasi masalah PST yang mengecewakan dengan lebih baik dan fleksibel, disarankan untuk menjaga utiliti perbaikan yang berpengalaman dan bereputasi di sekitarnya, seperti DataNumen Outlook Repair. Ia mampu betulkan PST masalah seperti angin.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk SQL Server pemulihan dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com