2 Kaedah Mengeksport Semua Anggota Kumpulan Kenalan Outlook ke Excel

Kadang kala, anda mungkin ingin mengeksport ahli dalam kumpulan kenalan Outlook tertentu. Oleh itu, artikel ini akan memberi anda 2 cara untuk mengekstrak ahli kumpulan ke Excel.

Outlook menawarkan ciri asli yang membolehkan anda mengeksport semua kenalan folder kenalan tertentu. Namun, ini tidak membenarkan anda mengeksport kumpulan kenalan, apatah lagi mengekstrak anggota dalam kumpulan kenalan. Oleh itu, jika anda ingin mengekstrak anggota kumpulan kenalan yang terpilih, anda perlu membuat lebih banyak usaha. Berikut adalah dua petua yang boleh anda rujuk.

Kaedah 1: Ekstrak Ahli Kumpulan Melalui Simpan Sebagai

1. Pada awalnya, lancarkan Outlook.
2. Kemudian cari dan pilih kumpulan kenalan yang ahlinya perlu anda ekstrak.
3. Seterusnya anda harus pergi ke menu "File" dan klik "Save As".
4. Selanjutnya, dalam kotak dialog "Simpan Sebagai" pop timbul, pilih folder tujuan untuk disimpan dan pilih "Teks Saja" dari daftar drop-down "Simpan sebagai jenis".
5. Dan kemudian klik "Simpan".
6. Selepas itu, buka Excel dan buat fail excel baru.
7. Nanti anda harus beralih ke "File" dan klik "Open" butang.
8. Dalam kotak dialog "Buka" berikutnya, anda harus terlebih dahulu mengakses folder tempat anda menyimpan kumpulan kenalan sekarang.
9. Kemudian klik kotak kedua di baris "Nama fail" dan pilih "Semua Fail" dari senarai drop-down.
10. Selepas itu, tekan fail Teks untuk kumpulan kenalan dan tekan "Buka".
11. Di kotak dialog "Text Import Wizard" pop timbul, pastikan bahawa "Terhad" dipilih dan klik butang "Selesai".
12. Akhirnya anda akan mendapat ahli, seperti tangkapan skrin berikut:

Kaedah 2: Ekstrak Ahli Kumpulan melalui Outlook VBA

1. Pertama, tekan butang kekunci "Alt + F11" di Outlook.
2. Kemudian buka modul baru di tetingkap editor VBA.
3. Selepas itu, salin kod VBA berikut ke dalamnya.

Sub ExtractContactGroupMembersToExcel()
    Dim objContactGroup As Outlook.DistListItem
    Dim objMember As Outlook.recipient
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkBook As Excel.Workbook
    Dim objExcelWorkSheet As Excel.Worksheet
    Dim i As Integer
    Dim nRow As Integer
    Dim strPath As String
    Dim strFilename As String
 
    Select Case Application.ActiveWindow.Class
           Case olExplorer
                Set objContactGroup = Application.ActiveExplorer.Selection(1)
           Case olInspector
                Set objContactGroup = Application.ActiveInspector.CurrentItem
    End Select
 
    If TypeOf objContactGroup Is DistListItem Then
       'Create a new Excel workbook
       Set objExcelApp = CreateObject("Excel.Application")
       Set objExcelWorkBook = objExcelApp.Workbooks.Add
       Set objExcelWorkSheet = objExcelWorkBook.Worksheets(1)
 
       'Set the two column headers
       objExcelWorkSheet.Cells(1, 1) = "Contact Name"
       objExcelWorkSheet.Cells(1, 2) = "Email Address"

       nRow = 2
 
       'Extract the contact group members' names and email addresses
       For i = 1 To objContactGroup.MemberCount
           Set objMember = objContactGroup.GetMember(i)
           objExcelWorkSheet.Cells(nRow, 1) = objMember.Name
           objExcelWorkSheet.Cells(nRow, 2) = objMember.Address
           nRow = nRow + 1
       Next
 
       'AutoFit the columns in the new Excel worksheet
       objExcelWorkSheet.Columns("A:B").AutoFit
 
       'Change the strPath to your actual case
       strPath = "C:\Contact Groups\"
       strFilename = strPath & objContactGroup.DLName & ".xlsx"
 
       'Save the Excel workbook
       objExcelWorkBook.Close True, strFilename
 
       'Notify you of the export complete
       MsgBox ("Export Complete!")
    End If
End Sub

4. Selepas itu, anda boleh menambahkan makro ke Quick Access Toolbar (QAT) seperti biasa.
5. Kemudian, anda boleh memilih kumpulan kenalan dan mengklik butang makro di QAT.
6. Setelah mengeksport, anda akan menerima mesej - "Eksport Selesai!"
7. Akhirnya, anda dapat mencari fail Excel dalam folder yang telah ditentukan dalam kod VBA. Buka, anda dapat melihat ahli kumpulan, seperti gambar di bawah:

Dapatkan Data PST Anda Sebelumnya

Oleh kerana Outlook rentan, data PST anda boleh rosak tanpa tanda-tanda. Oleh itu, anda harus membuat sandaran berkala fail PST anda. Anda juga lebih baik menyediakan alat yang kuat, seperti DataNumen Outlook Repair, yang boleh baiki Outlook data tepat pada masanya.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk betulkan sql dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com