Convert excel files to .vcf for transfer of contacts from Pc to Andriod device

Open Excel
Create three columns with following titles:
1. First Name
2. Last Name
3. Phone Number

Fill your data row wise in the respective columns and then press Alt+F11 to enter the Visual Basic mode.
In the left corner you will see This workbook under VBA Project (Your file name).

Right click on This workbook - Move the cursor to Insert - Click Module

A new window will appear, paste the following codes there:

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 = "D:\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)) <> ""
        LName = VBA.Trim(Sheets("Sheet1").Cells(iRow, 1))
        FName = 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:" & LName & ";" & FName & ";;;"
        Print #FileNum, "FN:" & LName & " " & FName
        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 & " 
End Sub

Now press F5 to run the module

A Vcard file will be generated and a dialogue box will popup telling the destination of the file and the file name as well.

Thank you,
Kindly leave your feedback below.