Kako stvoriti čitač vCard (.vcf datoteka) s Excel VBA

Jeste li ikada željeli uvesti podatke o kontaktu iz VCF podataka u Excel tablicu? Slijedite ovaj članak i izradite vlastiti VCF čitač koji bi uvozio podatke iz vaših VCF datoteka u Excel radne listove

Preuzmite sada

Ako želite što prije početi koristiti softver, možete:

Preuzmite softver sada

Inače, ako želite DIY, možete pročitati sadržaj u nastavku.

Pripremimo GUI

Pripremimo GUI za našu aplikaciju VCF čitača. Na Sheet1 moramo stvoriti polje koje će sadržavati punu putanju naše VCF datoteke. Umjesto proširenja širine ćelije, spojite ćelije da biste stvorili ovo polje. Kako bismo korisnicima omogućili odabir VCF datoteke, dodajmo gumb "Pregledaj" na list. Trebamo dodatni gumb kako bismo korisnicima omogućili uvoz VCF podataka. Nazovimo ovaj gumb "Uvezi".

Sheet1 će sada izgledati ovako

Pripremimo bazu podataka

Koristit ćemo Sheet2 kao bazu podataka. Sve što trebate učiniti je stvoriti odgovarajuća zaglavlja stupaca. Za ovaj primjer, uvest ću ime i organizaciju iz VCF-a. Stoga sam dodao zaglavlja stupaca "Ime" u stupac A i "Organizacija" u stupac B.

Sheet2 će sada izgledati ovako

Učinimo ga funkcionalnim

Sada smo razvili Front-End za naš alat i naš sljedeći korak je učiniti ga funkcionalnim dodavanjem skripti. Otvorite VBA editor i u Module1 zalijepite donju skriptu.

Sada se vratite na Sheet1 i dodajte Sub “pickvcf” na gumb “Browse”. Desnom tipkom miša kliknite gumb "Uvezi" i dodijelite mu makronaredbu "importvcf". Spremite datoteku kao datoteku s omogućenim makronaredbama i to je to. Sada ste razvili VCF čitač.

Isprobajmo ga

Kliknite na gumb "Pregledaj" za odabir VCF datoteke. Čim pritisnete OK u prozoru za pretraživanje datoteka, mogli biste vidjeti punu putanju odabrane datoteke koja se pojavljuje na Sheet1. Sada kliknite gumb "Uvezi" i odmah ćete vidjeti podatke o imenu i organizaciji kontakta koji se pojavljuju na Sheet2.

Kako radi?

Ova skripta sadrži dva Suba. Pod "pickvcf" omogućuje korisnicima pregledavanje i odabir VCF datoteke, a pod "importvcf" čitanje i uvoz podataka iz VCF u Excel datoteku.

Izmijenite ga

Od sada skripta uvozi podatke o imenu i organizaciji iz VCF datoteke. Možete jednostavno izmijeniti skriptu za uvoz drugih podataka kao što su adresa, telefon, faks i e-pošta. Također možete podesiti skriptu da čita više VCF datoteka u mapi i uvozi ih u skupnom procesu.

Ova skripta radi dobro ako vaš Excel nije oštećen. Međutim, ako imate a oštećenu Excel datoteku i želite ga popraviti, možete koristiti Excel alate za oporavak kao što su DataNumen Excel Repair.

Script

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

Uvod za autora:

Nick Vipond je stručnjak za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak dok i softverski proizvodi za oporavak Outlooka. Za više informacija posjetite www.datanumen.com