Ինչպե՞ս արտահանել էլփոստի մարմնի աղյուսակը ՝ Outlook- ում գերազանցելու համար:
Երբ ստանում եք էլփոստ, որը պարունակում է մարմնի որոշ աղյուսակներ, երբեմն, գուցե անհրաժեշտ լինի բոլոր սեղանները հաղորդագրության մարմնից արտահանել Excel- ի աշխատանքային թերթիկ: Սովորաբար, դուք կարող եք պատճենել և կպցնել աղյուսակները աշխատանքային թերթիկում, բայց, ահա, ես կխոսեմ այս գործը լուծելու օգտակար մեթոդի մասին, երբ արտահանման համար անհրաժեշտ բազմաթիվ սեղաններ կան:
Արտահանեք բոլոր աղյուսակները Outlook հաղորդագրության մարմնից VBA կոդով Excel աշխատաթերթ
Արտահանեք բոլոր աղյուսակները Outlook հաղորդագրության մարմնից VBA կոդով Excel աշխատաթերթ
Խնդրում ենք կիրառել հետևյալ VBA կոդը ՝ բոլոր աղյուսակները մեկ հաղորդագրության մարմնից Excel աշխատաթերթ արտահանելու համար:
1, Բացեք այն հաղորդագրությունը, որ ցանկանում եք արտահանել աղյուսակները, և այնուհետև պահեք այն ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ պատուհան.
VBA կոդ. Բոլոր աղյուսակները արտահանեք հաղորդագրության մարմնից Excel- ի աշխատանքային թերթը.
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, Վերոնշյալ կոդը տեղադրելուց հետո, այն դեռ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Գործիքներ > Սայլակ գնալու համար Հղումներ-նախագիծ 1 երկխոսության տուփ և ստուգեք Microsoft Word օբյեկտի գրադարան և Microsoft Excel օբյեկտների գրադարան ընտրանքներ Հասանելի հղումներ ցուցակի տուփ, տես նկարի նկարը.
4. Այնուհետեւ կտտացրեք OK երկխոսության տուփից դուրս գալու կոճակը, և այժմ խնդրում եմ F5 Կոդի գործարկման բանալին, հաղորդագրության մարմնի բոլոր աղյուսակները արտահանվել են նոր աշխատանքային գրքույկ, ինչպես ցույց է տրված հետևյալ նկարը.
Գրասենյակի արտադրողականության լավագույն գործիքները
Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար
🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...
📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար) / Ժամանակացույց ուղարկել նամակներ / Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով / Ավտոմատ փոխանցում (Ընդլայնված կանոններ) / Ավտոմատ ավելացնել ողջույնները / Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...
📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները / Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց / Deleteնջել կրկնօրինակ նամակները / Ընդլայնված որոնում / Համախմբել Թղթապանակները ...
📁 Հավելվածներ Pro: Խմբաքանակի պահպանում / Խմբաքանակի անջատում / Խմբաքանակային կոմպրես / Auto Save- ը / Ավտոմատ անջատում / Ավտոմատ սեղմում ...
🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ / Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով / Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...
???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով / Հակաֆիշինգի էլ. նամակներ / 🕘Ցուցադրել ուղարկողի ժամային գոտին ...
👩🏼🤝👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ / Կոնտակտային խումբը բաժանեք առանձին խմբերի / Հեռացնել ծննդյան հիշեցումները ...
Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար: