आउटलुक में एक्सेल करने के लिए ईमेल बॉडी टेबल कैसे एक्सपोर्ट करें?
जब आपको एक ईमेल प्राप्त होता है जिसमें मुख्य भाग में कुछ तालिकाएँ होती हैं, तो कभी-कभी, आपको संदेश के मुख्य भाग से सभी तालिकाओं को एक्सेल वर्कशीट में निर्यात करने की आवश्यकता हो सकती है। आम तौर पर, आप तालिकाओं को वर्कशीट में कॉपी और पेस्ट कर सकते हैं, लेकिन, यहां, मैं इस कार्य को हल करने के लिए एक उपयोगी विधि के बारे में बात करूंगा जब निर्यात करने के लिए कई तालिकाओं की आवश्यकता होती है।
वीबीए कोड के साथ आउटलुक संदेश के मुख्य भाग से सभी तालिकाओं को एक्सेल वर्कशीट में निर्यात करें
वीबीए कोड के साथ आउटलुक संदेश के मुख्य भाग से सभी तालिकाओं को एक्सेल वर्कशीट में निर्यात करें
कृपया सभी तालिकाओं को एक संदेश के मुख्य भाग से एक्सेल वर्कशीट में निर्यात करने के लिए निम्नलिखित VBA कोड लागू करें।
1. वह संदेश खोलें जिसे आप तालिकाएँ निर्यात करना चाहते हैं, और फिर दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की.
वीबीए कोड: संदेश के मुख्य भाग से सभी तालिकाओं को एक्सेल वर्कशीट में निर्यात करें:
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. उपरोक्त कोड को पेस्ट करने के बाद भी अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें टूल्स > संदर्भ पर जाने के लिए सन्दर्भ-परियोजना1 संवाद बॉक्स, और जाँचें माइक्रोसॉफ्ट वर्ड ऑब्जेक्ट लाइब्रेरी और माइक्रोसॉफ्ट एक्सेल ऑब्जेक्ट लाइब्रेरी से विकल्प उपलब्ध संदर्भ सूची बॉक्स, स्क्रीनशॉट देखें:
4। तब दबायें OK संवाद बॉक्स से बाहर निकलने के लिए बटन, और अब, कृपया F5 कोड को चलाने के लिए कुंजी, संदेश के मुख्य भाग में सभी तालिकाओं को एक नई कार्यपुस्तिका में निर्यात किया गया है जैसा कि स्क्रीनशॉट में दिखाया गया है:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
आउटलुक के लिए कुटूल - आपके आउटलुक को सुपरचार्ज करने के लिए 100 से अधिक शक्तिशाली सुविधाएँ
🤖 एआई मेल सहायक: एआई जादू के साथ त्वरित प्रो ईमेल - प्रतिभाशाली उत्तरों के लिए एक-क्लिक, सही टोन, बहुभाषी महारत। ईमेलिंग को सहजता से रूपांतरित करें! ...
📧 ईमेल स्वचालन: कार्यालय से बाहर (POP और IMAP के लिए उपलब्ध) / ईमेल भेजने का शेड्यूल करें / ईमेल भेजते समय नियमों के अनुसार ऑटो सीसी/बीसीसी / स्वतः अग्रेषित (उन्नत नियम) / स्वतः ग्रीटिंग जोड़ें / बहु-प्राप्तकर्ता ईमेल को स्वचालित रूप से अलग-अलग संदेशों में विभाजित करें ...
📨 ईमेल प्रबंधन: आसानी से ईमेल याद रखें / विषयों और अन्य लोगों द्वारा घोटाले वाले ईमेल को ब्लॉक करें / डुप्लिकेट ईमेल हटाएँ / उन्नत खोज / फ़ोल्डरों को समेकित करें ...
📁 अनुलग्नक प्रो: बैच सहेजें / बैच अलग करना / बैच संपीड़न / ऑटो सहेजें / ऑटो डिटैच / ऑटो कंप्रेस ...
🌟 इंटरफ़ेस जादू: 😊अधिक सुंदर और शानदार इमोजी / टैब्ड व्यू के साथ अपनी आउटलुक उत्पादकता बढ़ाएँ / आउटलुक को बंद करने के बजाय छोटा करें ...
???? एक-क्लिक चमत्कार: आने वाले अनुलग्नकों के साथ सभी को उत्तर दें / फ़िशिंग-रोधी ईमेल / 🕘प्रेषक का समय क्षेत्र दिखाएं ...
👩🏼🤝👩🏻 संपर्क एवं कैलेंडर: बैच चयनित ईमेल से संपर्क जोड़ें / किसी संपर्क समूह को अलग-अलग समूहों में विभाजित करें / जन्मदिन अनुस्मारक हटाएँ ...
के ऊपर 100 सुविधाएँ आपके अन्वेषण की प्रतीक्षा करें! अधिक जानने के लिए यहां क्लिक करें।