Bir Outlook E-postasındaki Tüm Tabloları VBA Aracılığıyla Hızlı Bir Şekilde Excel Çalışma Kitabına Aktarma

Tabloları bir Outlook e-postasından bir Excel dosyasına hızlı bir şekilde vermek istiyorsanız, bu makalede açıklanan yöntemi kullanabilirsiniz. Bunu sadece tek bir tıklamayla başarmanıza yardımcı olmak için VBA'yı kullanacaktır.

Hepimizin bildiği gibi, Excel tablolar ve veri istatistikleri için tasarlanmıştır. Bu nedenle, gövdede birkaç tablo içeren bir e-posta aldığınızda, tablolardaki verileri daha iyi analiz etmek için tüm bu tabloları bir Excel dosyasına aktarmak isteyebilirsiniz. Bu nedenle, burada size bir e-postadaki tüm tabloları yeni bir Excel çalışma kitabına nasıl hızlı bir şekilde aktaracağınızı öğreteceğiz. Şimdi lütfen VBA kodunu ve ayrıntılı adımları öğrenmek için okumaya devam edin.

Tüm Tabloları Outlook E-postasından Excel Çalışma Kitabına Aktarma

1. Öncelikle, Outlook uygulamanızı her zamanki gibi başlatın.
2. Ardından ana Outlook penceresinde “Alt + F11” tuş düğmelerine basın.
3. Sonraki “Microsoft Visual Basic for Applications” penceresinde boş bir modül açmalısınız.
4. Akabinde aşağıdaki VBA kodunu bu modüle kopyalamanız gerekmektedir.

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. Bundan sonra, yeni makroyu Hızlı Erişim Araç Çubuğuna eklemeniz gerekir.
6. Daha sonra Outlook makro güvenlik düzeyinizi düşük olarak değiştirmelisiniz.
7. Sonunda, bir deneyebilirsin.

• İlk olarak, e-posta listesinden bir kaynak e-posta seçin.
• Ardından, Hızlı Erişim Araç Çubuğundaki makro düğmesini tıklayın.
• Aynı anda yeni bir Excel dosyası görüntülenecektir.
• E-postada yalnızca bir tablo varsa, bu tablo aşağıdaki ekran görüntüsü gibi Excel dosyasının ilk çalışma sayfasına aktarılacaktır:
• Ancak e-postada birden fazla tablo varsa, her tablo ayrı bir çalışma sayfasına kopyalanacaktır.

Sefil PST Veri Kaybından Kurtulun

Outlook, hatalara ve bozulmaya eğilimlidir. Bu nedenle, PST verilerinizi korumak ve sancılı PST veri kaybını önlemek sıkıcı ve meşakkatli bir iştir. Öncelikle, PST dosyalarınızı düzenli olarak yedeklemeniz gerekir. Ayrıca, güçlü bir hazırlamanız gerekir PST düzeltmesi kullanışlılık gibi DataNumen Outlook Repair. Zahmetsiz bir kolaylıkla sizi her türlü PST sorunundan kurtarabilir.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. bozuk sql ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com