wps表格转vcf通讯录

wils

创作者俱乐部成员

今天论坛里有朋友问,如何将表格数据转为手机可导入的vcf通讯录

于是弄了个例子可以试试:

https://pan.baidu.com/s/1O2nGgVtEmZvP0iSb7tabvA?pwd=fy5c 提取码:fy5c


原理非常简单:

首先用记事本打开个手机导出的vcf文件,可以看到这就是个文本文件

其中电话字段直接写数字就行

唯一的问题是汉字名字需要转为quoted-printable编码

然后调用js库处理姓名

再用宏写到文本文件里即可

🔔

function tt()

{

ret = ''

r = Range(`A${Rows.Count}`).End(xlUp).Row

for (let i of Range(`A1:B${r}`).Value2) {

let n = quotedPrintable.encode(utf8.encode(i[0]))

ret += `BEGIN:VCARD

VERSION:2.1

N;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:${n};;;

FN;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:${n}

TEL;CELL:${i[1]}

END:VCARD

`

}

FileSystem.WriteFile(`${ThisWorkbook.Path}/out.vcf`, ret)

}

注意使用时,需要去掉宏编辑器里,工具,选项,编译,禁止全局的两个选项

写的很简陋,忘记考虑英文姓名不需要转码的问题,应该加个判断

另外如果需要更精细的内容,添加字符串里的字段就行😁

海南省
浏览 364
收藏
4
分享
4 +1
2
+1
全部评论 2
 
WPS粉丝团1号玩家

社区管理员

赞,感谢分享实践
· 广东省
回复
 
记得以前可以用QQ通讯助手,可以导入excel表格通讯录,然后再手机端安装同款APP,同步通讯录到手机
· 福建省
1
回复