vcf如何導(dǎo)入到excel
發(fā)布時(shí)間：2025-08-17 | 來(lái)源：互聯(lián)網(wǎng)轉(zhuǎn)載和整理
1.怎么將vcf文件轉(zhuǎn)為excel格式
1
首先我假設(shè)你所有的vcf合并成了一個(gè)文件。打開outlook，點(diǎn)擊工具通訊簿
2
如果是單個(gè)文件然后再文件里面選擇，導(dǎo)入，導(dǎo)入vcard文件，這時(shí)候使勁按確定將所有聯(lián)系人導(dǎo)入到地址簿。如果是多個(gè)文件直接選定所有文件然后往地址簿界面上拖動(dòng)，然后使勁按確定即可。
3
然后點(diǎn)擊導(dǎo)出，導(dǎo)出其它地址簿（是其它地址簿這點(diǎn)注意）。
4
在導(dǎo)出格式里面選擇如圖所示：文本以分隔符隔開的模式。然后保存文件到你想要的位置，然后點(diǎn)擊下一步。
5
這一步比較關(guān)鍵了。在對(duì)話框里面勾選你想要保存的數(shù)據(jù)項(xiàng)（選擇有用的數(shù)據(jù)項(xiàng)打鉤，沒(méi)有的把勾取消掉）。然后點(diǎn)擊完成，就會(huì)生成一個(gè)cvs后綴的文件。這個(gè)文件默認(rèn)是用excel打開的如果不是默認(rèn)打開，你可以先開啟excel然后再用它打開該文件。
6
最后一步應(yīng)該很簡(jiǎn)單了。用excel打開之后轉(zhuǎn)存為excel文件即可。
2.怎樣把很多EXCEL文件中的數(shù)據(jù)導(dǎo)入到一個(gè)EXCEL文件中
將800多份文件copy到一個(gè)文件夾（只有這800多Excel，且若打開某一文件，數(shù)據(jù)就能看見(jiàn)——即不用點(diǎn)其他sheet），建一新Excel，也存到該文件夾。僅打開該新Excel，按Alt+F11，左邊窗口右鍵點(diǎn)，插入模塊，在右邊窗口粘貼如下代碼：
Sub Find()
Application.ScreenUpdating = False
Dim MyDir As String
MyDir = ThisWorkbook.Path & "\"
ChDrive Left(MyDir, 1) 'find all the excel files
ChDir MyDir
Match = Dir$("")
Do
If Not LCase(Match) = LCase(ThisWorkbook.Name) Then
Workbooks.Open Match, 0 'open
ActiveSheet.Copy Before:=ThisWorkbook.Sheets(1) 'copy sheet
Windows(Match).Activate
ActiveWindow.Close
Match = Dir$
End If
Loop Until Len(Match) = 0
Application.ScreenUpdating = True
End Sub
點(diǎn)菜單上面的播放按鈕，800多文件copy完成。