Kā ātri eksportēt visas tabulas no Outlook e-pasta uz Excel darbgrāmatu, izmantojot VBA

Ja vēlaties ātri eksportēt tabulas no Outlook e-pasta uz Excel failu, varat izmantot šajā rakstā aprakstīto metodi. Tas izmantos VBA, lai palīdzētu jums to sasniegt ar vienu klikšķi.

Kā mēs visi zinām, programma Excel ir paredzēta tabulām un datu statistikai. Tādējādi, saņemot e-pasta ziņojumu, kura pamattekstā ir vairākas tabulas, iespējams, vēlēsities eksportēt visas šīs tabulas uz Excel failu, lai labāk analizētu tabulu datus. Tāpēc šeit mēs iemācīsim, kā ātri eksportēt visas tabulas no e-pasta uz jaunu Excel darbgrāmatu. Tagad, lūdzu, lasiet tālāk, lai iegūtu VBA kodu un detalizētas darbības.

Eksportējiet visas tabulas no Outlook e-pasta uz Excel darbgrāmatu

1. Lai sāktu, palaidiet savu Outlook lietojumprogrammu kā parasti.
2. Pēc tam galvenajā Outlook logā nospiediet taustiņu pogas “Alt + F11”.
3. Nākamajā logā “Microsoft Visual Basic for Applications” ir jāatver tukšs modulis.
4. Pēc tam jums ir jāiekopē tālāk esošais VBA kods šajā modulī.

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. Pēc tam ātrās piekļuves rīkjoslai jāpievieno jaunais makro.
6. Vēlāk jums vajadzētu mainīt Outlook makro drošības līmeni uz zemu.
7. Galu galā jūs varētu mēģināt.

• Pirmkārt, e-pasta sarakstā atlasiet avota e-pastu.
• Pēc tam ātrās piekļuves rīkjoslā noklikšķiniet uz makro pogas.
• Tūlīt tiks parādīts jauns Excel fails.
• Ja e-pastā ir tikai viena tabula, šī tabula tiks eksportēta Excel faila pirmajā darblapā, piemēram, šajā ekrānuzņēmumā:
• Bet, ja e-pastā ir vairāk nekā viena tabula, katra tabula tiks kopēta atsevišķā darblapā.

Atbrīvojieties no nožēlojamā PST datu zuduma

Outlook ir pakļauta kļūdām un korupcijai. Tāpēc PST datu aizsardzība un sāpīga PST datu zuduma novēršana ir nogurdinošs un grūts uzdevums. Pirmkārt, jums regulāri jādublē PST faili. Turklāt jums ir jāsagatavo spēcīgs līdzeklis PST labojums lietderība, piemēram DataNumen Outlook Repair. Tas var bez piepūles izglābt jūs no visa veida PST problēmām.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sabojāts sql un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar