Outlook’ta e-posta gövdesindeki tabloyu Excel’e nasıl dışa aktarabilirim?

Gövdesinde birden fazla tablo içeren bir e-posta aldığınızda, bu tabloların tamamını Excel çalışma sayfasına aktarma ihtiyacınız olabilir. Tabloları tek tek kopyalayıp yapıştırabilirsiniz; ancak özellikle birden fazla tabloyu dışa aktarmanız gerekiyorsa işinizi kolaylaştıracak kullanışlı bir yöntemden bahsedeceğiz.

Outlook mesaj gövdesindeki tüm tabloları VBA koduyla Excel çalışma sayfasına aktarma

---

Outlook mesaj gövdesindeki tüm tabloları VBA koduyla Excel çalışma sayfasına aktarma

Lütfen aşağıdaki VBA kodunu kullanarak, bir mesaj gövdesindeki tüm tabloları Excel çalışma sayfasına aktarın.

1. Tabloları dışa aktarmak istediğiniz iletiyi açın ve ardından "ALT" + "F11" tuşlarına basarak "Microsoft Visual Basic for Applications" penceresini açın.

2. "Ekle" > "Modül" seçeneğine tıklayıp aşağıdaki kodu "Modül" penceresine yapıştırın.

VBA kodu: Mesaj gövdesindeki tüm tabloları Excel çalışma sayfasına aktarma

Sub ImportTableToExcel()
Dim xMailItem As MailItem
Dim xTable As Word.Table
Dim xDoc As Word.Document
Dim xExcel As Excel.Application
Dim xWb As Workbook
Dim xWs As Worksheet
Dim I As Integer
Dim xRow As Integer
On Error Resume Next
Set xExcel = New Excel.Application
Set xWb = xExcel.Workbooks.Add
xExcel.Visible = True
Set xWs = xWb.Sheets(1)
xRow = 1
For Each xMailItem In Application.ActiveExplorer.Selection
    Set xDoc = xMailItem.GetInspector.WordEditor
    For I = 1 To xDoc.Tables.Count
        Set xTable = xDoc.Tables(I)
        xTable.Range.Copy
        xWs.Paste
        xRow = xRow + xTable.Rows.Count + 1
        xWs.Range("A" & CStr(xRow)).Select
    Next
Next
End Sub

3. Yukarıdaki kodu yapıştırdıktan sonra hâlâ "Microsoft Visual Basic for Applications" penceresindeyken, "Araçlar" > "Referanslar" seçeneğine tıklayarak "Referanslar – Proje1" iletişim kutusunu açın ve "Kullanılabilir Referanslar" listesinden hem "Microsoft Word Object Library" hem de "Microsoft Excel Object Library" öğelerini işaretleyin; ekran görüntüsüne göz atın:

4. Ardından iletişim kutusundan çıkmak için "Tamam" düğmesine tıklayın ve kodu çalıştırmak için "F5" tuşuna basın. Mesaj gövdesindeki tüm tablolar, aşağıdaki ekran görüntüsünde gösterildiği gibi yeni bir çalışma kitabına aktarılmıştır: