后使用快捷导航没有帐号？
平板/笔记本
求助，怎么将电脑上的EXCEL表格的通讯录导入到P7中？
&登堂入室&
来自：浏览器
如题，请各位高手帮小弟解决下，谢谢啊
width:100%">
&自成一派&
来自：浏览器
楼主可以用第三方的豌豆荚或同步助手来实现。
width:100%">
&已臻大成&
来自：浏览器
您可以下载手机助手类软件导入试试，如（360手机助手），看看能否解决。
width:100%">
&花粉特种部队&
来自：浏览器
首先需要把excel表格的文件存储为csv格式，然后拷入到手机中，通过第三方通讯录软件，比如豌豆荚等再导入就可以了
求助花粉特种部队请您将问题帖发到“问题反馈“一栏中进行反馈或提供相关后续信息，如有疑问请在我的跟帖中“回复”我，我会继续跟进此问题！如果我的回复解决了您的问题，请点击下方的“支持”！您的鼓励就是我们坚持热爱的动力，感谢您的信任与支持！！！如果想加入我们，猛戳下面地址：
width:100%">
&登堂入室&
来自：浏览器
谢谢大家啊，我试试
width:100%">
&自成一派&
来自：浏览器
这个可以用手机豌豆荚这款第三方软件 试试。
width:100%">
&略有小成&
来自：浏览器
支持华为&&支持了
width:100%">
&独步江湖&
来自：浏览器
QQ同步助手，超好用
width:100%">
在职斑竹的身份勋章，感谢斑竹的辛勤劳动
1000万花粉
纪念花粉俱乐部注册花粉数超过1000万
好基友勋章
花粉好机友，注册时间大于99天
花粉特种部队荣耀勋章
北国风光西安行河边的小树林春意浓留住“美”一秒春暧花开荣耀7 随拍分享
花粉客户端
Make it Possible
Make your device special
华为云服务
Huawei cloud services
音乐播放器
Huawei Music
Huawei Vmall
没有最新动态
关注花粉俱乐部
联系我们：
|关注花粉俱乐部：
Copyright (C)
华为软件技术有限公司 版权所有 保留一切权利[原创]win7下如何把excel格式通讯录导入安卓手机
因工作需要，同事帮我整理了一份商务伙伴名单，带有公司名称、联系人、邮件等信息，保存为xls格式文件。为了方便在我的安卓智能手机上方便地联系，需要进行联系人的导入。很遗憾众多通讯录同步软件都只是基于outlook
express格式，而微软从windows7开始，默认已经取消了outlook
express这个组件，一番摸索之下找到了完美的解决办法。
1、在计算机上的处理
首先把xls文件另存为csv格式文件（以逗号作为分隔符），以便后续的处理；
接下来为了防止中文乱码的出现，用windows自带的记事本打开刚才的csv文件，不做任何修改，直接另存为utf-8编码的txt文件；
从“开始”菜单点击自己的登录用户名打开个人文件夹，选择“联系人”，如图：
双击“联系人”文件夹进入，单击上方工具栏的“导入”，选择“CSV格式”如图：
按屏幕提示进行，注意浏览本机通讯录文件时，选择刚刚以UTF-8格式另存的txt文件。
注意此处的映射关系调整，你可以任意指定手工录入通讯录的某一列对应WINDOWS联系人中的某一列并勾选，如果没有就不勾选。
完成后在“联系人”文件夹下就会出现刚才导入的所有联系人，每个联系人一个文件。接下来点击上方工具栏的“导出”选项，如图：
选择导出CSV格式的联系人，并保存为单独文件，注意不要覆盖之前的任何一个文件。
二、导入到手机通讯录
导入到手机通讯录的工具很多，我个人比较喜欢安卓手机管家。
按屏幕指示用数据线或wifi方式把计算机与手机连接，然后选择“通讯录”界面中的“导入/导出”，在“导入”级联菜单中选择“选择备份文件”，浏览定位到刚才windows联系人导出的csv文件，即可实现到手机通讯录的导入。
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。查看: 3675|回复: 42
将Excel导出的csv文件转换为手机通讯录支持的vcf文件
主题帖子积分
当大家有个通讯录是用Excel搞的时候，一个一个地把它的内容输入到手机通讯录确实很麻烦，特别是通讯录内容特别多的时候。
那么我就教大家一个简单的办法可以快速将Excel中的通讯录内容转换为手机支持的vcf文件，从而一次性全部导入。
首先请启动你的Excel，打开通讯录的文件。就像下图这样。
然后，找到另存为，文件格式这里选csv文件。
之后会弹出几个对话框，都选“确定”、“是”（个把对话框是阻止不了吾等的！）这里选“确定”
这里选“是”
然后关掉Excel。
然后我们会发现我们得到了一个文件：“工作簿1.csv”。这个文件有何用处呢？看！我的神器！
对，就是这东西。然后我们把这个csv文件拖进去。
然后就看到……
没错！我们得到了这个vcf文件。最后要做的事情就是把vcf文件导入到手机的通讯录。这个不同的手机操作方式不一，效果也不同。不过至少，安卓机目测都可以导入vcf文件。
那么手机怎么导入vcf文件呢，这个我就不说了。大家下去自己尝试。
附件：csv转vcf的程序下载回复后可见
游客，如果您要查看本帖隐藏内容请
源码文件：
(10.96 KB, 下载次数: 11)
07:59 上传
点击文件名下载附件
下载积分: 资源币 -1
部分源码：
Option Explicit
'用于转码为UTF-8
Private Declare Function WideCharToMultiByte Lib &kernel32& _
( _
& & ByVal CodePage As Long, _
& & ByVal dwFlags As Long, _
& && && & lpWideCharStr As Any, _
& & ByVal cchWideChar As Long, _
& && && & lpMultiByteStr As Any, _
& & ByVal cchMultiByte As Long, _
& && && & lpDefaultChar As Any, _
& && && & lpUsedDefaultChar As Any _
) As Long
Private Const CP_UTF8 As Long = 65001
'将csv文件转换为vcf文件的程序
Sub Csv2Vcf(ByVal CSVFile$, ByVal VCFFile$)
If Len(Dir$(VCFFile)) Then '如果要导出的VCF文件已存在
& & If MsgBox( _
& && &&&&文件已存在：& & VCFFile & vbCrLf & _
& && &&&&是否删除原有文件？&, vbYesNo, &文件已存在&) = vbYes Then
& && &&&Kill VCFFile '选择否删除现有文件
& & End If
End If
Caption = &正在将& & CSVFile & &转换为& & VCFFile
Dim CSVHead As Integer 'CSV文件头
Dim CSVBytes() As Byte 'CSV文件内容
Dim CSVLines() As String 'CSV文件的行
Dim CSVArr() As String 'CSV文件分割后的字段
Dim VCFName As String '要保存到VCF的“名字”字段
Dim VCFTel As String '要保存到VCF的“电话”字段
Dim VCFWriteString As String '要写入的字符串
Dim VCFWriteBuffer() As Byte '写入VCF文件的缓冲区
Dim NbRecord As Long '总记录数
Dim NbFailed As Long '存储失败的记录数
Dim NoSpace As Boolean '是否去掉所有空格
NoSpace = ckNoSpace.Value
Open CSVFile For Binary Access Read As #1 '打开CSV准备读取
Open VCFFile For Binary As #2&&'打开VCF准备写入
Get #1, 1, CSVHead '取得文件头判断是否Unicode编码
If CSVHead = &HFEFF Then '是Unicode编码
& & ReDim CSVBytes(LOF(1) - 3)
& & Get #1, 3, CSVBytes '取得文件所有内容
Else
& & ReDim CSVBytes(LOF(1) - 1)
& & Get #1, 1, CSVBytes '取得文件所有内容
& & CSVBytes = StrConv(CSVBytes, vbUnicode) '再转换为VB的Unicode
End If
If NoSpace Then CSVBytes = Replace(CSVBytes, & &, &&)
CSVLines = Split(CSVBytes, vbCrLf) '按行划分为数组
Dim UseUTF8 As Boolean
Dim UseUnicode As Boolean
UseUTF8 = OpUTF8.Value
UseUnicode = OpUnicode.Value
If UseUTF8 Then '用户要以UTF8编码
& & ReDim VCFWriteBuffer(2) 'UTF-8编码的文件头
& & VCFWriteBuffer(0) = &HEF
& & VCFWriteBuffer(1) = &HBB
& & VCFWriteBuffer(2) = &HBF
& & Put #2, , VCFWriteBuffer '写入UTF-8编码的文件头
& & Erase VCFWriteBuffer
ElseIf UseUnicode Then '用户要以Unicode编码
& & CSVHead = &HFEFF
& & Put #2, , CSVHead '写入Unicode编码的文件头
End If
Dim L&
For L = 0 To UBound(CSVLines) '一行一行处理
& &
& & CSVLines(L) = Trim$(CSVLines(L)) '去掉首尾空格
& & If CSVLines(L) Like &&&*&&& Then '如果是用引号包起来的则要去掉引号
& && &&&CSVLines(L) = Mid$(CSVLines(L), 2, Len(CSVLines(L)) - 2)
& & End If
& & CSVArr = Split(CSVLines(L), &,&)
& &
& & If UBound(CSVArr) && -1 Then '如果不是空字符串
& && &&&NbRecord = NbRecord + 1 '统计记录数
& && &&&If UBound(CSVArr) Then '如果csv文件有不止1列
& && && && &Dim I&
& && && && &VCFName = &&
& && && && &For I = 0 To UBound(CSVArr) - 1
& && && && && & VCFName = VCFName & CSVArr(I) '把前面的列都拼起来，作为“名字”
& && && && &Next
& && && && &VCFTel = CSVArr(I) '最后一列是“电话”
& && &&&Else 'csv只有一列，那么“名字”和“电话”是一样的。
& && && && &VCFName = CSVArr(0)
& && && && &VCFTel = CSVArr(0)
& && &&&End If
& &
& && &&&VCFWriteString = _
& && &&&&BEGIN:VCARD& & vbCrLf & _
& && &&&&VERSION:3.0& & vbCrLf & _
& && &&&&N:& & VCFName & &;;;;& & vbCrLf & _
& && &&&&FN:& & VCFName & vbCrLf & _
& && &&&&TEL;TYPE=OTHER;TYPE=PREF:& & VCFTel & vbCrLf & _
& && &&&&END:VCARD& & vbCrLf '这是要写入的字符串
& && &&&
& && &&&If UseUTF8 Then '需要转换成UTF8编码
& && && && &Dim BytesNeed As Long '取得需要的字节数
& && && && &BytesNeed = WideCharToMultiByte(CP_UTF8, 0, ByVal StrPtr(VCFWriteString), -1, ByVal 0, 0, ByVal 0, ByVal 0)
& && && && &
& && && && &If BytesNeed Then '取得成功
& && && && && & ReDim VCFWriteBuffer(BytesNeed - 1) '建立缓冲区
& && && && && & '转换为UTF8
& && && && && & If WideCharToMultiByte(CP_UTF8, 0, ByVal StrPtr(VCFWriteString), -1, VCFWriteBuffer(0), BytesNeed, ByVal 0, ByVal 0) Then
& && && && && && &&&ReDim Preserve VCFWriteBuffer(UBound(VCFWriteBuffer) - 1) '去掉结尾的\0
& && && && && && &&&Put #2, , VCFWriteBuffer '写入UTF-8编码的内容到文件
& && && && && & Else '统计失败次数
& && && && && && &&&NbFailed = NbFailed + 1
& && && && && & End If
& && && && && & Erase VCFWriteBuffer
& && && && &Else '统计失败次数
& && && && && & NbFailed = NbFailed + 1
& && && && &End If
& && &&&ElseIf UseUnicode Then 'Unicode编码
& && && && &VCFWriteBuffer = VCFWriteString
& && && && &Put #2, , VCFWriteBuffer '直接保存
& && && && &Erase VCFWriteBuffer
& && &&&Else 'ANSI编码
& && && && &VCFWriteBuffer = StrConv(VCFWriteString, vbFromUnicode)
& && && && &Put #2, , VCFWriteBuffer
& && && && &Erase VCFWriteBuffer
& && &&&End If
& & End If
Next
Close #2
If ckReport.Value Then
& & If NbFailed Then
& && &&&MsgBox &总共& & NbRecord & &条记录，有& & NbFailed & &条转换失败。&, vbExclamation, VCFFile
& & Else
& && &&&MsgBox &总共& & NbRecord & &条记录，全部转换成功。&, vbInformation, VCFFile
& & End If
End If
Caption = &搞定。&
End Sub复制代码
我每天都来逛逛下资源，每天更新各种最新VIP教程、破解软件、破解游戏，各种百度云网盘资源下载，我要把朋友也介绍来！我也要加入VIP！
资源币5950
主题帖子积分
资源币5950
哇，今天又有好东西分享!
我每天都来逛逛下资源，每天更新各种最新VIP教程、破解软件、破解游戏，各种百度云网盘资源下载，我要把朋友也介绍来！我也要加入VIP！
主题帖子积分
哈哈，沙发是我的拉！
我每天都来逛逛下资源，每天更新各种最新VIP教程、破解软件、破解游戏，各种百度云网盘资源下载，我要把朋友也介绍来！我也要加入VIP！
主题帖子积分
哇，今天又有好东西分享!
我每天都来逛逛下资源，每天更新各种最新VIP教程、破解软件、破解游戏，各种百度云网盘资源下载，我要把朋友也介绍来！我也要加入VIP！
主题帖子积分
职业菊击手, 积分 9, 距离下一级还需 6 积分
职业菊击手, 积分 9, 距离下一级还需 6 积分
太棒了，强烈支持楼主!
我每天都来逛逛下资源，每天更新各种最新VIP教程、破解软件、破解游戏，各种百度云网盘资源下载，我要把朋友也介绍来！我也要加入VIP！
主题帖子积分
职业菊击手, 积分 9, 距离下一级还需 6 积分
职业菊击手, 积分 9, 距离下一级还需 6 积分
这个之前没见过耶
我每天都来逛逛下资源，每天更新各种最新VIP教程、破解软件、破解游戏，各种百度云网盘资源下载，我要把朋友也介绍来！我也要加入VIP！
主题帖子积分
职业菊击手, 积分 2, 距离下一级还需 13 积分
职业菊击手, 积分 2, 距离下一级还需 13 积分
haodongxi xiexie
我每天都来逛逛下资源，每天更新各种最新VIP教程、破解软件、破解游戏，各种百度云网盘资源下载，我要把朋友也介绍来！我也要加入VIP！
主题帖子积分
太棒了，强烈支持楼主!
我每天都来逛逛下资源，每天更新各种最新VIP教程、破解软件、破解游戏，各种百度云网盘资源下载，我要把朋友也介绍来！我也要加入VIP！
主题帖子积分
职业菊击手, 积分 13, 距离下一级还需 2 积分
职业菊击手, 积分 13, 距离下一级还需 2 积分
我每天都来逛逛下资源，每天更新各种最新VIP教程、破解软件、破解游戏，各种百度云网盘资源下载，我要把朋友也介绍来！我也要加入VIP！
主题帖子积分
职业菊击手, 积分 13, 距离下一级还需 2 积分
职业菊击手, 积分 13, 距离下一级还需 2 积分
我每天都来逛逛下资源，每天更新各种最新VIP教程、破解软件、破解游戏，各种百度云网盘资源下载，我要把朋友也介绍来！我也要加入VIP！
注册用户登录后即可获得此勋章
连续7天登录即可获得此勋章，如连续3天不登录则收回此勋章
为网站的发展做出卓越贡献的会员
Powered by}