VBA生成二维码：添加手机联系人

平时手机添加联系人，一般都是手动输入姓名、手机号等信息，或者是互相通过短信、微信等方式把信息发送到手机上再复制添加。

如果你是一个经常搞接待或者会议的人，这种时候可能信息已经做好Excel表格存放在电脑上了，这个时候要添加到手机的话，一般做法估计也是照着一个一个的输到手机上去，这样容易出现错误，介绍一种使用vCard格式生成二维码后，直接扫码添加的方法，微信扫码效果：

直接点保存即可以添加联系人，比较方便，也不会出现输错的情况。

这个方法除了使用前面介绍的VBA生成二维码功能，还需要vCard格式，我做好的VBA程序格式如下：

按这个要求输入好信息后，程序会将信息转换为vCard格式：

BEGIN:VCARD
VERSION:3.0
N:test1姓名
TEL:11111111111
ORG:test1单位
ROLE:test1部门
TITLE:test1职务
ADR:test1地址江西省 南昌市
END:VCARD

vCard格式比这个还要复杂，这里只是为了满足添加手机联系人。

我做好的VBA程序只要双击某一行，就会显示当前行的二维码：

显然这样扫一次添加一个联系人，数量不太多的情况下，多扫几次就可以，但是如果数量比较多，总扫也挺麻烦的。

你是否也这么想了：在vCard格式的基础上，将多个联系人的vCard格式连接到一起，再生成二维码？一次扫码添加多个？

可惜这样不行！不过还是有一个办法的，多个联系人的vCard格式连接到一起后，将连接后的字符写入到一个后缀为.vcf的文件中，然后利用电脑端的微信将这个文件传输到微信上——打开——用其他程序打开——选择通讯录：

这样就可以一次性添加多个联系人了。

程序中也做好了这个功能，按格式输入好信息后，点击按钮就会在程序文件的路径下生存一个vcard.vcf的文件：

在公众号回复vcard获取程序文件。