Kuidas kiiresti eksportida kõik tabelid Outlooki meilist Exceli töövihikusse VBA kaudu

Outlooki lahendused September 29, 2025

Kui soovite tabelid kiiresti Outlooki meilist Exceli faili eksportida, saate kasutada selles artiklis kirjeldatud meetodit. See kasutab VBA-d, et aidata teil seda ühe klõpsuga saavutada.

Nagu me kõik teame, on Excel loodud tabelite ja andmestatistika jaoks. Seega, kui saate meili, mis sisaldab mitut tabelit, võite soovida eksportida kõik need tabelid Exceli faili, et tabelites olevaid andmeid paremini analüüsida. Seetõttu õpetame siin teile, kuidas kiiresti eksportida kõik tabelid meilist uude Exceli töövihikusse. Nüüd lugege edasi, et saada VBA-kood ja üksikasjalikud juhised.

Kiiresti eksportige kõik tabelid Outlooki meilist VBA kaudu Exceli töövihikusse

Eksportige kõik tabelid Outlooki meilist Exceli töövihikusse

  1. Alustuseks käivitage oma Outlooki rakendus nagu tavaliselt.
  2. Seejärel vajutage Outlooki põhiaknas klahvikombinatsiooni Alt + F11.
  3. Järgmisena peaksite järgmises aknas "Microsoft Visual Basic for Applications" avama tühja mooduli.
  4. Seejärel peate sellesse moodulisse kopeerima alloleva VBA-koodi.
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

VBA kood – eksportige kõik tabelid Outlooki meilist Exceli töövihikusse

  1. Pärast seda peate kiirpääsu tööriistaribale lisama uue makro.
  2. Hiljem peaksite muutma oma Outlooki makro turvataseme madalaks.
  3. Lõpuks võite proovida.
  • Esiteks valige meililoendis lähtemeil.
  • Seejärel klõpsake kiirjuurdepääsu tööriistaribal makronuppu.Valige Saada meil ja käivita makro
  • Korraga kuvatakse uus Exceli fail.
  • Kui meilis on ainult üks tabel, eksporditakse see tabel Exceli faili esimesse töölehele, nagu järgmine ekraanipilt:Exceli töövihik
  • Kuid kui meilis on rohkem kui üks tabel, kopeeritakse iga tabel eraldi töölehel.

Vabanege õnnetu PST andmete kadumisest

Outlook on altid vigadele ja korruptsioonile. Seetõttu on PST-andmete kaitsmine ja valusa PST-andmete kadumise ärahoidmine tüütu ja vaevaline ülesanne. Esiteks peate oma PST-faile regulaarselt varundama. Lisaks peate valmistama tugevatoimelise PST parandus utiliit, nagu DataNumen Outlook Repair. See võib teid vaevata päästa igasugustest PST-probleemidest.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas rikutud sql ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.