Convert Excel (xls, xlsx,...) to Vcard (VCF) for Smart Phone (2019)

Thông tin thêm:

Video hướng dẫn tạo file danh bạ Vcard - VCF từ file Excel
1. Chuẩn bị sẵn 1 file Excel
2. Lưu file excel dưới dạng Unicode text.
3. Mở file TXT với NotePad++ để thay thế các khoảng cách bằng dấu "," (dấu phẩy).
4. Convert code sang UTF-8 bằng NotePad++ và lưu file.
5. Đổi tên file thành *.csv
6. Nhập file *.csv lên danh bạ của Gmail.
7. Xuất danh bạ từ Gmail xuống thành Vcard - VCF

Bạn đăng ký kênh để cập nhập các video hướng dẫn khác nhé.
Chúc bạn thành công!

[nickivantontsoptemgoua]

thanks very much. your video helps me too much. Thanks

[kanwalsumbal]

Thank you, bundle of thanks, I was really in search of this since last week

[viniciusmus]

Thanks, guy! You helped too much! But you don't need to create a CSV file manually. You can export the file as a CSV and then import on the contacts. After it, you export from the Google Contacts. But, thank you!

[SHASHINAGANUR]

Dear Thanks for most valuable video, very helpful for needy one. God bless you .

[shalabhdwivedi]

Thank you very much, it worked so well, you saved my lot of time. I don't understand Vietnamese so I used google translate. Thank you so much once again, you are a saviour.

[adminadmin-omlk]

VERY USEFUL!!! Rudy from indonesia, thanx alot

[cmilaoliveiraa]

Thank you, thank you very much !!! you are the best

[vivekranjan]

thanks alot for this video...great work bro''

[Computershomeservices]

thanks nice work . help me if i create the three categories i mean (name, last name, designation and mobile number then what i do ?

[yawasare]

simple and free way to get that file into your phone contact thank you

[animalmonkey]

sao mình ko nhập vào đc mail nhỉ bảo ko đọc được file làm như bạn rồi

[dattatraydixit]

I tried but only name ... contact Plz help dear....

[DeepakLodhadeepaklodha]

please tell me the notepad++ code for adding second buisness address and three more mobile numbers please.
xin vui lòng cho tôi biết notepad ++ mã cho thêm địa chỉ doanh nghiệp thứ hai và ba con số di động vui lòng.

[doctin]

Script :Too much complicated just open ur excel file with vb on that sheets and paste code and execute it will convert it to v-card, just import it to ur google contact, sync on phone and tadda, done, Note: keep excel column first name, last name, number with heading

'External Properties & Functions Declaration
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long,

ByVal Operation As String, ByVal Filename As String, Optional ByVal Parameters As String, Optional

ByVal Directory As String, Optional ByVal WindowStyle As Long = vbMinimizedFocus) As Long
Private Sub Create_VCF()
'Open a File in Specific Path in Output or Append mode
Dim FileNum As Integer
Dim iRow As Double
iRow = 2
FileNum = FreeFile
OutFilePath = ThisWorkbook.Path & "\OutputVCF.VCF"
Open OutFilePath For Output As FileNum

'Loop through Excel Sheet each row and write it to VCF File
While VBA.Trim(Sheets("Sheet1").Cells(iRow, 1)) <> ""
FName = VBA.Trim(Sheets("Sheet1").Cells(iRow, 1))
LName = VBA.Trim(Sheets("Sheet1").Cells(iRow, 2))
PhNum = VBA.Trim(Sheets("Sheet1").Cells(iRow, 3))

Print #FileNum, "BEGIN:VCARD"
Print #FileNum, "VERSION:3.0"
Print #FileNum, "N:" & FName & ";" & LName & ";;;"
Print #FileNum, "FN:" & FName & " " & LName
Print #FileNum, "TEL;TYPE=CELL;TYPE=PREF:" & PhNum
Print #FileNum, "END:VCARD"
iRow = iRow + 1
Wend

'Close The File
Close #FileNum
MsgBox "Contacts Converted to Saved To: " & OutFilePath & " - Join Email Subscription To Get Latest

Updates"
End Sub

[Jamessmith-njkv]

The tool allows the user to convert Contacts save in Excel file to the different vCar file format (2.1, 3.0, 4.0).