Dear Friends,<\/p>\n
As you have learned about interacting with Text files through Excel VBA<\/a>, it is time to see the usage of those methods you learned. One usage, you have already seen here, in how to export excel data in CSV format.<\/a> Don’t worry… this is nothing new. You have always been using this file indirectly. Sample Structure of vCard or VCF file<\/strong><\/p>\n Here is a sample vCard file. Each contact details are stored within You can refer Wiki page<\/a> to know more about all the tags used in this file format. It is explained in detail there. With a very basic vCard format, I have created a VBA code that can convert all the contacts stored in an excel sheet into a VCF File.[\/fusion_text][fusion_text]<\/p>\n <\/p>\n [\/et_pb_text][et_pb_cta title=”FREE DOWNLOAD: Excel To VCF File Converter” button_url=”\/excel\/wp-content\/downloads\/ExcelContactsToVCFConverter.xlsm” button_text=”Download Now” _builder_version=”4.17.6″ _module_preset=”a50a16dd-d05f-4ea2-acab-1468d2e4010e” global_colors_info=”{}”]<\/p>\n I have created a sample excel workbook, using which you can simply convert contact details stored in an Excel Sheet to a VCF File format which can be imported to your outlook or phone contacts.<\/p>\n Excel To VCF File Converter<\/p><\/div>\n [\/et_pb_cta][\/et_pb_column][\/et_pb_row][\/et_pb_section]<\/p>\n<\/span>","protected":false},"excerpt":{"rendered":" Dear Friends, As you have learned about interacting with Text files through Excel VBA, it is time to see the usage of those methods you learned. One usage, you have already seen here, in how to export excel data in CSV format.In this article, I am going to teach you how to Export contacts stored […]<\/p>\n","protected":false},"author":45,"featured_media":14357,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_et_pb_use_builder":"on","_et_pb_old_content":" [fusion_text]Dear Friends,<\/p> As you have learnt about interacting with Text files through Excel VBA<\/a>, it is time to see the usage of those methods you learnt. One usage, you have already seen here, in how to export excel data in CSV format.<\/a> Don't worry... this is nothing new. You have always been using this file indirectly. Sample Structure of vCard or VCF file<\/strong><\/p> Here is a sample vCard file. Each contact details are stored within With a very basic vCard format, I have created a VBA code which can convert all the contacts stored in an excel sheet in a VCF File.[\/fusion_text][fusion_text]<\/p> [\/fusion_text][fusion_text]<\/p>
In this article, I am going to teach you how to Export contacts stored in an Excel table as the vcf file format. This is also called a vCard file. In other words, VBA to convert Contact details from Excel to Mobile Contact format.
Before we go on discussing the technical implementation of it, let’s understand – What is the VCF file format? What is its use of it? How are this article and code going to help you?<\/p>\n<\/div>\n<\/i> What is VCF or vCard File ?<\/h1>\n
It is an abbreviation of V<\/strong>irtual C<\/strong>ontact F<\/strong>ile. Basically, this is Text type file which stores the contacts which you use in Outlook, mobile etc. That is why, I said.. you have always been using this file directly or inderectly.
It is also known as vCard (Virtual Card) file. Extension for this file type is .vcf or .vcard
As I mentioned above, this is simple text file but all the details of a contacts are written in a specific format.<\/p>\nBEGIN:VCARD<\/code> and END:VCARD<\/code> tags as shown below:<\/p>\nBEGIN:VCARD
\nVERSION:3.0
\nN:FirstName;LastName;;;
\nFN:FullName
\nORG:OrganizationName
\nTITLE:PostNameInOrganization
\nTEL;TYPE=WORK,VOICE:031-11223344
\nTEL;TYPE=HOME,VOICE:031-11223345
\nEMAIL:forrestgump@example.com
\nEND:VCARD<\/code><\/p>\n
For now, a number of fields, etc. does not matter, because we are going to learn the method to convert excel data to this format. The addition of fields or changes in syntax can be altered once you understand the base code with an example file.<\/p>\n<\/i> VBA Code to Save contact details as VCARD<\/h1>\n
\nSub excelTovcf()\n Dim FileNum As Integer\n Dim iRow As Integer\n Dim FirstName As String\n Dim LastName As String\n Dim FullName As String\n Dim EmailAddress As String\n Dim PhoneHome As String\n Dim PhoneWork As String\n Dim Organization As String\n Dim JobTitle As String\n \n iRow = 7\n ' set a unique integer for the new\n ' text file\n FileNum = FreeFile\n ' Save this vcf file on desktop\n OutFilePath = VBA.Environ$(\"UserProfile\") & \"\\Desktop\\MyContacts.VCF\"\n Open OutFilePath For Output As FileNum\n\n With Sheets(\"contacts\")\n While VBA.Trim(.Cells(iRow, 1)) <> \"\"\n FirstName = VBA.Trim(.Cells(iRow, 1))\n LastName = VBA.Trim(.Cells(iRow, 2))\n FullName = VBA.Trim(.Cells(iRow, 3))\n EmailAddress = VBA.Trim(.Cells(iRow, 4))\n PhoneHome = VBA.Trim(.Cells(iRow, 5))\n PhoneWork = VBA.Trim(.Cells(iRow, 6))\n Organization = VBA.Trim(.Cells(iRow, 7))\n JobTitle = VBA.Trim(.Cells(iRow, 8))\n ' Start printing the data in above specified\n ' format of VCF file format\n Print #FileNum, \"BEGIN:VCARD\"\n Print #FileNum, \"VERSION:3.0\"\n Print #FileNum, \"N:\" & FirstName & \";\" & LastName & \";;;\"\n Print #FileNum, \"FN:\" & FullName\n Print #FileNum, \"ORG:\" & Organization\n Print #FileNum, \"TITLE:\" & JobTitle\n Print #FileNum, \"TEL;TYPE=HOME,VOICE:\" & PhoneHome\n Print #FileNum, \"TEL;TYPE=WORK,VOICE:\" & PhoneWork\n Print #FileNum, \"EMAIL:\" & EmailAddress\n Print #FileNum, \"END:VCARD\"\n iRow = iRow + 1\n Wend\n End With\n 'Close The File\n MsgBox \"Total \" & iRow - 7 & \" Contacts are exported to VCF File. It is saved on your Desktop\"\n Close #FileNum\nEnd Sub\n<\/code><\/pre>\n
In the above code, I have used the most commonly used data for a contact. vCards are growing with a lot of information that can be stored for a contact. There are vCards, which even store profile pictures as well.
In this example, I have used Version 3.0. You can see there are more versions available on the wiki page.<\/div>\n![\"Excel](\"https:\/\/vmlogger.com\/excel\/wp-content\/uploads\/sites\/11\/2017\/10\/ExcelToVCFFileConverter-4.png\")
<\/a>
In this article, I am going to teach you how to Export contacts stored in Excel table as vcf file format. This is also called vCard file. In other words, VBA to convert Contact details from Excel to Mobile Contact format.
Before we go on discussing the technical implementation of it, lets understand - What is VCF file format? What is the use of it? How is this article and code going to help you?<\/p><\/i> What is VCF or vCard File ?<\/h1>
It is an abbreviation of V<\/strong>irtual C<\/strong>ontact F<\/strong>ile. Basically, this is Text type file which stores the contacts which you use in Outlook, mobile etc. That is why, I said.. you have always been using this file directly or inderectly.
It is also known as vCard (Virtual Card) file. Extension for this file type is .vcf or .vcard
As I mentioned above, this is simple text file but all the details of a contacts are written in a specific format.<\/p>BEGIN:VCARD<\/code> and END:VCARD<\/code> tags as shown below[\/fusion_text][one_full last=\"yes\" spacing=\"yes\" center_content=\"no\" hide_on_mobile=\"no\" background_color=\"#f4f4f4\" background_image=\"\" background_repeat=\"no-repeat\" background_position=\"left top\" hover_type=\"none\" link=\"\" border_position=\"all\" border_size=\"1px\" border_color=\"#f9c195\" border_style=\"solid\" padding=\"20px\" margin_top=\"\" margin_bottom=\"\" animation_type=\"0\" animation_direction=\"down\" animation_speed=\"0.1\" animation_offset=\"\" class=\"\" id=\"\"][fusion_text]BEGIN:VCARD
\r\nVERSION:3.0
\r\nN:FirstName;LastName;;;
\r\nFN:FullName
\r\nORG:OrganizationName
\r\nTITLE:PostNameInOrganization
\r\nTEL;TYPE=WORK,VOICE:031-11223344
\r\nTEL;TYPE=HOME,VOICE:031-11223345
\r\nEMAIL:forrestgump@example.com
\r\nEND:VCARD<\/code>[\/fusion_text][\/one_full][fusion_text]You can refer Wiki page<\/a> to know more about all the tags used in this file format. It is explained in detail there.
For now, number of fields etc. does not matter, because we are going to learn the method to convert excel data to this format. Addition of fields or change in syntax can be altered once you understand the base code with example file.<\/p><\/i> VBA Code to Save contact details as VCARD<\/h1>
\r\nSub excelTovcf()\r\n Dim FileNum As Integer\r\n Dim iRow As Integer\r\n Dim FirstName As String\r\n Dim LastName As String\r\n Dim FullName As String\r\n Dim EmailAddress As String\r\n Dim PhoneHome As String\r\n Dim PhoneWork As String\r\n Dim Organization As String\r\n Dim JobTitle As String\r\n \r\n iRow = 7\r\n ' set a unique integer for the new\r\n ' text file\r\n FileNum = FreeFile\r\n ' Save this vcf file on desktop\r\n OutFilePath = VBA.Environ$(\"UserProfile\") & \"\\Desktop\\MyContacts.VCF\"\r\n Open OutFilePath For Output As FileNum\r\n\r\n With Sheets(\"contacts\")\r\n While VBA.Trim(.Cells(iRow, 1)) <> \"\"\r\n FirstName = VBA.Trim(.Cells(iRow, 1))\r\n LastName = VBA.Trim(.Cells(iRow, 2))\r\n FullName = VBA.Trim(.Cells(iRow, 3))\r\n EmailAddress = VBA.Trim(.Cells(iRow, 4))\r\n PhoneHome = VBA.Trim(.Cells(iRow, 5))\r\n PhoneWork = VBA.Trim(.Cells(iRow, 6))\r\n Organization = VBA.Trim(.Cells(iRow, 7))\r\n JobTitle = VBA.Trim(.Cells(iRow, 8))\r\n ' Start printing the data in above specified\r\n ' format of VCF file format\r\n Print #FileNum, \"BEGIN:VCARD\"\r\n Print #FileNum, \"VERSION:3.0\"\r\n Print #FileNum, \"N:\" & FirstName & \";\" & LastName & \";;;\"\r\n Print #FileNum, \"FN:\" & FullName\r\n Print #FileNum, \"ORG:\" & Organization\r\n Print #FileNum, \"TITLE:\" & JobTitle\r\n Print #FileNum, \"TEL;TYPE=HOME,VOICE:\" & PhoneHome\r\n Print #FileNum, \"TEL;TYPE=WORK,VOICE:\" & PhoneWork\r\n Print #FileNum, \"EMAIL:\" & EmailAddress\r\n Print #FileNum, \"END:VCARD\"\r\n iRow = iRow + 1\r\n Wend\r\n End With\r\n 'Close The File\r\n MsgBox \"Total \" & iRow - 7 & \" Contacts are exported to VCF File. It is saved on your Desktop\"\r\n Close #FileNum\r\nEnd Sub\r\n<\/code><\/pre>