Outlook'ta excel için e-posta gövde tablosu nasıl dışa aktarılır?
Gövdede bazı tablolar içeren bir E-posta aldığınızda, bazen tüm tabloları ileti gövdesinden bir excel çalışma sayfasına aktarmanız gerekebilir. Normalde, tabloları çalışma sayfasına kopyalayıp yapıştırabilirsiniz, ancak burada, dışa aktarılması gereken birden fazla tablo olduğunda bu işi çözmek için yararlı bir yöntemden bahsedeceğim.
Outlook ileti gövdesindeki tüm tabloları VBA kodu ile Excel çalışma sayfasına aktarın
Outlook ileti gövdesindeki tüm tabloları VBA kodu ile Excel çalışma sayfasına aktarın
Tüm tabloları bir ileti gövdesinden Excel çalışma sayfasına aktarmak için lütfen aşağıdaki VBA kodunu uygulayın.
1. Tabloları dışa aktarmak istediğiniz mesajı açın ve ardından ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül pencere.
VBA kodu: Tüm tabloları ileti gövdesinden excel çalışma sayfasına aktarın:
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 hala Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Tools > Referanslar gitmek için Referanslar-Proje1 iletişim kutusu ve kontrol edin Microsoft Word Nesne Kitaplığı ve Microsoft Excel Nesne Kitaplığı Seçeneklerden Mevcut Referanslar liste kutusu, ekran görüntüsüne bakın:
4. Sonra tıklayın OK iletişim kutusundan çıkmak için düğmesine basın ve şimdi lütfen F5 kodu çalıştırmak için anahtar, ileti gövdesindeki tüm tablolar aşağıdaki ekran görüntüsü gibi yeni bir çalışma kitabına aktarılmıştır:
En İyi Ofis Üretkenlik Araçları
Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik
🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...
???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Planla / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik İletme (Gelişmiş Kurallar) / Otomatik Karşılama Ekleme / Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...
📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın / Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin / Yinelenen E-postaları Silin / gelişmiş Arama / Klasörleri Birleştir ...
📁 Ekler Pro: Toplu Kaydetme / Toplu Ayır / Toplu Sıkıştırma / Otomatik kaydet / Otomatik Ayır / Otomatik Sıkıştır ...
🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji / Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın / Outlook'u Kapatmak Yerine Küçültün ...
👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla / Kimlik Avına Karşı E-postalar / 🕘Gönderenin Saat Dilimini Göster ...
👩🏼🤝👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme / Kişi Grubunu Bireysel Gruplara Bölme / Doğum Günü Hatırlatıcılarını Kaldır ...
üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.