如何使用 Excel VBA 创建 vCard（.vcf 文件）阅读器

Excel 解决方案 2025 年 10 月 3 日

您有没有想过将 VCF 数据中的联系人详细信息导入 Excel 工作表？按照本文创建您自己的 VCF 阅读器，将数据从您的 VCF 文件导入 Excel 工作表

立即下载

如果你想tar如果您不想尽快使用该软件，那么您可以：

否则，如果你想DIY，你可以阅读下面的内容。

让我们准备 GUI

让我们为 VCF 阅读器应用程序准备 GUI。在 Sheet1 上，我们必须创建一个字段来保存 VCF 文件的完整路径。不是扩展单元格宽度，而是合并单元格以创建此字段。为了允许用户选择 VCF 文件，让我们在工作表中添加一个“浏览”按钮。我们需要一个额外的按钮来允许用户导入 VCF 数据。我们将此按钮命名为“导入”。

Sheet1 现在看起来像这样

让我们准备数据库

我们将使用 Sheet2 作为数据库。您所要做的就是创建适当的列标题。对于此示例，我将从 VCF 导入名称和组织。因此，我在 A 列上添加了列标题“名称”，在 B 列上添加了“组织”。

Sheet2 现在看起来像这样

让我们让它发挥作用

现在我们已经为我们的工具开发了前端，下一步是通过添加脚本使其发挥作用。打开 VBA 编辑器并在 Module1 中粘贴以下脚本。

现在回到 Sheet1 并将子“pickvcf”添加到“浏览”按钮。右键单击“导入”按钮并为其分配宏“importvcf”。将文件另存为启用宏的文件，仅此而已。您现在已经开发了一个 VCF 阅读器。

让我们测试一下

单击“浏览”按钮选择您的 VCF 文件。只要在“文件浏览”窗口中按“确定”，您就可以在 Sheet1 上看到所选文件的完整路径。现在单击“导入”按钮，您将立即在 Sheet2 上看到联系人的姓名和组织信息。

如何运作的？

该脚本包含两个 Sub。子“pickvcf”是允许用户浏览和选择他们的 VCF 文件，子“importvcf”是从 VCF 读取数据并将其导入 Excel 文件。

修改它

到目前为止，该脚本从 VCF 文件中导入名称和组织信息。您可以轻松修改脚本以导入其他信息，如地址、电话、传真和电子邮件。您还可以调整脚本以读取文件夹中的多个 VCF 文件并以批处理方式导入它们。

如果您的 Excel 未损坏，此脚本运行良好。但是，如果您有损坏的 Excel 文件想要修复，可以使用Excel等恢复工具 DataNumen Excel Repair.

脚本

Sub pickvcf()
    Dim fd As Office.FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .AllowMultiSelect = False
        .Title = "Please select the file."
        .Filters.Clear
        .Filters.Add "VCF", "*.vcf"
        If .Show = True Then
            txtFileName = .SelectedItems(1)
            Sheets("Sheet1").Range("F8").Value = txtFileName
        End If
    End With
End Sub

Sub Importvcf()
    Dim fileName As String, textData As String, textRow As String, fileNo As Integer
    fileName = Sheets("Sheet1").Range("F8").Value
    fileNo = FreeFile
    r = 2
    Open fileName For Input As #fileNo
    Do While Not EOF(fileNo)
        Line Input #fileNo, textRow
        If Left(textRow, 3) = "FN:" Then
            Sheets("Sheet2").Range("A" & r).Value = Replace(textRow, "FN:", "")
        End If
        If Left(textRow, 4) = "ORG:" Then
            Sheets("Sheet2").Range("B" & r).Value = Replace(textRow, "ORG:", "")
        End If
    Loop
    Close #fileNo
End Sub

作者简介：

Nick Vipond 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括修复文档和 outlook 恢复软件产品。欲了解更多信息，请访问 datanumen.com