Si të eksportoni shpejt të gjitha tabelat nga një email i Outlook në një libër pune në Excel përmes VBA

Nëse dëshironi të eksportoni shpejt tabelat nga një email i Outlook në një skedar Excel, mund të përdorni metodën e prezantuar në këtë artikull. Ai do të përdorë VBA për t'ju ndihmuar ta arrini këtë vetëm me një klik.

Siç e dimë të gjithë, Excel është krijuar për tabela dhe statistika të të dhënave. Kështu, kur merrni një email që përmban disa tabela në trup, mund të dëshironi t'i eksportoni të gjitha këto tabela në një skedar Excel në mënyrë që të analizoni më mirë të dhënat në tabela. Prandaj, këtu do t'ju mësojmë se si të eksportoni shpejt të gjitha tabelat nga një email në një libër të ri pune në Excel. Tani ju lutemi lexoni për të marrë kodin VBA dhe hapat e detajuar.

Eksporto të gjitha tabelat nga një email i Outlook në një libër pune në Excel

1. Për të filluar, nisni aplikacionin Outlook si zakonisht.
2. Pastaj në dritaren kryesore të Outlook, shtypni butonat "Alt + F11".
3. Më pas në dritaren e mëposhtme "Microsoft Visual Basic për Aplikacione", duhet të hapni një modul bosh.
4. Më pas, duhet të kopjoni kodin VBA më poshtë në këtë 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. Pas kësaj, duhet të shtoni makro të re në shiritin e veglave të aksesit të shpejtë.
6. Më vonë duhet të ndryshoni nivelin e sigurisë makro të Outlook në nivel të ulët.
7. Në fund të fundit, mund të provoni.

• Së pari, zgjidhni një email burim në listën e postës elektronike.
• Pastaj klikoni butonin makro në shiritin e veglave të aksesit të shpejtë.
• Menjëherë do të shfaqet një skedar i ri Excel.
• Nëse ka vetëm një tabelë në email, kjo tabelë do të eksportohet në fletën e parë të punës të skedarit Excel, si pamja e mëposhtme e ekranit:
• Por nëse ka më shumë se një tabelë në email, çdo tabelë do të kopjohet në një fletë pune individuale.

Hiqni qafe humbjen e mjerueshme të të dhënave PST

Outlook është i prirur ndaj gabimeve dhe korrupsionit. Prandaj, është një detyrë e lodhshme dhe e mundimshme për të mbrojtur të dhënat tuaja PST dhe për të shmangur humbjen e dhimbshme të të dhënave PST. Së pari, duhet të kopjoni rregullisht skedarët tuaj PST. Për më tepër, ju duhet të përgatisni një potent Rregullim PST dobi, si DataNumen Outlook Repair. Mund t'ju shpëtojë nga të gjitha llojet e problemeve të PST me lehtësi të lehtë.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë sql i korruptuar dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com