2 วิธีในการส่งออกสมาชิกทั้งหมดของกลุ่มที่ติดต่อ Outlook ไปยัง Excel

โซลูชัน Outlook September 29, 2025

ในบางครั้ง คุณอาจต้องการส่งออกสมาชิกในกลุ่มที่ติดต่อบางกลุ่มของ Outlook ดังนั้นบทความนี้จะแบ่งปันคุณ 2 วิธีในการแยกสมาชิกกลุ่มไปยัง Excel

Outlook นำเสนอฟีเจอร์แบบเนทีฟซึ่งอนุญาตให้คุณส่งออกที่ติดต่อทั้งหมดของโฟลเดอร์ที่ติดต่อบางแห่ง อย่างไรก็ตาม ไม่อนุญาตให้คุณส่งออกกลุ่มผู้ติดต่อ ไม่ต้องพูดถึงการแยกสมาชิกในกลุ่มผู้ติดต่อ ดังนั้น หากคุณต้องการแยกสมาชิกของกลุ่มผู้ติดต่อที่เลือก คุณต้องใช้ความพยายามมากกว่านี้ นี่คือเคล็ดลับสองข้อที่คุณสามารถอ้างถึงได้

วิธีที่ 1: แยกสมาชิกกลุ่มผ่านบันทึกเป็น

เริ่มแรกให้เปิดใช้ Outlook
จากนั้นค้นหาและเลือกกลุ่มผู้ติดต่อที่คุณต้องการแยกสมาชิก
ถัดไปคุณควรไปที่เมนู "ไฟล์" แล้วคลิก "บันทึกเป็น"
จากนั้น ในกล่องโต้ตอบ "บันทึกเป็น" ป๊อปอัป เลือกโฟลเดอร์ปลายทางเพื่อบันทึกและเลือก "ข้อความเท่านั้น" จากรายการแบบเลื่อนลงของ "บันทึกเป็นประเภท"
แล้วคลิก “บันทึก”
หลังจากนั้นให้เปิด Excel และสร้างไฟล์ excel ใหม่
หลังจากนั้นคุณควรเปลี่ยนเป็น "ไฟล์" แล้วคลิกปุ่ม "เปิด"
ในกล่องโต้ตอบ "เปิด" ที่ตามมา คุณควรเข้าถึงโฟลเดอร์ที่คุณบันทึกกลุ่มผู้ติดต่อในตอนนี้ก่อน
จากนั้นคลิกช่องที่สองในบรรทัด "ชื่อไฟล์" และเลือก "ไฟล์ทั้งหมด" จากรายการแบบเลื่อนลง
หลังจากนั้น ตั้งค่าไฟล์ข้อความสำหรับกลุ่มผู้ติดต่อแล้วกด "เปิด"
ในกล่องโต้ตอบป๊อปอัป "Text Import Wizard" ตรวจสอบให้แน่ใจว่าได้เลือก "Delimited" แล้วคลิกปุ่ม "Finish"
ในที่สุดคุณก็จะได้สมาชิกดังภาพหน้าจอต่อไปนี้:

วิธีที่ 2: แยกสมาชิกกลุ่มผ่าน Outlook VBA

ในขั้นแรกให้กดปุ่ม“ Alt + F11” ใน Outlook
จากนั้นเปิดโมดูลใหม่ในหน้าต่างตัวแก้ไข VBA
จากนั้นคัดลอกรหัส VBA ต่อไปนี้ลงไป

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

หลังจากนั้น คุณสามารถเพิ่มแมโครใน Quick Access Toolbar (QAT) ได้ตามปกติ
หลังจากนั้น คุณสามารถเลือกกลุ่มผู้ติดต่อและคลิกปุ่มมาโครใน QAT
หลังจากส่งออก คุณจะได้รับข้อความ – “ส่งออกเสร็จสมบูรณ์!”
ในที่สุด คุณจะพบไฟล์ Excel ในโฟลเดอร์ที่กำหนดไว้ล่วงหน้าในรหัส VBA เปิดดู คุณจะเห็นสมาชิกกลุ่ม ดังภาพด้านล่าง:

รับข้อมูล PST ก่อนหน้าของคุณกลับคืนมา

เนื่องจาก Outlook มีความอ่อนไหวต่อการขัดข้อง ข้อมูล PST ของคุณอาจเสียหายได้โดยไม่มีลางบอกเหตุใดๆ ดังนั้นคุณควรสำรองไฟล์ PST ของคุณเป็นประจำ นอกจากนี้ ท่านควรเตรียมเครื่องมือที่ทรงพลัง เช่น DataNumen Outlook Repair, ซึ่งสามารถ ซ่อมแซม Outlook ข้อมูลตามเวลาที่กำหนด

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ แก้ไข sql และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.