Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Bộ dữ liệu dưới chứa Tên, Số di động, Email. Sẽ dùng tạo file vCard.

Phương pháp 1 – Dùng tính năng Windows Contacts

Windows có tính năng tạo vCard từ Excel. Cần đổi đuôi file trước. Lưu ý: tiêu đề thừa có thể gây lỗi. Sẽ xóa hàng 2 của sheet.

Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Các bước:

Vào tab File.

Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Lưu file với đuôi CSV (Comma delimited).

Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Nhấp Windows icon trên Start Menu > tìm Contacts.
Nhấp Contacts.

Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Thư mục Contacts mở.
Chọn tab Import.

Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Chọn CSV (Comma Separated Values) từ Import to Windows Contacts.
Nhấp Import.

Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Lệnh dẫn đến tùy chọn duyệt file nhập.
Chọn Browse.

Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Duyệt file CSV chứa thông tin liên hệ vừa tạo.
Nhấp Open.

Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Nhấp Next trong cửa sổ CSV Import.

Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Cần Map tiêu đề cột. Tích Mobile, thấy Mapping Option.

Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Chọn Mobile Phone > OK.

Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Map Email tới E-mail Address > OK.

Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Nhấp Finish.

Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Lệnh chuyển file CSV sang định dạng Windows Contacts.

Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Mở file trong thư mục. Tên, Email, Số di động ở đúng vị trí.

Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Chuyển các file sang vCard hoặc vCalendar.
Chọn tab Export.

Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Chọn vCards (folder of .vcf files).
Nhấp Export.

Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Browse thư mục lưu contacts > OK.

Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Thao tác chuyển file Contact sang VCF.

Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Mở bất kỳ thư mục nào. Mặc định mở bằng Outlook. Cũng mở được định dạng Contacts.
Tóm tắt thông tin liên hệ ở góc trên phải.

Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Đã tạo file VCF từ Excel dùng Windows Contacts.

Phương pháp 2 – Dùng VBA tạo file VCF từ Excel

Các bước:

Tab Developer > chọn Visual Basic.

Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Cửa sổ VBA Editor hiện ra. Chọn Insert >> Module mở VBA Module.

Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Nhập mã sau vào 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

Xuất danh bạ Excel ra vCard: 2 phương pháp chứng minh

Mã dùng VBA Trim tách cột Tên, Email, Di động. Dùng Print Statement sắp xếp dữ liệu đúng chuẩn vCard. FN: tên, EMAIL: vị trí lưu email, TEL;TYPE=CELL nghĩa là số điện thoại di động.