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