excel批量导出联系人

给你一个excel文档，存了联系人姓名和手机号码，但是一个个存入手机是一件很烦的事，现在告诉你一个方法，批量导入和生成。大家有什么方法也可以一起交流下！

打开你要转化的excel文件

另存为的时候注意选择保存类型

打开outlook 点击文件→导入

导入时一定要选择映射左边的是值右边的是存入什么字段

批量导出点击工具→宏→VB编辑器写入下列代码

点击工具→宏→运行

导出成功直接复制到手机里导入就行了，是不是很简单，但是大家有没有发现第一条记录没了，怎样才能保留第一条记录呢？其实很简单，在excel时多加上列名就ok了。

附代码：

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 = "F:\Phone\" & ContItem.FileAs & ".vcf"

ContItem.SaveAs FileName, olVCard

Next

End Sub