Вы когда-нибудь хотели импортировать контактную информацию из данных VCF в таблицу Excel? Следуйте этой статье и создайте свою собственную программу чтения VCF, которая будет импортировать данные из ваших файлов VCF в листы Excel.
Скачать сейчас
Если вы хотите сtart использовать программное обеспечение как можно скорее, то вы можете:
Загрузите программное обеспечение сейчас
В противном случае, если вы хотите сделать своими руками, вы можете прочитать содержимое ниже.
Давайте подготовим графический интерфейс
Давайте подготовим графический интерфейс для нашего приложения для чтения VCF. На Sheet1 мы должны создать поле, которое будет содержать полный путь к нашему файлу VCF. Вместо увеличения ширины ячейки объедините ячейки, чтобы создать это поле. Чтобы позволить пользователям выбирать файл VCF, давайте добавим на лист кнопку «Обзор». Нам нужна дополнительная кнопка, чтобы пользователи могли импортировать данные VCF. Назовем эту кнопку «Импорт».
Sheet1 теперь будет выглядеть так
Подготовим базу
Мы будем использовать Sheet2 в качестве базы данных. Все, что вам нужно сделать, это создать соответствующие заголовки столбцов. Для этого примера я собираюсь импортировать имя и организацию из VCF. Поэтому я добавил заголовки столбцов «Имя» в столбец А и «Организация» в столбец Б.
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