Convert Vcard 2.1 to 3.0 using Excel Macro

Join all Vcf with code

put all your contact cards into a folder and lets call it newcontacts for example, place it in the C:\ drive.
so now you have a folder named newcontacts in your c: drive.
Open up the run from windows start menu, and type CMD to open the command prompt.
type exactly “cd c:\newcontacts” and hit enter, don’t forget the space.
then type in “copy *.vcf allcontacts.vcf”
wait for the files to merge

Open the joined V card in excel

On the developer tab Create a macro , Lets say “test”.

Replace the code with

Dim ws As Worksheet
Dim i, irow As Long

Sub test()

Set ws = Worksheets(“all”) ‘ replace “all” with the name of the sheet

For i = 1 To 6000 ’6 times the total number of contacts

If ws.Cells(i, 1).Value = “BEGIN:VCARD” Then
i = i + 1
ws.Cells(i, 1).Value = “VERSION:3.0″
i = i + 1
ws.Cells(i, 1).EntireRow.Insert
ws.Cells(i, 1).Value = “PRODID:-//Apple Inc.//iOS 6.0.1//EN”
i = i + 1
ws.Cells(i, 1).Value = ws.Cells(i, 1).Value & “;;;”
i = i + 1
ws.Cells(i, 1).EntireRow.Insert
ws.Cells(i, 1).Value = “FN:”

End If

Next

End Sub

Copy the whole And put it into a Notepad and save as .VCF

© Since 2007-2013 Kenney Jacob. Follow me on Twitter