Ba'zan, Excel ish varag'ini elektron pochtaning asosiy qismiga nusxalash o'rniga, ish varag'ining skrinshotini qo'shishni xohlashingiz mumkin. Shunday qilib, ushbu maqolada uni olishning 2 usuli ko'rsatiladi.
Ko'pgina foydalanuvchilar ma'lum bir Excel ish varag'ining skrinshotini eksport qilishni va keyin skrinshotni Outlook elektron pochta xabarining asosiy qismiga kiritishni xohlashadi. Faqat skrinshotda hujayra qiymatlarini o'zgartirib bo'lmaydi. Qabul qiluvchilar o'z kompyuterlarida MS Excel dasturini o'rnatmagan taqdirda ham skrinshotni ko'rish mumkin.
Buni 2 ta usul bilan amalga oshirish mumkin. Birinchisi, o'rnatilgan funksiya - "Qo'shish" > "Skrinshot" bo'lib, u keyingi 1-usulda batafsil kiritilgan. Ikkinchisi esa 2-usulda ko'rsatilganidek, biroz skriptdan foydalanmoqda. Endi o'qing. ularni batafsil bilib oling.
1-usul: Excel oynasining skrinshotini joylashtiring
- Avvalo, elektron pochtaga kiritmoqchi bo'lgan Excel ish varag'ini oching.

- Keyin, Outlook-ni ishga tushiring va yangi elektron pochta yarating.
- Keyin, Xabar oynasida "Qo'shish" yorlig'iga o'ting.
- Keyinchalik, "Skrinshot" tugmasini bosing.
- "Mavjud Windows" ro'yxatida Excel ish varag'ining skrinshotini tanlang.
- Bir vaqtning o'zida Excel ish varag'ining skrinshoti kiritiladi.
- Endi siz skrinshotni xohlaganingizcha kesishingiz mumkin.
2-usul: Excel ish varag'ining skrinshotini VBA bilan nusxalash
- Eng boshida Excel faylini oching.
- Keyin, Excel VBA muharririni ishga tushirish uchun "Alt + F11" tugmasini bosing.
- Keyin, "MS Outlook Object Library" va "MS Word Object Library" ga havola qo'shing.VBA da obyekt kutubxonasi havolasini qanday qo'shish mumkin".
- Shundan so'ng, quyidagi VBA kodini loyiha yoki modulga nusxalang.
Sub ExportInsert_ScreenshotOfSheet_Mail()
Dim objSheet As Excel.Worksheet
Dim objUsedRange As Excel.Range
Dim objOutlookApp As Outlook.Application
Dim objMail As Outlook.MailItem
Dim objMailDocument As Word.document
'Change "Sheets(1)" to the specific worksheet number
Set objSheet = ActiveWorkbook.Sheets(1)
Set objUsedRange = objSheet.UsedRange
'Copy the screenshot of the sheet
objUsedRange.CopyPicture xlScreen, xlPicture
Set objOutlookApp = CreateObject("Outlook.Application")
Set objMail = objOutlookApp.CreateItem(olMailItem)
objMail.Display
Set objMailDocument = objMail.GetInspector.WordEditor
'Paste the copied screenshot
objMailDocument.Range(0, 0).Paste
End Sub
- Keyinchalik, ushbu makrosni ishga tushirish uchun "F5" tugmasini bosing.
- Darhol yangi elektron pochta xabari ko'rsatiladi.
- Kichik dialog oynasida "Ruxsat berish" tugmasini bosing.
- Va nihoyat, Excel ish varag'ining skrinshoti pochta qutisiga kiritiladi.
Outlook fayli zarariga duch kelganda
Agar siz tasodifan virus yuqtirgan qo'shimchalarni yuklab qo'ysangiz, Outlook faylingiz hujumga uchrashi va shu tariqa buzilgan bo'lishi mumkin. Bunday vaziyatda viruslarni o'ldirish uchun birinchi navbatda antivirus dasturini ishga tushirishingiz kerak. Keyinchalik, kuchli uchinchi tomon ta'mirlash dasturiga sarmoya kiritishingiz kerak, masalan DataNumen Outlook Repairmumkin PST-ni ta'mirlash ter to'kmasdan fayl.
Muallif kirish:
Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc mdf-ni tiklash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com




