PST файл дахь бүх хавтасны хэмжээ, мэдээллийг Excel файл руу хэрхэн хурдан экспортлох вэ

Outlook шийдлүүд Есдүгээр сарын 29, 2025

Хэрэв та PST файл дахь хавтас бүрийн хэмжээтэй холбоотой мэдээллийг шалгахыг хүсвэл энэ нийтлэлд ашигласан аргыг ашиглаж болно. Энэ нь PST файл дахь бүх фолдерын хэмжээг Excel файл руу хурдан экспортлох болно.

Таны PST файл хэт том байх үед та хавтас бүрийн хэмжээг шалгахыг хүсч магадгүй юм. Энэ нь танд аль нь том болохыг хялбархан олоход тусалж, хэмжээн дээр үндэслэн тохирох архивыг хийх болно. Ерөнхийдөө хавтасны хэмжээг шалгахын тулд та хавтас дээр хулганы баруун товчийг дараад “Properties” -г сонгож болно. Шинэ гарч ирэх цонхны цонхонд та "Folder Size" товчийг дарж болно. Гэсэн хэдий ч, хэрэв та олон хавтас хийсэн бол хэмжээтэй холбоотой мэдээллийг нэг бүрчлэн гараар шалгах нь нэлээд төвөгтэй байдаг. Тиймээс, хэрэв та PST файл дахь бүх фолдерын хэмжээтэй холбоотой мэдээллийг багцлан авахыг хүсвэл дараахь VBA кодыг ашиглаж болно. Энэ нь бүх фолдерын нэр, хэмжээтэй мэдээллийг нэг удаа Excel файл руу экспортлох болно.

PST файлын бүх хавтасны хэмжээтэй холбоотой мэдээллийг Excel файл болгон экспортлох

Эхлэхийн тулд Outlook програмаа ажиллуулна уу.
Дараа нь "Developer" таб руу шилжиж, "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