20180821ImportContactFromExcel

时间:2022-09-09 12:03:42
Excel创建vcf文件,借助百度云助手导入Iphone6Plus

Sub CreateContractList()
Set Wb = Application.ThisWorkbook
FilePath = Wb.Path & "\班级通讯录.txt"
Set Sht = Wb.Worksheets("处理")
With Sht
EndRow = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
For i = 2 To EndRow
ThisOne = "BEGIN:VCARD" & vbCr & _
"VERSION:3.0" & vbCr & _
"FN: " & "Class12" & .Cells(i, 2).Value & vbCr & _
"N:Class12;" & .Cells(i, 2).Value & ";;" & vbCr & _
"TEL;TYPE=HOME:" & .Cells(i, "F").Value & vbCr & _
"TEL;TYPE=WORK:" & .Cells(i, "G").Value & vbCr & _
"ADR;TYPE=HOME:;;" & .Cells(i, "I").Value & ";广州市;广东省;;中国" & vbCr & _
"ADR;TYPE=WORK:;;(" & .Cells(i, "C").Value & ")(" & .Cells(i, "D").Value & ")(" & _
.Cells(i, "E").Value & ");广州市;广东省;;中国" & vbCr & _
"End:VCARD"
If FileText = "" Then
FileText = FileText & ThisOne
Else
FileText = FileText & vbCr & ThisOne
End If
Next i
End With
NewTextFile FilePath, FileText
End Sub
Sub NewTextFile(ByVal FilePath As String, ByVal FileContent As String)
Open FilePath For Output As #1
Print #1, FileContent
Close #1
End Sub

  

20180821ImportContactFromExcel的更多相关文章

    随机推荐

    1. C/C++语法知识:typedef struct 用法详解

      第一篇:typedef struct与struct的区别 1. 基本解释 typedef为C语言的关键字,作用是为一种数据类型定义一个新名字.这里的数据类型包括内部数据类型(int,char等)和自定 ...

    2. CMOS and BIOS

      1,cmos简介.   cmos是主板上一块可读写的RAM芯片.用途:主要用来保存当前系统的硬件配置和操作人员对某些参数的设定.cmos芯片是由一块纽扣电池供电.因此在关机状态内部信息也不会丢失. 2 ...

    3. JS操作Radio与Select

      //radio的chang事件,以及获取选中的radio的值 $("input[name=radioName]").on("change", function( ...

    4. Android 对话框弹出位置和透明度的设置

      在Android中 我们经常会用AlertDialog来显示对话框.通过这个对话框是显示在屏幕中心的.但在某些程序中,要求对话框可以显示在不同的位置.例如,屏幕的上 方或下方.要实现这种效果.就需要获 ...

    5. Unity寻路的功能总结

      源地址:http://blog.csdn.net/sgnyyy/article/details/21878163 1. 利用Unity本身自带的NavMesh 这篇文章已经比较详细,可能对于很多需要a ...

    6. Servle资源注射

      Servle资源注射@WebServlet(name = "DownloadServlet",urlPatterns ="/DownloadServlet" ) ...

    7. Mybatis源码分析--关联表查询及延迟加载原理(二)

      在上一篇博客Mybatis源码分析--关联表查询及延迟加载(一)中我们简单介绍了Mybatis的延迟加载的编程,接下来我们通过分析源码来分析一下Mybatis延迟加载的实现原理. 其实简单来说Myba ...

    8. install openjdk & tomcat on the centos

      1.检查当前服务器是否已安装openjdk

    9. Suricata在ubuntu14.04环境下安装

      简介 Suricata是一款高性能的网络IDS.IPS和网络安全监控引擎.它是由the Open Information Security Foundation开发,是一款开源的系统,现在的NIDS领 ...

    10. SQL SERVER的锁机制(一)——概述(锁的种类与范围)

      锁定:通俗的讲就是加锁.锁定是 Microsoft SQL Server 数据库引擎用来同步多个用户同时对同一个数据块的访问的一种机制. 定义:当有事务操作时,数据库引擎会要求不同类型的锁定,如相关数 ...