简单粗暴的excel转vcf联系人格式

fzzt

在手机上一个个输入联系人信息并储存挺麻烦，于是用excel vba写了一个简单的转换程序，将excel表格转换成方便手机识别的VCF格式。
在sheet里填写联系人基本信息，直接运行宏，会在excel的相同路径生成一个VCF文件。可填写的内容不多，但满足大多数人的需求了。
默认生成的VCF文件是ANSI编码的，很多手机识别不了里面的中文，建议用windows自带的记事本打开，另存为UTF-8格式。 excel2vcf.zip (12.82 KB, 下载次数: 18)

2017-5-25 15:07 上传

点击文件名下载附件

填写表格

1. 
   
2. Sub main()
   
3. 
   
4. Dim sVCard As String
   
5. Dim i As Integer
   
6. 
   
7. Open ThisWorkbook.Path & "\excel2vcf.vcf" For Output As #1 '打开文件
   
8. i = 2
   
9. While (Cells(i, 1) <> "")
   
10.     sVCard = "BEGIN:VCARD" & vbCrLf & "VERSION:3.0" & vbCrLf
    
11.     sVCard = sVCard & "FN:" & Cells(i, 1) & vbCrLf 'Full Name
    
12.     If (Cells(i, 2) <> "") Then sVCard = sVCard & "TEL;TYPE=CELL:" & Cells(i, 2) & vbCrLf '手机
    
13.     If (Cells(i, 3) <> "") Then sVCard = sVCard & "TEL;TYPE=CELL:" & Cells(i, 3) & vbCrLf
    
14.     If (Cells(i, 4) <> "") Then sVCard = sVCard & "TEL;TYPE=WORK:" & Cells(i, 4) & vbCrLf '电话
    
15.     If (Cells(i, 5) <> "") Then sVCard = sVCard & "TEL;TYPE=WORK:" & Cells(i, 5) & vbCrLf
    
16.     If (Cells(i, 6) <> "") Then sVCard = sVCard & "EMAIL;TYPE=HOME:" & Cells(i, 6) & vbCrLf '邮箱
    
17.     sVCard = sVCard + "END:VCARD" & vbCrLf
    
18.     Print #1, sVCard
    
19.     i = i + 1
    
20. Wend
    
21. Close #1 '关闭文件
    
22. 
    
23. End Sub
    

复制代码

生成的结果

1. BEGIN:VCARD
   
2. VERSION:3.0
   
3. FN:张三
   
4. TEL;TYPE=CELL:13811112222
   
5. TEL;TYPE=WORK:01025154758
   
6. EMAIL;TYPE=HOME:abc@outlook.com
   
7. END:VCARD
   
8. 
   
9. BEGIN:VCARD
   
10. VERSION:3.0
    
11. FN:李斯
    
12. TEL;TYPE=CELL:13988886666
    
13. TEL;TYPE=WORK:02012345687
    
14. END:VCARD
    
15. 
    
16. BEGIN:VCARD
    
17. VERSION:3.0
    
18. FN:王五
    
19. TEL;TYPE=CELL:13855555555
    
20. TEL;TYPE=CELL:13566665555
    
21. TEL;TYPE=WORK:02188885555
    
22. EMAIL;TYPE=HOME:250@163.com
    
23. END:VCARD
    
24. 
    
25. BEGIN:VCARD
    
26. VERSION:3.0
    
27. FN:赵六
    
28. TEL;TYPE=CELL:13612346666
    
29. TEL;TYPE=WORK:02677886666
    
30. TEL;TYPE=WORK:02655556666
    
31. END:VCARD
    

复制代码