wps表格转vcf通讯录
创作者俱乐部成员
今天论坛里有朋友问,如何将表格数据转为手机可导入的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) } |
注意使用时,需要去掉宏编辑器里,工具,选项,编译,禁止全局的两个选项
写的很简陋,忘记考虑英文姓名不需要转码的问题,应该加个判断
另外如果需要更精细的内容,添加字符串里的字段就行😁
社区管理员