কিভাবে দ্রুত VBA এর মাধ্যমে একটি আউটলুক ইমেল থেকে এক্সেল ওয়ার্কবুকে সমস্ত টেবিল রপ্তানি করবেন

আউটলুক সমাধান সেপ্টেম্বর 29, 2025

আপনি যদি দ্রুত একটি আউটলুক ইমেল থেকে একটি এক্সেল ফাইলে টেবিলগুলি রপ্তানি করতে চান তবে আপনি এই নিবন্ধে প্রবর্তিত পদ্ধতিটি ব্যবহার করতে পারেন। এটি শুধুমাত্র একটি ক্লিকের মাধ্যমে এটি অর্জন করতে আপনাকে সাহায্য করার জন্য VBA ব্যবহার করবে।

আমরা সবাই জানি, এক্সেল টেবিল এবং ডেটা পরিসংখ্যানের জন্য ডিজাইন করা হয়েছে। এইভাবে, যখন আপনি একটি ইমেল পান যাতে শরীরের বেশ কয়েকটি টেবিল রয়েছে, আপনি এই সমস্ত টেবিলগুলিকে একটি এক্সেল ফাইলে রপ্তানি করতে চাইতে পারেন যাতে টেবিলের ডেটা আরও ভালভাবে বিশ্লেষণ করা যায়। তাই, এখানে আমরা আপনাকে শিখাবো কিভাবে দ্রুত একটি ইমেল থেকে একটি নতুন এক্সেল ওয়ার্কবুকে সমস্ত টেবিল রপ্তানি করতে হয়। এখন VBA কোড এবং বিস্তারিত পদক্ষেপ পেতে অনুগ্রহ করে পড়ুন।

একটি আউটলুক ইমেল থেকে একটি এক্সেল ওয়ার্কবুকে সমস্ত টেবিল রপ্তানি করুন

প্রথমে, আপনার Outlook অ্যাপ্লিকেশনটি যথারীতি চালু করুন।
তারপরে মূল আউটলুক উইন্ডোতে, “Alt + F11” কী বোতাম টিপুন।
পরবর্তী "অ্যাপ্লিকেশনের জন্য মাইক্রোসফ্ট ভিজ্যুয়াল বেসিক" উইন্ডোতে, আপনাকে একটি খালি মডিউল খুলতে হবে।
পরবর্তীকালে, আপনাকে এই মডিউলে নীচের 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

এর পরে, আপনাকে দ্রুত অ্যাক্সেস টুলবারে নতুন ম্যাক্রো যোগ করতে হবে।
পরে আপনার আউটলুক ম্যাক্রো নিরাপত্তা স্তরকে কম করে পরিবর্তন করা উচিত।
শেষ পর্যন্ত, আপনি একটি চেষ্টা করতে পারে.

প্রথমত, ইমেল তালিকায় একটি উত্স ইমেল নির্বাচন করুন।
তারপরে দ্রুত অ্যাক্সেস সরঞ্জামদণ্ডে ম্যাক্রো বোতামটি ক্লিক করুন।
একবারে, একটি নতুন এক্সেল ফাইল প্রদর্শিত হবে।
যদি ইমেলে শুধুমাত্র একটি টেবিল থাকে, তাহলে এই টেবিলটি এক্সেল ফাইলের প্রথম ওয়ার্কশীটে রপ্তানি করা হবে, নিচের স্ক্রিনশটের মতো:
কিন্তু ইমেইলে একাধিক টেবিল থাকলে, প্রতিটি টেবিল পৃথক ওয়ার্কশীটে কপি করা হবে।

দুঃখজনক PST ডেটা ক্ষতি থেকে মুক্তি পান

আউটলুক ত্রুটি এবং দুর্নীতি প্রবণ হয়. অতএব, আপনার পিএসটি ডেটা রক্ষা করা এবং বেদনাদায়ক পিএসটি ডেটা ক্ষতি এড়ানো একটি ক্লান্তিকর এবং কঠিন কাজ৷ প্রথমত, আপনাকে নিয়মিত আপনার PST ফাইলগুলি ব্যাক আপ করতে হবে। তাছাড়া, আপনাকে একটি শক্তিশালী প্রস্তুত করতে হবে পিএসটি ঠিক করা ইউটিলিটি, মত DataNumen Outlook Repair. এটি আপনাকে অনায়াসে সব ধরনের PST সমস্যা থেকে উদ্ধার করতে পারে।

লেখকের ভূমিকা:

শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় দূষিত বর্গ এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com