Tip: Andre sprog er Google-oversat. Du kan besøge English version af dette link.
Log på
x
or
x
x
Tilmeld
x

or
0
0
0
s2smodern

Hvordan eksporterer mappestruktur fra Outlook til Excel?

Denne artikel vil jeg introducere, hvordan man eksporterer mappestruktur for en konto fra Outlook til Excel-fil. Venligst opnå det med detaljerne i denne artikel.

Eksporter mappestruktur for en konto fra Outlook til Excel ved hjælp af VBA-kode


Eksporter mappestruktur for en konto fra Outlook til Excel ved hjælp af VBA-kode

Følgende VBA-kode kan gøre dig en tjeneste, gør venligst med nedenstående trin:

1. Aktivér Excel og hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.

VBA-kode: Eksporter mappestruktur for en konto fra Outlook til 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. Stadig i Microsoft Visual Basic til applikationer vindue, skal du klikke på Værktøj > Referencer at gå til Referencer-Project1 dialogboksen og tjek Microsoft Excel Object Library mulighed fra Tilgængelige referencer listeboks, se skærmbillede:

doc eksport mappe struktur til excel 1

4. Klik derefter på OK knappen, og tryk på F5 nøgle til at køre denne kode, a Vælg mappe dialogboksen er dukket op, vælg venligst den e-mail-konto, du vil eksportere mappestrukturen, se screenshot:

doc eksport mappe struktur til excel 2

5. Og så klik OK knappen, a Fil Save vindue vises, angiv venligst et sted og filnavn for denne eksporterede fil, se screenshot:

doc eksport mappe struktur til excel 3

6. Endelig skal du klikke på Gem knappen, og du kan gå til den specifikke Excel-arbejdsmappe, du har gemt for at se den eksporterede mappestruktur, se screenshot:

doc eksport mappe struktur til excel 4


pil blå højre boble 20 + Kraftfulde værktøjer og funktioner til Outlook 2010 / 2013 / 2016 / Office 365:

li-orangeKompatibel med Outlook 2010 / 2013 / 2016 / Office 365 (32 / 64);

li-orangeKompatibel med Windows XP, Windows Vista, Windows 7 / 8 / 10, Windows Server 2003 / 2008, Citrix System og Windows Terminal (Remote Desktop) Server;

li-orangeGratis prøveversion uden funktionsbegrænsning i 45 dage!

LÆS MERE | GRATIS DOWNLOAD | KØB NU

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.