Outlook имэйлээс бүх хүснэгтийг VBA-аар Excel-ийн ажлын дэвтэрт хэрхэн хурдан экспортлох вэ

Хэрэв та Outlook имэйлээс хүснэгтүүдийг Excel файл руу хурдан экспортлохыг хүсвэл энэ нийтлэлд танилцуулсан аргыг ашиглаж болно. Энэ нь танд нэг товшилтоор хүрэхэд тань туслахын тулд VBA-г ашиглах болно.

Excel нь хүснэгт болон өгөгдлийн статистикт зориулагдсан гэдгийг бид бүгд мэднэ. Тиймээс, та бие дэх хэд хэдэн хүснэгт агуулсан имэйлийг хүлээн авахдаа хүснэгтэд байгаа өгөгдлийг илүү сайн шинжлэхийн тулд эдгээр бүх хүснэгтийг Excel файл руу экспортлохыг хүсч болно. Тиймээс, энд бид бүх хүснэгтийг имэйлээс Excel-ийн шинэ дэвтэр рүү хэрхэн хурдан экспортлохыг заах болно. Одоо VBA код болон дэлгэрэнгүй алхмуудыг авахын тулд уншина уу.

Outlook имэйлээс бүх хүснэгтийг Excel ажлын дэвтэр рүү экспортлох

1. Эхлээд Outlook програмаа ердийнхөөрөө эхлүүлнэ үү.
2. Дараа нь Outlook-ийн үндсэн цонхонд "Alt + F11" товчийг дарна уу.
3. Дараах "Microsoft Visual Basic for Applications" цонхны дараа та хоосон модулийг нээх хэрэгтэй.
4. Дараа нь та доорх VBA кодыг энэ модуль руу хуулах хэрэгтэй.

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 засах хэрэгсэл, гэх мэт DataNumen Outlook Repair. Энэ нь таныг PST-ийн бүх төрлийн асуудлаас амархан аварч чадна.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. эвдэрсэн кв програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com