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

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

goood

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!

Excel to vCard Converter is designed for those users who want to export Excel database into vCard in order to manage their information in a better manner. vCard or VCF is a new way of managing data in which we can save all the information, including contact, name, address, phone number, email address and many more in a sufficient manner.
http://migrateemails.com/2015/09/10/how-to-perfrom-seamless-conversion-with-excel-to-vcard-converter/

you can save it directly form excel as a csv you dumbass

THANKS 🙂

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.

song name ???

Nice trick My Bro… i love ur woks thanks

Fuck this video..!! cant understand the written language ..

thanks alot for this video…great work bro''

good…

Thanks so so muchhh :):)

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

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

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"
ShellExecute 0, "Open", "http://www.teslaind.in/"
End Sub

thanks man..!!👍