Cum să exportați rapid informațiile despre dimensiunea tuturor dosarelor dintr-un fișier PST într-un fișier Excel

Dacă doriți să verificați informațiile despre dimensiunea fiecărui folder dintr-un fișier PST, puteți utiliza metoda expusă în acest articol. Acesta va exporta rapid informațiile despre dimensiunea tuturor dosarelor dintr-un fișier PST într-un fișier Excel.

Când fișierul dvs. PST este prea mare, vă recomandăm să verificați dimensiunea fiecărui folder. Vă va ajuta să vă dați seama cu ușurință care sunt cele mai mari și să faceți o arhivare adecvată în funcție de dimensiune. În general, pentru a verifica dimensiunea folderului, puteți pur și simplu să faceți clic dreapta pe un folder și apoi să alegeți „Proprietăți”. În noua casetă de dialog pop-up, puteți face clic pe butonul „Dimensiunea folderului”. Cu toate acestea, dacă ați creat multe foldere, verificarea manuală a informațiilor despre dimensiune, una câte una, este considerabil deranjantă. Deci, dacă doriți să obțineți în serie informațiile despre dimensiunea tuturor folderelor dintr-un fișier PST, puteți utiliza următorul cod VBA. Acesta va exporta toate numele folderelor și informațiile despre dimensiune într-un fișier Excel dintr-o singură mișcare.

Exportați rapid informațiile despre dimensiunea tuturor dosarelor dintr-un fișier PST într-un fișier Excel

Exportați informațiile despre dimensiunea tuturor dosarelor dintr-un fișier PST într-un fișier Excel

  1. Pentru a starcu, lansați aplicația Outlook.
  2. Apoi comutați la fila „Dezvoltator” și faceți clic pe butonul „Visual Basic” sau apăsați tastele „Alt + F11” pentru a accesa editorul VBA.
  3. Apoi, în fereastra „Microsoft Visual Basic for Applications”, deschideți un modul care nu este utilizat.
  4. Ulterior, copiați și lipiți următoarele coduri VBA în acest modul.
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 = Create Set Outlook.Excel. objExcelWorkbook = objExcelApp.Workbooks.Add Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1") objExcelWorksheet.Cells(1, 1) = "Folder" objExcelWorksheet.Cells(1, 2) = "Setați un fișier PST sursă" = Outlook.Application.Session.PickFolder Pentru fiecare objFolder din objSourcePST.Folders Apelați ProcessFolders(objFolder) Următorul „Potriviți coloanele de la A la B objExcelWorksheet.Columns("A:B").AutoFit strExcelFile = "E:\Outlook & objSourcePST.Name & " Dimensiunea folderului (" & Format(Acum, "aaaa-mm-dd hh-mm-ss") & ").xlsx" objExcelWorkbook.Close True, strExcelFile MsgBox "Completat!", 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 ("Dimensiune") pentru fiecare objItem în obj. objItem.Size Next „Convertire octet în kilobyte „Pentru a converti în megaoctet, utilizați: „lCurrentFolderSize = (lCurrentFolderSize / 1024) / 1024 lCurrentFolderSize = lCurrentFolderSize / 1024 nNextEmptyRow = objExcelWorksheet.ExcelWorksheet). Rând + 1 ' Adăugați valorile în coloanele objExcelWorksheet.Range("A" & nNextEmptyRow) = objCurrentFolder.FolderPath objExcelWorksheet.Range("B" & nNextEmptyRow) = lCurrentFolderSize & " KB" If objCurrentFolder.ObjSubFolders.FolderF urrentFolder .Folders Apel ProcessFolders(objSubfolder) Next End If End Sub

Cod VBA - Exportați informațiile despre dimensiunea tuturor dosarelor dintr-un fișier PST într-un fișier Excel

  1. După aceea, ar trebui să setați nivelul de securitate al macrocomenzii Outlook la scăzut.
  2. În cele din urmă, puteți încerca.
  • Apăsați butonul tasta F5 în fereastra macro curentă.
  • Apoi vi se va solicita să selectați un fișier PST, cum ar fi următoarea imagine:Selectați fișierul PST
  • După selectarea unui fișier sursă, Outlook va începe să exporte informațiile despre dimensiune în Excel.
  • După terminarea macrocomenzii, primiți un mesaj precum captura de ecran de mai jos.Completa
  • În cele din urmă, veți putea găsi fișierul Excel în folderul local predefinit. Fișierul Excel va arăta astfel:Fișierul Excel final

Faceți față erorilor PST frecvente

Deoarece Outlook este predispus la erori, este posibil să fi suferit vreodată multe probleme în Outlook. Pentru a face față mai bine și mai flexibil problemelor PST frustrante, este recomandabil să păstrați un utilitar de remediere cu experiență și reputație în apropiere, cum ar fi DataNumen Outlook Repair. Este capabil să reparați PST probleme ca o briză.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv SQL Server recuperare și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com

11 răspunsuri la „Cum să exportați rapid informațiile despre dimensiunea tuturor dosarelor dintr-un fișier PST într-un fișier Excel”

  1. Folosesc VBA foarte mult în Excel, dar acesta este primul cu Outlook pentru mine.
    Când rulez codul, primesc o eroare de compilare: tip definit de utilizator nu este definit
    pentru Dim objExcelApp As Excel.Application

    Ați sugera cum să remediați acest lucru?

    Am găsit o notă despre Microsoft Solutions care a sugerat Visual Studio.
    Am descărcat Visual Studio, dar nu știu ce sarcină de lucru să aleg
    pentru a lucra cu VBA

  2. Remedierea celui de-al doilea comentariu a fost să schimb linia 26 la orice structură de foldere pe care o aveți de fapt. Acum merge la mine.

  3. Așa că am ales folderul de nivel superior, adică contul numit după adresa de e-mail, în caseta de dialog pop-up și prima mea eroare ('91') a dispărut, dar am primit o altă eroare:
    Eroare de rulare „1004:
    Microsoft Excel nu poate accesa fișierul „E:\Outlook\C8DB2300”. Acolo
    sunt mai multe motive posibile:
    • Numele fișierului sau calea nu există.
    • Fișierul este utilizat de un alt program.
    • Registrul de lucru pe care încercați să îl salvați are același nume cu a
    registru de lucru deschis în prezent.

  4. După ce am remediat eroarea de tip definită de utilizator (pentru care Tom a remediat), am primit o eroare care spune: „Eroare de rulare „91”: Variabila obiect sau Cu variabila bloc nesetata”.
    : /

  5. Acest lucru funcționează excelent, dar trage doar dimensiunea datelor locale. Îl puteți edita pentru a extrage dimensiunea datelor serverului?

  6. Acesta este un instrument extrem de util. Mulțumesc lui Shirley Zhang pentru trimiterea scenariului. Am reușit să-l extind în moduri care îmi economisesc timp în mod regulat.

  7. Acest lucru este foarte util. Există o modalitate rapidă de a adăuga o coloană pentru numărul de mesaje, în plus față de dimensiune?

  8. Vă mulțumim pentru acest script... dar vă faceți tot acest timp pentru a scrie codul APOI faceți o pagină foarte clară despre utilizarea lui... atunci când oamenii aduc erori, nu răspunzi?

    După ce am primit o eroare de tip definit de utilizator nedefinită legată de Excel.Application, am descoperit că în fereastra vba, trebuia să intru în instrumente, referințe și să mă asigur că elementul Microsoft Excel xx... a fost verificat.

    Dar apoi, după aceea, am rulat macro-ul, a rămas puțin și am primit aceeași eroare de rulare 6 overflow: (

    (după ce a primit

  9. Bună, nu am primit acea eroare și după ce am adăugat obiectul de referință Outlook, am reușit să rulez cu succes scriptul. Instrumente-> Referințe. Singura problemă pe care o am este că dimensiunea exportată în Excel nu se potrivește cu dimensiunea totală proiectată de dimensiunea folderului Outlook. Aș dori ca acesta să poată fi actualizat și, de asemenea, este necesară conversia KB în GB în Excel, astfel încât să fie codificat. Ar fi posibil să adăugați un număr de e-mailuri în fiecare folder?

  10. Buna,
    când rulez codul, primesc eroarea „runtime error 6 overflow”, am citit despre asta că s-ar putea întâmpla din cauza numărului mare de elemente pe care încerc să aplic codul, iar fișierul meu PST este imens, cum pot face o treabă?!

Lasă un comentariu

Adresa ta de email nu va fi publicată. Câmpurile obligatorii sunt marcate *