Agar siz jadvallarni Outlook elektron pochtasidan Excel fayliga tezda eksport qilmoqchi bo'lsangiz, ushbu maqolada keltirilgan usuldan foydalanishingiz mumkin. Bu sizga bir marta bosish orqali erishish uchun VBA-dan foydalanadi.
Barchamizga ma'lumki, Excel jadvallar va ma'lumotlar statistikasi uchun mo'ljallangan. Shunday qilib, tanadagi bir nechta jadvallarni o'z ichiga olgan elektron pochta xabarini olganingizda, jadvallardagi ma'lumotlarni yaxshiroq tahlil qilish uchun ushbu jadvallarning barchasini Excel fayliga eksport qilishni xohlashingiz mumkin. Shunday qilib, biz bu erda barcha jadvallarni elektron pochtadan yangi Excel ish kitobiga qanday tezda eksport qilishni o'rgatamiz. Endi VBA kodini va batafsil qadamlarni olish uchun o'qing.
Barcha jadvallarni Outlook elektron pochtasidan Excel ish kitobiga eksport qiling
- Boshlash uchun Outlook ilovangizni odatdagidek ishga tushiring.
- Keyin asosiy Outlook oynasida "Alt + F11" tugmachalarini bosing.
- Keyingi "Microsoft Visual Basic for Applications" oynasida siz bo'sh modulni ochishingiz kerak.
- Keyinchalik, quyidagi VBA kodini ushbu modulga nusxalashingiz kerak.
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
- Shundan so'ng, siz tez kirish asboblar paneliga yangi makrosni qo'shishingiz kerak.
- Keyinchalik Outlook makro xavfsizlik darajasini past darajaga o'zgartirishingiz kerak.
- Oxir-oqibat, siz sinab ko'rishingiz mumkin.
- Birinchidan, elektron pochta ro'yxatida manba elektron pochta manzilini tanlang.
- Keyin Tez kirish asboblar panelidagi makros tugmasini bosing.
- Bir vaqtning o'zida yangi Excel fayli ko'rsatiladi.
- Agar elektron pochtada faqat bitta jadval bo'lsa, ushbu jadval quyidagi skrinshot kabi Excel faylining birinchi ish varag'iga eksport qilinadi:
- Ammo elektron pochtada bir nechta jadval bo'lsa, har bir jadval alohida ish varag'iga ko'chiriladi.
Baxtsiz PST ma'lumotlarini yo'qotishdan xalos bo'ling
Outlook xatolar va buzilishlarga moyil. Shuning uchun, PST ma'lumotlaringizni himoya qilish va og'riqli PST ma'lumotlarini yo'qotishning oldini olish zerikarli va mashaqqatli vazifadir. Birinchidan, siz muntazam ravishda PST fayllaringizni zaxiralashingiz kerak. Bundan tashqari, siz kuchli vositani tayyorlashingiz kerak PST tuzatish kabi foydali dastur DataNumen Outlook Repair. U sizni har qanday PST muammolaridan osonlikcha qutqarishi mumkin.
Muallif kirish:
Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzilgan sql va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com