ส่งออกข้อมูลติดต่อ Excel เป็น vCard: 2 วิธีที่พิสูจน์แล้ว

ชุดข้อมูลด้านล่างมีชื่อ หมายเลขโทรศัพท์ และอีเมลของบุคคล เราจะใช้ข้อมูลนี้สร้างไฟล์ vCard

วิธีที่ 1 – ใช้ฟีเจอร์ Windows Contacts

Windows มีฟีเจอร์ของตัวเองสำหรับสร้างไฟล์ vCard จาก Excel แต่เราต้องแก้ไขนามสกุลไฟล์ก่อน มาดูคำอธิบายด้านล่าง โปรดทราบว่าหัวเรื่องที่ไม่จำเป็นอาจทำให้เกิดปัญหา ดังนั้นฉันจะลบแถวที่สองของแผ่นงาน

ขั้นตอน:

• ไปที่แท็บ File

• บันทึกไฟล์โดยใช้นามสกุล CSV (Comma delimited)

• คลิกที่ ไอคอน Windows บน Start Menu และค้นหา Contacts ในแถบค้นหา
• คลิกที่ Contacts

• โฟลเดอร์ Contacts จะเปิด
• เลือกแท็บ Import

• เลือก CSV (Comma Separated Values) จาก Import to Windows Contacts
• คลิก Import

• คำสั่งนี้จะนำคุณไปยังตัวเลือกเบราว์เซอร์เพื่อนำเข้าไฟล์ที่ต้องการ
• เลือก Browse

• เบราว์เซอร์หาไฟล์ CSV ที่มีข้อมูลติดต่อที่คุณสร้างไว้ก่อนหน้านี้
• คลิก Open

• คลิกปุ่ม Next ในหน้าต่าง CSV Import

• คุณต้อง Map หัวเรื่องคอลัมน์ ติ๊ก Mobile และคุณจะเห็น Mapping Option

• เลือก Mobile Phone และคลิก OK

• Map หัวเรื่อง Email ไปยัง E-mail Address และคลิก OK

• คลิก Finish

คำสั่งนี้จะแปลง ไฟล์ CSV เป็นรูปแบบ Windows Contacts

• มาลองเปิดไฟล์จากโฟลเดอร์นี้ ชื่อ ที่อยู่อีเมล และ เบอร์โทรศัพท์มือถือ อยู่ในตำแหน่งที่ถูกต้อง

• เราจะแปลงไฟล์เหล่านี้เป็น vCard หรือ vCalendar
• เลือกแท็บ Export

• เลือก vCards (folder of .vcf files)
• คลิก Export

• Browse หาโฟลเดอร์ที่บันทึกติดต่อเหล่านี้และคลิก OK

การดำเนินการนี้แปลงไฟล์ Contact เป็นไฟล์ VCF

• เปิดโฟลเดอร์ใดๆ พวกเขาเปิดด้วย Outlook โดยค่าเริ่มต้น คุณสามารถเปิดในรูปแบบ Contacts ได้เช่นกัน
• คุณสามารถดูสรุปข้อมูลติดต่อที่มุมขวาบนของหน้าต่าง

คุณสามารถสร้าง ไฟล์ VCF จาก Excel โดยใช้ฟีเจอร์ Windows Contacts

วิธีที่ 2 – ใช้ VBA สร้างไฟล์ VCF จาก Excel

ขั้นตอน:

• ไปที่แท็บ Developer และเลือก Visual Basic

• โปรแกรมแก้ไข VBA จะปรากฏ เลือก Insert >> Module เพื่อเปิด VBA Module

• ใส่โค้ดต่อไปนี้ใน VBA Module:

Sub CreateVCFFromExcel() Dim mn_File_Num As Integer Dim mn_start_row As Double mn_start_row = 2 mn_File_Num = FreeFile mn_Output_Path = ThisWorkbook.Path & "\PhoneAndEmail.VCF" Open mn_Output_Path For Output As mn_File_Num While VBA.Trim(Sheets("Sheet1").Cells(mn_start_row, 1)) <> "" mn_Name = VBA.Trim(Sheets("Sheet1").Cells(mn_start_row, 1)) mn_Email_Address = VBA.Trim(Sheets("Sheet1").Cells(mn_start_row, 2)) mn_Mobile_Number = VBA.Trim(Sheets("Sheet1").Cells(mn_start_row, 3)) Print #mn_File_Num, "BEGIN:VCARD" Print #mn_File_Num, "VERSION:3.0" Print #mn_File_Num, "FN:" & mn_Name Print #mn_File_Num, "EMAIL:" & mn_Email_Address Print #mn_File_Num, "TEL;TYPE=CELL;TYPE=PREF:" & mn_Mobile_Number Print #mn_File_Num, "END:VCARD" mn_start_row = mn_start_row + 1 Wend Close #mn_File_Num MsgBox "The Contacts are Saved To: " & mn_Output_Path End Sub

โค้ดใช้ ฟังก์ชัน VBA Trim เพื่อแยกคอลัมน์ Name, Email, และ Mobile จากนั้นใช้ Print Statement จัดเรียงข้อมูลเหล่านี้ในไฟล์ vCard ให้ถูกต้อง FN: หมายถึง First Name, EMAIL: หมายถึงตำแหน่งที่จะบันทึก ที่อยู่อีเมล และ TEL;TYPE=CELL หมายถึงเบอร์โทรศัพท์ที่เป็น มือถือ

• กลับไปที่แผ่นงานและรัน Macro

• ไฟล์ VCF จะถูกสร้างชื่อ PhoneAndEmail ในพาธไฟล์ของสมุดงาน Excel ของคุณ

• เปิดมันด้วย Windows Contacts

• การดำเนินการนี้จะแสดงข้อมูลติดต่อของคนแรกในชุดข้อมูลของคุณ

• ข้อมูลติดต่อทั้งหมดสำหรับชุดข้อมูลเก็บอยู่ใน PhoneAndEmail หากคุณสั่ง Cancel จะแสดงติดต่อถัดไป

• คลิก Cancel จะนำคุณไปติดต่อถัดไป และต่อไปเรื่อยๆ

คุณสามารถสร้าง ไฟล์ VCF โดยใช้ VBA

ส่วนฝึกฝน

ฉันให้ชุดข้อมูลสำหรับบทความนี้ เพื่อให้คุณฝึกฝนวิธีเหล่านี้และเชี่ยวชาญ

ดาวน์โหลดไฟล์ฝึกฝน

Export Excel to vCard: Knowledge Hub

• Open VCF File in Excel
• Edit VCF File in Excel
• Convert Excel to VCF Without Software
• Convert CSV File to VCF Using Excel

<< กลับไปที่ Export Data from Excel | Learn Excel

รับแบบฝึกหัด Excel ขั้นสูงพร้อมเฉลยฟรี!