保函网

vcf如何导入到excel

发布时间：2025-08-17 | 来源：互联网转载和整理

1.怎么将vcf文件转为excel格式

1

首先我假设你所有的vcf合并成了一个文件。打开outlook，点击工具通讯簿

2

如果是单个文件然后再文件里面选择，导入，导入vcard文件，这时候使劲按确定将所有联系人导入到地址簿。如果是多个文件直接选定所有文件然后往地址簿界面上拖动，然后使劲按确定即可。

3

然后点击导出，导出其它地址簿（是其它地址簿这点注意）。

4

在导出格式里面选择如图所示：文本以分隔符隔开的模式。然后保存文件到你想要的位置，然后点击下一步。

5

这一步比较关键了。在对话框里面勾选你想要保存的数据项（选择有用的数据项打钩，没有的把勾取消掉）。然后点击完成，就会生成一个cvs后缀的文件。这个文件默认是用excel打开的如果不是默认打开，你可以先开启excel然后再用它打开该文件。

6

最后一步应该很简单了。用excel打开之后转存为excel文件即可。

2.怎样把很多EXCEL文件中的数据导入到一个EXCEL文件中

将800多份文件copy到一个文件夹（只有这800多Excel，且若打开某一文件，数据就能看见——即不用点其他sheet），建一新Excel，也存到该文件夹。仅打开该新Excel，按Alt+F11，左边窗口右键点，插入模块，在右边窗口粘贴如下代码：

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

点菜单上面的播放按钮，800多文件copy完成。