Patarimas: kitos kalbos yra "Google" išverstos. Galite aplankyti English šios nuorodos versija.
Prisijungti
x
or
x
x
Registruotis
x

or

Kaip eksportuoti aplankų struktūrą iš "Outlook" į "Excel"?

Šiame straipsnyje pristatysiu, kaip eksportuoti paskyros aplankų struktūrą iš "Outlook" į "Excel" failą. Prašome pasiekti šio straipsnio detales.

Eksportuokite paskyros struktūrą iš "Outlook" į "Excel", naudodami VBA kodą


Eksportuokite paskyros struktūrą iš "Outlook" į "Excel", naudodami VBA kodą

Šis VBA kodas gali būti jums naudingas, prašome atlikti toliau nurodytus veiksmus:

1. Įjunkite "Excel" ir laikykite nuspaudę ALT + F11 raktus atidaryti "Microsoft Visual Basic for Applications" langas.

2, Spauskite įsiuvas > Moduliaiir įklijuokite šį kodą Moduliai Langas.

VBA kodas: Eksportuokite paskyros struktūrą iš "Outlook" į "Excel":

Dim xExcelApp As Excel.Application
Dim xWb As Excel.Workbook
Dim xWs As Excel.Worksheet
Dim xMainFolderCount As Long
Sub OutlookExportFolderStructureToExcel()
    Dim xFolder As Folder
    Dim xExcelFile As String
    Dim xFileDialog As FileDialog
    On Error Resume Next
    Set xFolder = Outlook.Application.Session.PickFolder
    If xFolder Is Nothing Then Exit Sub
    Set xExcelApp = New Excel.Application
    Set xWb = xExcelApp.Workbooks.Add
    Set xWs = xWb.Sheets(1)
    With xWs.Range("A1", "A1")
         .Value = "Folder Structure"
         .Font.Size = 14
         .Font.Bold = True
    End With
    xMainFolderCount = Len(xFolder.FolderPath) - Len(Replace(xFolder.FolderPath, "\", "")) + 1
    Call ExportToExcel(xFolder.FolderPath, xFolder.Name)
    Call ProcessFolders(xFolder.Folders)
    xWs.Columns("A").AutoFit
    Set xFileDialog = xExcelApp.FileDialog(msoFileDialogSaveAs)
    With xFileDialog
        .AllowMultiSelect = False
        .FilterIndex = 1
        If .Show = 0 Then
            xWb.Close False
            xExcelApp.Quit
            Set xExcelApp = Nothing
            Exit Sub
        End If
        xExcelFile = .SelectedItems.Item(1)
    End With
    xWb.Close True, xExcelFile
    MsgBox "Export complete!", vbExclamation, "Kutools for Outlook"
End Sub

Sub ProcessFolders(ByVal xFlds As Folders)
    Dim xSubFolder As Folder
    For Each xSubFolder In xFlds
        If xSubFolder.Name <> "Conversation Action Settings" And xSubFolder.Name <> "Quick Step Settings" Then
           Call ExportToExcel(xSubFolder.FolderPath, xSubFolder.Name)
           Call ProcessFolders(xSubFolder.Folders)
        End If
    Next
End Sub

Sub ExportToExcel(ByRef xFolderPath As String, xFolderName As String)
    Dim i, n As Long
    Dim xPrefix As String
    Dim xLastRow As Integer
    i = Len(xFolderPath) - Len(Replace(xFolderPath, "\", "")) - xMainFolderCount
    For n = 0 To i
        xPrefix = xPrefix & "-"
    Next
    xFolderName = xPrefix & xFolderName
    xLastRow = xWs.UsedRange.Rows.Count + 1
    xWs.Range("A" & xLastRow) = xFolderName
End Sub

3. Vis dar "Microsoft Visual Basic for Applications" langas, spustelėkite Įrankiai > Nuorodos eiti į Nuorodos-Project1 dialogo langas ir patikrinkite "Microsoft Excel" objektų biblioteka pasirinkimas iš Galimos nuorodos sąrašo langelis, žr. ekrano kopiją:

doc eksporto aplankų struktūra Excel 1

4. Tada spustelėkite OK mygtukas ir paspauskite F5 raktas paleisti šį kodą, a Pasirinkite aplanką dialogo langas išsiplėtė, pasirinkite el. pašto paskyrą, į kurią norite eksportuoti savo aplanko struktūrą, žr. ekrano kopiją:

doc eksporto aplankų struktūra Excel 2

5. Ir tada spustelėkite OK mygtukas, a Failas Išsaugoti Rodomas langas, nurodykite šio eksportuojamo failo vietą ir failo pavadinimą, žr. ekrano kopiją:

doc eksporto aplankų struktūra Excel 3

6. Pagaliau spustelėkite Išsaugoti mygtuką ir galite pereiti prie konkretaus "Excel" knygos, kurią išsaugojote norėdami peržiūrėti eksportuotą aplanko struktūrą, žr. ekrano kopiją:

doc eksporto aplankų struktūra Excel 4



Kutools for Outlook

Daugiau nei 100 papildomos funkcijos „Outlook 2010“, „2013“, „2016“, „2019“ ir „365“

ekrano fotografavimas „kutools“, skirtas „201812“ banerio perspektyvai

Daugiau funkcijų | Nemokamas atsisiuntimas | Tik šimtai funkcijų - $ 39.00

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.