Outlook ဖိုင်တွဲတစ်ခုစီရှိ ပစ္စည်းစုစုပေါင်းအရေအတွက်ကို Excel သို့ အမြန်တင်ပို့နည်း

Outlook ဖြေရှင်းချက် စက်တင်ဘာလ 29, 2025

Outlook ဖိုင်တွဲတစ်ခုစီရှိ ပစ္စည်းအရေအတွက်များအကြောင်း အစီရင်ခံစာကို ရယူလိုပါက၊ ဤဆောင်းပါးတွင် ဖော်ပြထားသည့် နည်းလမ်းကို အသုံးပြုနိုင်သည်။ ၎င်းသည် ရေတွက်ခြင်းကို လျင်မြန်စွာလုပ်ဆောင်ပြီး ရလဒ်များကို Excel ဖိုင်တစ်ခုသို့ တင်ပို့မည်ဖြစ်သည်။

ကျွန်ုပ်၏ယခင်ဆောင်းပါးတွင်-"ဖိုင်တွဲတစ်ခုရှိ ပစ္စည်းများ၏ စုစုပေါင်းအရေအတွက်နှင့် Outlook VBA မှတစ်ဆင့် ၎င်း၏ ဖိုင်တွဲခွဲများအားလုံးကို အမြန်ရယူနည်း”၊ ဖိုင်တွဲတစ်ခုရှိ ပစ္စည်းအရေအတွက်ကို ရယူရန် VBA ကို အသုံးပြု၍ နည်းလမ်းတစ်ခုကို သင်လေ့လာနိုင်သည်။ သို့သျောလညျး၊ ဆိုလိုသည်မှာ၊ သင်သည် folders အားလုံးရှိအရာများကိုရေတွက်လိုပါက folder တစ်ခုစီကိုရွေးချယ်ပြီး macro ကိုတစ်ခုပြီးတစ်ခုလုပ်ဆောင်ရမည်ဖြစ်သည်။ နည်းနည်းတော့ ပျင်းတယ်။ ထို့ကြောင့်၊ ကျွန်ုပ်တို့သည် သင့်အား အရေအတွက်အား Excel ဖိုင်တစ်ခုသို့ တင်ပို့မည့် အခြားနည်းလမ်းကို သင်ပေးပါမည်။

Outlook ဖိုင်တွဲတစ်ခုစီရှိ ပစ္စည်းစုစုပေါင်းအရေအတွက်ကို Excel သို့ တင်ပို့ပါ။

အစပိုင်းတွင်၊ သင်၏ Outlook ပရိုဂရမ်ကို စတင်ပါ။
ထို့နောက် ပင်မ Outlook ဝင်းဒိုးရှိ “Alt + F11” ခလုတ်များကို နှိပ်ပါ။
ထို့နောက် သင်အသုံးမပြုသော module တစ်ခုကိုဖွင့်ရန်လိုအပ်သည့် “Microsoft Visual Basic for Applications” ဝင်းဒိုးသို့ သင်ရောက်ရှိမည်ဖြစ်သည်။
ထို့နောက်၊ အောက်ပါ VBA ကုဒ်ကို ဤ module ထဲသို့ ကူးယူပြီး ကူးထည့်ပါ။

Public strExcelFile As String
Public objExcelApp As Excel.Application
Public objExcelWorkbook As Excel.Workbook
Public objExcelWorksheet As Excel.Worksheet

Sub Export_CountOfItems_InEachFolder_toExcel()
    Dim objSourcePST As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Create a new Excel file
    Set objExcelApp = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
    objExcelWorksheet.Cells(1, 1) = "Folder"
    objExcelWorksheet.Cells(1, 2) = "Count Items"
 
    '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 Items Count (" & 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 lCurrentFolderItemCount As Long
    Dim nLastRow As Integer
 
    lCurrentFolderItemCount = objCurrentFolder.Items.Count
 
    nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1

    'Add the values into the columns
    objExcelWorksheet.Range("A" & nLastRow) = objCurrentFolder.FolderPath
    objExcelWorksheet.Range("B" & nLastRow) = lCurrentFolderItemCount
 
    If objCurrentFolder.folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

၎င်းနောက်၊ သင်သည်သင်၏ Outlook မက်ခရိုလုံခြုံရေးအဆင့်ကိုနိမ့်သောသို့ပြောင်းရန်လိုအပ်သည်။
ထို့နောက် အသစ်ထည့်ထားသော macro သို့ ပြန်သွားပြီး ဤ macro ကို run ရန် F5 ခလုတ်ကို နှိပ်ပါ။
ထို့နောက်သင်သည်အရင်းအမြစ် PST ဖိုင်ကိုရွေးချယ်ပြီး "OK" ကိုနှိပ်ရန်လိုအပ်သည်။
မက်ခရို ပြီးပါက၊ သင်သည် အောက်ဖော်ပြပါ ဖန်သားပြင်ပုံကဲ့သို့ ဖြစ်နေမည့် Excel ဖိုင်အသစ်ကို ရှာဖွေရန် ကြိုတင်သတ်မှတ်ထားသော စက်တွင်းဖိုင်တွဲသို့ သွားနိုင်သည်။

စိတ်အနှောင့်အယှက်ဖြစ်စေသော PST အမှားများကို ဖြေရှင်းပါ။

Outlook ကိုအသုံးပြုနေစဉ်အတွင်း ပြဿနာအမျိုးမျိုးကို သင်ကြုံတွေ့ခဲ့ရပေမည်။ အသေးအမွှားကိစ္စတွေကို ကိုင်တွယ်ဖြေရှင်းဖို့ ရိုးရှင်းစွာ အသုံးချနိုင်ပါတယ်။ inbox ပြုပြင်ရေးကိရိယာ. မည်သို့ပင်ဆိုစေကာမူ၊ ၎င်းတို့သည် inbuilt tool လုပ်နိုင်သည်ထက်ကျော်လွန်၍ ပြဿနာများအလွန်ပြင်းထန်ပါက၊ သင်ပိုမိုအားကောင်းသည့် tool ကိုအသုံးပြုရမည်ဖြစ်ပါသည်။ DataNumen Outlook Repair.

စာရေးသူနိဒါန်း:

Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ mdf ပြုပြင်ခြင်း။ နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com

မှတ်ချက်များကိုပိတ်ထားကြသည်။