Mae cwcis yn ein helpu i gyflwyno ein gwasanaethau. Drwy ddefnyddio ein gwasanaethau, rydych yn cytuno i'n defnydd cwcis.
Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

Sut mae allforio neges rhagolygon yn cyfrif i lyfr gwaith Excel?

Fel rheol, gallwch allforio negeseuon Outlook i ffeil Excel trwy ddefnyddio'r nodwedd Mewnforio / Allforio yn gyflym ac yn hawdd. Ond, a ydych erioed wedi ceisio cyfrif yr eitemau ym mhob ffolder o'ch cyfrif E-bost penodol ac allforio'r canlyniadau cyfrif i lyfr gwaith Excel?

Mae neges allbwn allforio yn cyfrif i lyfr gwaith Excel gyda chod VBA


Mae neges allbwn allforio yn cyfrif i lyfr gwaith Excel gyda chod VBA

Gall y cod VBA canlynol eich helpu i allforio canlyniadau cyfrif o bob ffolder mewn cyfrif E-bost penodol i lyfr gwaith Excel, gwnewch fel hyn:

1. Dal i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Allforio eitemau outlook cyfrif i Excel bookbook:

Is-Allforio_CountOfItems_InEachFolder_toExcel () Dim xSourceFolder Fel Outlook.Folder, xSubFolder Fel Outlook.Folder Dim xFilePath As String Dim xExcelApp Fel Excel.Application Dim xWb Fel Excel.Workbook Dim xWs Fel Excel.Worksheet Ar Gwall Yn Cymryd Nesaf Set xExcelApp = New Excel.Application Set xWb = xExcelApp.Workbooks.Add Set xWs = xWb.Sheets (1) xWs.Cells (1, 1) = "Ffolder" xWs.Cells (1, 2) = "Eitemau Cyfrif" Gosod xSourceFolder = Outlook.Application.Session. PickFolder Os xSourceFolder = nill Yna xWb.Close False Is-Ddirfyniad Ymadael XExcel.Quit Os Ar gyfer pob xSubFolder Mewn xSourceFolder.Folders Call ProcessFolders (xWs, xSubFolder) XWs.Colymau Nesaf ("A: B"). Gosod AutoFit xShell = CreateObject (" Shell.Application ") Set xFolder = xShell.BrowseforFolder (0," Select a Folder: ", 0, 0) Os yw TypeName (xFolder) =" Does dim "Yna xWb.Close False xExcelApp.Quit Ymadael Is-Ddigwydd Os Set xFolderItem = xFolder .Self xFilePath = xFolderItem.Path & "\" xFilePath = xFilePath & xSourceFolder.Name & "(" ac Am mat (Nawr, "yyyy-mm-dd hh-mm-ss") a ") .xlsx" xWb.Close True, xFilePath xExcelApp.Quit Set xShell = Dim MsgBox "Cwblhawyd!", vbExclamation, "Kutools for Outlook" End Is-Brosesau Proses Is-Is-adran (Ar y Weill fel Taflen Waith, ByVal xCurFolder As Outlook.Folder) Dim xSubFld Fel Ffolder Dim xItemCount Fel Long Dim xRow Fel Integer xItemCount = xCurFolder.Items.Count xRow = Ws.UsedRange.Rows.Count + 1 Ws.Cells ( xRow, 1) = xCurFolder.FolderPath Ws.Cells (xRow, 2) = xItemCount Os xCurFolder.Folders.Count> 0 Yna Ar gyfer pob xSubFld Mewn xCurFolder.Folders Call ProcessFolders (Ws, xSubFld) Nesaf Diwedd Os Diwedd Is

3. Ac, yn dal yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch offer > cyfeiriadau i fynd i'r Cyfeiriadau-Project1 blwch deialog, a siec Llyfrgell Amcanion Microsoft Excel opsiwn gan y Cyfeiriadau ar gael rhestrwch y blwch, gweler y sgrin:

Mae eitemau allforio doc yn cyfrif 1

4. Yna cliciwch OK, ac yna'r wasg F5 allwedd i redeg y cod hwn, a Dewis Ffolder wedi'i datgelu, dewiswch gyfrif Ebost eich bod am allforio eitemau cyfrif, gweler y sgrin:

Mae eitemau allforio doc yn cyfrif 2

5. Yna cliciwch OK, ac un arall Pori Por Ffolder yn cael ei arddangos, dewiswch ffolder i roi'r ffeil Excel, gweler y sgrin:

Mae eitemau allforio doc yn cyfrif 3

6. Ar y diwedd, cliciwch OK botwm, ac mae'r eitemau sy'n cyfrif ym mhob ffolder o'r cyfrif a ddetholwyd wedi cael eu hallforio i lyfr gwaith Excel, gallwch agor y ffeil Excel i weld y canlyniad, gweler y sgrin:

Mae eitemau allforio doc yn cyfrif 4



Kutools ar gyfer Outlook

Mwy na Swyddogaethau Uwch 100 ar gyfer Outlook 2010, 2013, 2016, 2019 a 365

sgrinio kutools ar gyfer rhagolygon bach ar gyfer baner 201812

Mwy o Nodweddion | Lawrlwythiad Am Ddim | $ 39.00 yn unig ar gyfer cannoedd o swyddogaethau

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.