Kaip greitai eksportuoti visas lenteles iš „Outlook“ el. pašto į „Excel“ darbaknygę naudojant VBA

Jei norite greitai eksportuoti lenteles iš "Outlook" el. laiško į "Excel" failą, galite naudoti šiame straipsnyje aprašytą metodą. Jis naudos VBA, kad padėtų jums tai pasiekti vienu paspaudimu.

Kaip visi žinome, „Excel“ skirta lentelėms ir duomenų statistikai. Taigi, gavę el. laišką, kuriame yra kelios lentelės, galbūt norėsite eksportuoti visas šias lenteles į Excel failą, kad galėtumėte geriau išanalizuoti lentelių duomenis. Taigi, čia mes išmokysime jus, kaip greitai eksportuoti visas lenteles iš el. laiško į naują "Excel" darbaknygę. Dabar skaitykite toliau, kad gautumėte VBA kodą ir išsamius veiksmus.

Eksportuokite visas lenteles iš „Outlook“ el. pašto į „Excel“ darbaknygę

1. Pirmiausia paleiskite „Outlook“ programą kaip įprasta.
2. Tada pagrindiniame „Outlook“ lange paspauskite klavišų kombinaciją „Alt + F11“.
3. Toliau kitame lange „Microsoft Visual Basic for Applications“ turėtumėte atidaryti tuščią modulį.
4. Vėliau į šį modulį turite nukopijuoti toliau pateiktą VBA kodą.

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. Po to turite pridėti naują makrokomandą prie greitosios prieigos įrankių juostos.
6. Vėliau turėtumėte pakeisti „Outlook“ makrokomandos saugos lygį į žemą.
7. Galų gale, jūs galite pabandyti.

• Pirmiausia el. pašto sąraše pasirinkite šaltinio el. pašto adresą.
• Tada greitosios prieigos įrankių juostoje spustelėkite makrokomandos mygtuką.
• Iš karto bus rodomas naujas „Excel“ failas.
• Jei el. laiške yra tik viena lentelė, ši lentelė bus eksportuota į pirmąjį „Excel“ failo darbalapį, kaip parodyta toliau pateiktoje ekrano kopijoje:
• Bet jei el. laiške yra daugiau nei viena lentelė, kiekviena lentelė bus nukopijuota į atskirą darbalapį.

Atsikratykite apgailėtino PST duomenų praradimo

„Outlook“ yra linkusi į klaidas ir korupciją. Todėl apsaugoti savo PST duomenis ir išvengti skausmingo PST duomenų praradimo yra varginanti ir sudėtinga užduotis. Pirma, turite reguliariai kurti atsargines PST failų kopijas. Be to, jūs turite paruošti stiprų PST taisymas naudingumas, pvz DataNumen Outlook Repair. Jis gali lengvai išgelbėti jus nuo visų rūšių PST problemų.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com