როგორ სწრაფად მოხდეს ყველა ცხრილის ექსპორტი Outlook ელფოსტიდან Excel სამუშაო წიგნში VBA-ს საშუალებით

Outlook Solutions სექტემბერი 29, 2025

თუ გსურთ ცხრილების სწრაფი ექსპორტი Outlook ელფოსტიდან Excel ფაილში, შეგიძლიათ გამოიყენოთ ამ სტატიაში დანერგილი მეთოდი. ის გამოიყენებს VBA-ს, რათა დაგეხმაროთ ამის მიღწევაში მხოლოდ ერთი დაწკაპუნებით.

როგორც ყველამ ვიცით, Excel განკუთვნილია ცხრილებისა და მონაცემთა სტატისტიკისთვის. ამრიგად, როდესაც თქვენ მიიღებთ ელ.წერილს, რომელიც შეიცავს რამდენიმე ცხრილს სხეულში, შეიძლება გსურდეთ ყველა ეს ცხრილის ექსპორტი Excel ფაილში, რათა უკეთ გაანალიზოთ ცხრილების მონაცემები. აქედან გამომდინარე, აქ ჩვენ გასწავლით, თუ როგორ სწრაფად გაიტანოთ ყველა ცხრილი ელფოსტიდან ახალ Excel სამუშაო წიგნში. ახლა გთხოვთ წაიკითხოთ VBA კოდის და დეტალური ნაბიჯების მისაღებად.

ყველა ცხრილის ექსპორტი Outlook ელფოსტიდან Excel სამუშაო წიგნში

დასაწყისისთვის, გაუშვით თქვენი Outlook აპლიკაცია ჩვეულებისამებრ.
შემდეგ Outlook-ის მთავარ ფანჯარაში დააჭირეთ ღილაკს "Alt + F11".
შემდეგ "Microsoft Visual Basic აპლიკაციებისთვის" ფანჯარაში, თქვენ უნდა გახსნათ ცარიელი მოდული.
შემდგომში, თქვენ უნდა დააკოპიროთ ქვემოთ მოცემული VBA კოდი ამ მოდულში.

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

ამის შემდეგ, თქვენ უნდა დაამატოთ ახალი მაკრო Quick Access Toolbar-ში.
მოგვიანებით თქვენ უნდა შეცვალოთ თქვენი Outlook მაკრო უსაფრთხოების დონე დაბალზე.
საბოლოო ჯამში, შეგიძლიათ სცადოთ.

პირველ რიგში, აირჩიეთ წყაროს ელფოსტა ელფოსტის სიაში.
შემდეგ დააჭირეთ მაკრო ღილაკს სწრაფი წვდომის ხელსაწყოთა ზოლში.
ერთდროულად გამოჩნდება ახალი Excel ფაილი.
თუ ელფოსტაში მხოლოდ ერთი ცხრილია, ეს ცხრილი ექსპორტირებული იქნება Excel ფაილის პირველ სამუშაო ფურცელში, როგორიცაა შემდეგი ეკრანის სურათი:
მაგრამ თუ ელფოსტაში ერთზე მეტი ცხრილია, ყველა ცხრილი დაკოპირდება ინდივიდუალურ სამუშაო ფურცელში.

მოიშორეთ უბედური PST მონაცემთა დაკარგვა

Outlook მიდრეკილია შეცდომებისა და კორუფციისკენ. ამიტომ, დამღლელი და შრომატევადი ამოცანაა თქვენი PST მონაცემების დაცვა და PST მონაცემთა მტკივნეული დაკარგვის თავიდან აცილება. უპირველეს ყოვლისა, რეგულარულად უნდა შექმნათ თქვენი PST ფაილების სარეზერვო ასლი. უფრო მეტიც, თქვენ უნდა მოამზადოთ ძლიერი PST შესწორება სასარგებლო, როგორიცაა DataNumen Outlook Repair. მას შეუძლია გიხსნას ყველა სახის PST პრობლემებისგან ძალისხმევის გარეშე.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის დაზიანებული sql და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად