Ako rýchlo exportovať informácie o veľkosti všetkých priečinkov v súbore PST do súboru Excel

Ak chcete skontrolovať informácie o veľkosti každého priečinka v súbore PST, môžete použiť metódu uvedenú v tomto článku. Rýchlo exportuje informácie o veľkosti všetkých priečinkov v súbore PST do súboru Excel.

Ak je váš súbor PST príliš veľký, môžete skontrolovať veľkosť každého priečinka. Pomôže vám to ľahko zistiť, ktoré sú väčšie, a urobiť vhodnú archiváciu na základe veľkosti. Všeobecne môžete skontrolovať veľkosť priečinka tak, že kliknete pravým tlačidlom myši na priečinok a potom vyberiete možnosť „Vlastnosti“. V novom vyskakovacom dialógovom okne môžete kliknúť na tlačidlo „Veľkosť priečinka“. Ak ste však vytvorili veľa priečinkov, manuálna kontrola informácií o veľkosti je značne nepríjemná. Ak teda chcete hromadne získať informácie o veľkosti všetkých priečinkov v súbore PST, môžete použiť nasledujúci kód VBA. Exportuje všetky názvy priečinkov a informácie o veľkosti do súboru programu Excel naraz.

Rýchlo exportujte informácie o veľkosti všetkých priečinkov v súbore PST do súboru Excel

Exportujte informácie o veľkosti všetkých priečinkov v súbore PST do súboru Excel

  1. K start s, spustite aplikáciu Outlook.
  2. Potom prepnite na kartu „Vývojár“ a kliknutím na tlačidlo „Visual Basic“ alebo stlačením klávesov „Alt + F11“ vstúpte do editora VBA.
  3. Ďalej v okne „Microsoft Visual Basic for Applications“ otvorte modul, ktorý sa nepoužíva.
  4. Následne skopírujte a prilepte nasledujúce kódy VBA do tohto modulu.
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.pracovať objExcelWorkbook = objExcelApp.Workbooks.Add Set objExcelWorksheet = objExcelWorkbook.Sheets ("Sheet1") objExcelWorksheet.Cells (1, 1) = "Folder" objExcelWorksheet.Cells (1, 2) = "Size" 'Vyberte zdrojový súbor PST Nastaviť objSourcePST = Outlook.Application.Session.PickFolder pre každý objFolder v objSourcePST.Folders volanie ProcessFolders (objFolder) Ďalej 'Prispôsobiť stĺpce od A po B objExcelWorksheet.Columns ("A: B"). AutoFit strExcelFile = "E: \ Outlook \" & objSourcePST.Name & "Veľkosť priečinka (" & Formát (teraz, "rrrr-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 ako dlho stlmený nNextEmptyRow ako celé číslo objCurrentFolder.Items.SetColumns ("veľkosť") pre každú objItem v objCurrentFolder.Items lCurrentFolderSize = lCurrentFolderSize + objItem.Size Ďalej 'Konvertovať bajt na kilobyte' / 1024) / 1024 lCurrentFolderSize = lCurrentFolderSize / 1024 nNextEmptyRow = objExcelWorksheet.Range ("A" & objExcelWorksheet.Rows.Count) .End (xlUp) .Row + 1 'Pridajte hodnoty do stĺpcov objExcelWorksheet "&". nNextEmptyRow) = objCurrentFolder.FolderPath objExcelWorksheet.Range ("B" & nNextEmptyRow) = lCurrentFolderSize & "KB" Ak objCurrentFolder.Folders.Count> 0 Potom Pre každý objSubfolder EndFolder EndFolderFolder.Ferer

Kód VBA - Exportujte informácie o veľkosti všetkých priečinkov v súbore PST do súboru Excel

  1. Potom by ste mali nastaviť nízku úroveň zabezpečenia makra programu Outlook.
  2. Nakoniec to môžete vyskúšať.
  • V súčasnom okne makra stlačte klávesovú skratku F5.
  • Potom sa zobrazí výzva na výber súboru PST, napríklad na nasledujúcom obrázku:Vyberte súbor PST
  • Po výbere zdrojového súboru začne Outlook exportovať informácie o veľkosti do Excelu.
  • Po dokončení makra dostanete správu, ako je napríklad snímka obrazovky nižšie.kompletné
  • Nakoniec budete môcť nájsť súbor programu Excel v preddefinovanom miestnom priečinku. Súbor Excel bude vyzerať nasledovne:Konečný súbor programu Excel

Zaoberajte sa častými chybami PST

Pretože je Outlook náchylný na chyby, môže sa stať, že ste v Outlooku niekedy utrpeli veľa problémov. Aby sme sa lepšie a pružnejšie vyrovnali s frustrujúcimi problémami s PST, je vhodné mať v blízkosti skúsenú a renomovanú pomôcku na opravu, ako napr. DataNumen Outlook Repair, Je schopný opraviť PST problémy ako vánok.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane SQL Server zotavenie a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S

11 odpovedí na „Ako rýchlo exportovať informácie o veľkosti všetkých priečinkov v súbore PST do súboru Excel“

  1. Používam VBA veľa v Exceli, ale toto je pre mňa prvý s Outlookom.
    Keď spustím váš kód, zobrazí sa chyba kompilácie: Používateľom definovaný typ nie je definovaný
    pre Dim objExcelApp Ako Excel.Aplikácia

    Poradili by ste, ako to opraviť?

    Našli ste poznámku o riešeniach spoločnosti Microsoft, ktorá navrhovala Visual Studio.
    Mám stiahnuté Visual Studio, ale neviem, aké pracovné zaťaženie si vybrať
    pracovať s VBA

  2. Opravou môjho druhého komentára bolo zmeniť riadok 26 na akúkoľvek štruktúru priečinkov, ktorú skutočne máte. Teraz mi to funguje.

  3. Vybral som teda priečinok najvyššej úrovne, tj účet pomenovaný podľa e-mailovej adresy, vo vyskakovacom dialógovom okne a moja prvá chyba ('91') zmizla, ale zobrazuje sa ďalšia chyba:
    Chyba spustenia '1004:
    Microsoft Excel nemôže získať prístup k súboru 'E:\Outlook\C8DB2300'. Tam
    existuje niekoľko možných príčin:
    • Názov súboru alebo cesta neexistuje.
    • Súbor používa iný program.
    • Zošit, ktorý sa pokúšate uložiť, má rovnaký názov ako a
    momentálne otvorený pracovný zošit.

  4. Potom, čo som opravil užívateľom definovanú chybu typu (pre ktorú dal opravu Tom) som dostal chybu, ktorá hovorí: „Chyba behu '91': Objektová premenná alebo S blokovou premennou nie je nastavená“.
    :/

  5. Funguje to skvele, ale stiahne iba veľkosť miestnych údajov. Môžete ho upraviť tak, aby vytiahol veľkosť údajov servera?

  6. Toto je veľmi užitočný nástroj. Ďakujem Shirley Zhang za odoslanie scenára. Podarilo sa mi to predĺžiť spôsobmi, ktoré mi pravidelne šetria čas.

  7. Toto je veľmi užitočné. Existuje rýchly spôsob, ako pridať okrem veľkosti aj stĺpec pre počet správ?

  8. Vďaka za tento skript... ale vy si zaberiete všetok čas na napísanie kódu, POTOM vytvoríte veľmi jasnú stránku o jeho používaní.... potom, keď ľudia uvádzajú chyby, neodpovedáte?

    Potom, čo som dostal užívateľom definovaný typ nedefinovanej chyby súvisiacej s Excel.Application, zistil som, že v okne vba som musel ísť do nástrojov, referencií a uistiť sa, že položka microsoft excel xx… bola zaškrtnutá.

    Ale potom som spustil makro, chvíľu sedelo a dostal som rovnakú chybu pretečenia runtime 6: (

    (po získaní

  9. Dobrý deň – táto chyba sa mi nezobrazila a po pridaní referenčného objektu programu Outlook sa mi podarilo úspešne spustiť skript. Nástroje-> Referencie. Jediný problém, ktorý mám, je, že veľkosť exportovaná do programu Excel nezodpovedá celkovej veľkosti projektovanej podľa veľkosti priečinka programu Outlook. Prial by som si, aby sa to dalo aktualizovať a v Exceli je potrebná aj konverzia KB na GB, takže by to malo byť kódované. Bolo by možné pridať počet e-mailov do každého priečinka?

  10. Ahoj,
    Keď spustím kód, zobrazí sa chyba „pretečenie chyby 6, pretečenie XNUMX“, prečítal som si o tom, že sa to môže stať kvôli veľkému počtu položiek, na ktoré sa pokúšam kód použiť, a môj súbor PST je obrovský, ako ho môžem vytvoriť. práca okolo ?!

Nechaj odpoveď

Vaša e-mailová adresa nebude zverejnená. Povinné položky sú označené *