Outlook အီးမေးလ်မှ ဇယားအားလုံးကို VBA မှတစ်ဆင့် Excel Workbook သို့ အမြန်တင်ပို့နည်း

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

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

ဇယားအားလုံးကို Outlook အီးမေးလ်မှ Excel Workbook သို့ ထုတ်ယူပါ။

1. အစပိုင်းမှာတော့ ပုံမှန်အတိုင်း Outlook application ကို စတင်လိုက်ပါ။
2. ထို့နောက် ပင်မ Outlook ဝင်းဒိုးတွင် Alt + F11 ခလုတ်များကို နှိပ်ပါ။
3. နောက်တစ်ခုကတော့ အောက်ပါ “Microsoft Visual Basic for Applications” ဝင်းဒိုးမှာ ဗလာ module တစ်ခုကို ဖွင့်သင့်တယ်။
4. ထို့နောက်တွင်၊ သင်သည် အောက်ပါ VBA ကုဒ်ကို ဤ module သို့ ကူးယူရန် လိုအပ်သည်။

Sub ExportTablesinEmailtoExcel()
    Dim objMail As Outlook.MailItem
    Dim objWordDocument As Word.Document
    Dim objTable As Word.Table
    Dim lTableCount As Long
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim i As Long
 
    'Create a new excel workbook
    Set objExcelApp = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    objExcelApp.Visible = True
 
    'Get the table(s) in the selected email
    Set objMail = Outlook.Application.ActiveExplorer.Selection.item(1)
    Set objWordDocument = objMail.GetInspector.WordEditor
    lTableCount = objWordDocument.Tables.Count
 
 
    If lTableCount > 1 Then
       'If there is more than one table
       'Copy each table into separate worksheet
       For i = 1 To lTableCount
           Set objTable = objWordDocument.Tables(i)
           objTable.Range.Copy
 
           Set objExcelWorksheet = objExcelWorkbook.Sheets(i)
           objExcelWorksheet.Paste
           objExcelWorksheet.Columns.AutoFit
       Next
    Else
      'If there is only one table
      'Just copy it into the first worksheet
      Set objTable = objWordDocument.Tables(1)
      objTable.Range.Copy
 
      Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
      objExcelWorksheet.Paste
      objExcelWorksheet.Columns.AutoFit
    End If
End Sub

5. ၎င်းနောက်၊ သင်သည် Quick Access Toolbar သို့ မက်ခရိုအသစ်ကို ထည့်ရန် လိုအပ်သည်။
6. နောက်ပိုင်းတွင် သင်သည် သင်၏ Outlook မက်ခရိုလုံခြုံရေးအဆင့်ကို နိမ့်စေရန် ပြောင်းလဲသင့်သည်။
7. အဆုံးစွန်အားဖြင့်၊ သင်ကြိုးစားနိုင်သည်။

• ပထမဦးစွာ၊ အီးမေးလ်စာရင်းရှိအရင်းအမြစ်အီးမေးလ်ကိုရွေးချယ်ပါ။
• ထို့နောက် Quick Access Toolbar ရှိ မက်ခရိုခလုတ်ကို နှိပ်ပါ။
• တစ်ချိန်တည်းတွင် Excel ဖိုင်အသစ်တစ်ခုပေါ်လာလိမ့်မည်။
• အီးမေးလ်တွင် ဇယားတစ်ခုသာရှိနေပါက၊ ဤဇယားကို အောက်ဖော်ပြပါ ဖန်သားပြင်ဓာတ်ပုံကဲ့သို့ Excel ဖိုင်၏ ပထမဆုံး အလုပ်စာရွက်သို့ တင်ပို့သွားပါမည်။
• သို့သော် အီးမေးလ်တွင် ဇယားတစ်ခုထက်ပိုပါက၊ ဇယားတိုင်းကို အလုပ်စာရွက်တစ်ခုစီသို့ ကူးယူမည်ဖြစ်သည်။

စိတ်ဆင်းရဲစရာ PST ဒေတာဆုံးရှုံးမှုကို ဖယ်ရှားလိုက်ပါ။

Outlook သည် အမှားအယွင်းများနှင့် အကျင့်ပျက်ခြစားမှုများ ဖြစ်နိုင်သည်။ ထို့ကြောင့် သင်၏ PST ဒေတာကို ကာကွယ်ရန်နှင့် နာကျင်သော PST ဒေတာ ဆုံးရှုံးမှုကို ကာကွယ်ရန် ပျင်းရိပြီး ခက်ခဲသော အလုပ်ဖြစ်သည်။ ပထမဦးစွာ၊ သင်သည်သင်၏ PST ဖိုင်များကိုပုံမှန်အရန်ကူးရန်လိုအပ်သည်။ ဒါ့အပြင် အစွမ်းသတ္တိကို ပြင်ဆင်ထားဖို့ လိုပါတယ်။ PST ပြင်ဆင်ခြင်း။ utility ကို ကြိုက်တယ်။ DataNumen Outlook Repair. ၎င်းသည် သင့်အား လွယ်ကူသော PST ပြဿနာအမျိုးမျိုးမှ ကယ်တင်နိုင်သည်။

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

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