Ինչպես արագ արտահանել PST ֆայլի բոլոր թղթապանակների չափի տվյալները Excel ֆայլ

Outlook լուծումներ Սեպտեմբեր 29, 2025

Եթե ցանկանում եք ստուգել PST ֆայլի յուրաքանչյուր թղթապանակի չափը, կարող եք օգտագործել այս հոդվածում ներկայացված մեթոդը: Այն արագորեն կարտահանի PST ֆայլի բոլոր թղթապանակների չափի մասին տեղեկությունները Excel ֆայլ:

Երբ ձեր PST ֆայլը չափազանց մեծ է, կարող եք ստուգել յուրաքանչյուր թղթապանակի չափը: Դա կօգնի ձեզ հեշտությամբ պարզել, թե որոնք են ավելի մեծերը և կատարել համապատասխան արխիվացում՝ ելնելով չափից: Ընդհանուր առմամբ, թղթապանակի չափը ստուգելու համար կարող եք պարզապես աջ սեղմել թղթապանակի վրա և ընտրել «Հատկություններ»: Նոր բացվող երկխոսության վանդակում կարող եք սեղմել «Թղթապանակի չափը» կոճակը: Այնուամենայնիվ, եթե դուք ստեղծել եք բազմաթիվ թղթապանակներ, չափի մասին տեղեկատվությունը մեկ առ մեկ ձեռքով ստուգելը զգալիորեն դժվար է: Այսպիսով, եթե ցանկանում եք խմբաքանակ ստանալ PST ֆայլի բոլոր թղթապանակների չափի մասին տեղեկությունները, կարող եք օգտագործել հետևյալ VBA կոդը: Այն մեկ քայլով կարտահանի բոլոր թղթապանակների անունները և չափի տվյալները Excel ֆայլ:

Արտահանել PST ֆայլի բոլոր թղթապանակների չափի տվյալները Excel ֆայլ

Սկսելու համար գործարկեք ձեր Outlook ծրագիրը։
Այնուհետև անցեք «Developer» ներդիրին և սեղմեք «Visual Basic» կոճակը կամ սեղմեք «Alt + F11» ստեղները՝ VBA խմբագիր մուտք գործելու համար:
Հաջորդը «Microsoft Visual Basic հավելվածների համար» պատուհանում բացեք մի մոդուլ, որը չի օգտագործվում:
Դրանից հետո պատճենեք և տեղադրեք հետևյալ 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- ն քամու պես խնդիրներ:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում SQL Server վերականգնում և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com