Kako hitro izvoziti podatke o velikosti vseh map v datoteki PST v datoteko Excel

Če želite preveriti podatke o velikosti vsake mape v datoteki PST, lahko uporabite metodo, predstavljeno v tem članku. Podatke o velikosti vseh map v datoteki PST bo hitro izvozil v datoteko Excel.

Ko je vaša datoteka PST prevelika, boste morda želeli preveriti velikost vsake mape. Z lahkoto boste ugotovili, kateri so večji, in na podlagi velikosti ustrezno arhivirali. Na splošno lahko preverite velikost mape tako, da z desno miškino tipko kliknete mapo in nato izberete »Lastnosti«. V novem pojavnem pogovornem oknu lahko kliknete gumb »Velikost mape«. Če pa ste ustvarili veliko map, je ročno preverjanje podatkov o velikosti eno za drugo precej težavno. Torej, če želite paketno pridobiti podatke o velikosti vseh map v datoteki PST, lahko uporabite naslednjo kodo VBA. Izvozil bo vsa imena map in podatke o velikosti v Excelovo datoteko naenkrat.

Izvozite podatke o velikosti vseh map v datoteki PST v datoteko Excel

1. Za začetek zaženite aplikacijo Outlook.
2. Nato preklopite na zavihek »Razvijalec« in kliknite gumb »Visual Basic« ali pritisnite tipki »Alt + F11« za dostop do urejevalnika VBA.
3. Nato v oknu »Microsoft Visual Basic for Applications« odprite modul, ki ni v uporabi.
4. Nato v ta modul kopirajte in prilepite naslednje kode 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

5. Po tem nastavite raven varnosti makra Outlook na nizko.
6. Sčasoma lahko poskusite.

• V trenutnem oknu makra pritisnite tipko F5.
• Nato boste morali izbrati datoteko PST, kot je naslednja slika:
• Po izbiri izvorne datoteke bo Outlook začel izvažati podatke o velikosti v Excel.
• Ko se makro konča, prejmete sporočilo, podobno spodnjemu posnetku zaslona.
• Nazadnje boste lahko našli datoteko Excel v vnaprej določeni lokalni mapi. Excelova datoteka bo videti takole:

Ukvarjajte se s pogostimi napakami PST

Ker je Outlook nagnjen k napakam, ste morda kdaj imeli veliko težav z Outlookom. Za boljše in bolj prilagodljivo obvladovanje frustrirajočih težav s PST je priporočljivo imeti v bližini izkušen in ugleden pripomoček za popravke, kot je npr. DataNumen Outlook Repair. To zmore popraviti PST težave kot sapica.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z SQL Server okrevanje in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com