EXCEL表的通讯录转成手机名片夹.vcf格式

      今天碰到个问题，要将excel表中通讯录转换为vcf格式，虽然知道要怎么做，可还是把步骤写一下，省的以后忘了。

     1.首先打开outlook2007，在联系人栏里新建一个联系人，填入你需要的信息，然后文件->导入和导出->导出到文件->选择Excel97-2003，保存后打开，将你要导入的Excel文件中对应的联系人信息填入表中，（以下很关键）将所有电话号码列全都设为文本格式，（右键设置单元格格式），多余的空列可以删掉，然后选中所有数据项，包括表头，然后右键选择“命名单元格区域”（公式-定义的名称-名称管理器 中可以看到--Excel2007），保存为“联系人”或者“电话薄”，保存即可，否则可能只导入一个名片。
     2.outlook2007->文件->导入和导出->从另一个程序或文件导入->Microsoft Excel 97-2003,选择刚刚保存的Excel文件,在“将执行下列操作”对话框中，选择刚刚保存的名称打钩，点完成即可。此时就等待进度条滚动完毕就会看到联系人里有N个名片了。
     3.此时就可以保存vcf文件了。点击某个名片，然后 文件->另存为，选择文件夹，选择.vcf格式，保存。不过我找了半天，始终没有找到批量保存。因此只好在网上找了一段宏，很好很强大，保存后执行，就可以看到 朝思暮想 vcf了。

outlook中，工具->宏，创建一个新的宏，名称任意，输入：
Sub ExportVcards() '这里是宏名称
Dim MyContacts As Outlook.MAPIFolder
Dim ContItem As Outlook.ContactItem
Dim FileName As String
Set MyContacts = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
'取得默认的联系人文件夹
For Each ContItem In MyContacts.Items '遍历所有联系人
FileName = "e:\联系人\" & ContItem.FileAs & ".vcf"
ContItem.SaveAs FileName, olVCard
'导出vfs文件
Next
End Sub
注意上面的蓝色部分为输出到的目的文件夹，此文件夹需要事先建立好，否则会报错
然后运行，如果失败，请检查c:\Contacts文件夹是否存在（不存在则要先创建），以及outlook中，工具->安全性，是否有权限运行宏。
将联系人文件夹拷入sd卡，在手机联系人的菜单中点选“从sd卡导入”即可。