Kuinka viedä nopeasti kaikki taulukot Outlook-sähköpostista Excel-työkirjaan VBA:n kautta

Jos haluat viedä taulukot nopeasti Outlook-sähköpostista Excel-tiedostoon, voit käyttää tässä artikkelissa esiteltyä menetelmää. Se käyttää VBA:ta auttamaan sinua saavuttamaan tämän yhdellä napsautuksella.

Kuten kaikki tiedämme, Excel on suunniteltu taulukoita ja tilastotietoja varten. Siten, kun saat sähköpostin, joka sisältää useita taulukoita rungossa, saatat haluta viedä kaikki nämä taulukot Excel-tiedostoon, jotta voit analysoida paremmin taulukoiden tietoja. Siksi tässä opetamme kuinka nopeasti viedä kaikki taulukot sähköpostista uuteen Excel-työkirjaan. Lue nyt saadaksesi VBA-koodin ja yksityiskohtaiset vaiheet.

Vie kaikki taulukot Outlook-sähköpostista Excel-työkirjaan

1. Aloita käynnistämällä Outlook-sovelluksesi normaalisti.
2. Paina sitten Outlookin pääikkunassa ”Alt + F11” -näppäimiä.
3. Seuraavaksi seuraavassa "Microsoft Visual Basic for Applications" -ikkunassa sinun pitäisi avata tyhjä moduuli.
4. Myöhemmin sinun on kopioitava alla oleva VBA-koodi tähän moduuliin.

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. Sen jälkeen sinun on lisättävä uusi makro Quick Access Toolbariin.
6. Myöhemmin sinun tulee muuttaa Outlook-makrosi suojaustaso alhaiseksi.
7. Lopulta voit kokeilla.

• Valitse ensin sähköpostiluettelosta lähdesähköposti.
• Napsauta sitten pikakäynnistystyökalurivin makropainiketta.
• Uusi Excel-tiedosto tulee heti näkyviin.
• Jos sähköpostissa on vain yksi taulukko, tämä taulukko viedään Excel-tiedoston ensimmäiseen taulukkoon, kuten seuraava kuvakaappaus:
• Mutta jos sähköpostissa on useampi kuin yksi taulukko, jokainen taulukko kopioidaan yksittäiselle laskentataulukolle.

Päästä eroon kurjasta PST-tietojen katoamisesta

Outlook on altis virheille ja korruptiolle. Siksi PST-tietojen suojaaminen ja tuskallisen PST-tietojen katoamisen välttäminen on työlästä ja työlästä. Ensinnäkin sinun on varmuuskopioitava PST-tiedostosi säännöllisesti. Lisäksi sinun on valmistettava voimakas PST-korjaus apuohjelma, kuten DataNumen Outlook Repair. Se voi pelastaa sinut kaikenlaisista PST-ongelmista vaivattomasti.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien vioittunut sql ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com