Как создать vCard (файл .vcf) для чтения с помощью Excel VBA

Поделись сейчас:

Вы когда-нибудь хотели импортировать контактную информацию из данных VCF в таблицу Excel? Следуйте этой статье и создайте свою собственную программу чтения VCF, которая будет импортировать данные из ваших файлов VCF в листы Excel.

Скачать сейчас

Если вы хотите сtart использовать программное обеспечение как можно скорее, то вы можете:

Загрузите программное обеспечение сейчас

В противном случае, если вы хотите сделать своими руками, вы можете прочитать содержимое ниже.

Давайте подготовим графический интерфейс

Давайте подготовим графический интерфейс для нашего приложения для чтения VCF. На Sheet1 мы должны создать поле, которое будет содержать полный путь к нашему файлу VCF. Вместо увеличения ширины ячейки объедините ячейки, чтобы создать это поле. Чтобы позволить пользователям выбирать файл VCF, давайте добавим на лист кнопку «Обзор». Нам нужна дополнительная кнопка, чтобы пользователи могли импортировать данные VCF. Назовем эту кнопку «Импорт».

Sheet1 теперь будет выглядеть такПодготовьте графический интерфейс для нашего приложения для чтения VCF

Подготовим базу

Мы будем использовать Sheet2 в качестве базы данных. Все, что вам нужно сделать, это создать соответствующие заголовки столбцов. Для этого примера я собираюсь импортировать имя и организацию из VCF. Поэтому я добавил заголовки столбцов «Имя» в столбец А и «Организация» в столбец Б.

Sheet2 теперь будет выглядеть такИспользование Sheet2 в качестве базы данных

Давайте сделаем его функциональным

Теперь мы разработали внешний интерфейс для нашего инструмента, и наш следующий шаг — сделать его функциональным, добавив сценарии. Откройте редактор VBA и в Module1 вставьте приведенный ниже скрипт.

Теперь вернитесь к Sheet1 и добавьте Sub «pickvcf» к кнопке «Browse». Щелкните правой кнопкой мыши кнопку «Импорт» и назначьте ей макрос «importvcf». Сохраните файл как файл с поддержкой макросов, и все. Теперь вы разработали считыватель VCF.

Давайте проверим это

Нажмите кнопку «Обзор», чтобы выбрать файл VCF. Как только вы нажмете «ОК» в окне «Обзор файлов», вы увидите полный путь к выбранному файлу, отображаемый на Листе 1. Теперь нажмите кнопку «Импорт», и вы сразу увидите имя и информацию об организации контакта, появившуюся на Листе 2.

Как это работает?

Этот скрипт содержит два Subs. Подпрограмма «pickvcf» позволяет пользователям просматривать и выбирать свой файл VCF, а подпрограмма «importvcf» предназначена для чтения и импорта данных из VCF в файл Excel.

Измените это

На данный момент скрипт импортирует информацию об имени и организации из файла VCF. Вы можете легко изменить сценарий, чтобы импортировать другую информацию, такую ​​как адрес, телефон, факс и электронная почта. Вы также можете настроить скрипт для чтения нескольких файлов VCF в папке и их импорта в пакетном режиме.

Этот сценарий хорошо работает, если ваш Excel не поврежден. Однако если у вас есть поврежденный файл Excel и хотите восстановить его, вы можете использовать инструменты восстановления Excel, такие как DataNumen Excel Repair.

Сценарий

Sub pickvcf() Dim fd As Office.FileDialog Установить fd = Application.FileDialog(msoFileDialogFilePicker) С помощью fd .AllowMultiSelect = False .Title = «Пожалуйста, выберите файл». .Filters.Clear .Filters.Add "VCF", "*.vcf" Если .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 Как #fileNo Делать, пока не EOF(fileNo) Строка ввода #fileNo, textRow If Left(textRow, 3) = "FN:" Then Sheets("Sheet2").Range("A" & r).Value = Replace(textRow , "FN:", "") End If Left(textRow, 4) = "ORG:" Then Sheets("Sheet2").Range("B" & r).Value = Replace(textRow, "ORG:" , "") End If Loop Close #fileNo End Sub

Об авторе:

Ник Випонд — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая документ по ремонту и программные продукты для восстановления Outlook. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

3 ответа на «Как создать программу чтения vCard (файл .vcf) с помощью Excel VBA»

  1. Здравствуйте, конечно, эта статья действительно требовательна, и из нее я узнал много нового о ведении блога. Спасибо.

Оставьте комментарий

Ваш электронный адрес не будет опубликован. Обязательные поля помечены * *