Ako vytvoriť čítačku vCard (súbor .vcf) pomocou programu Excel VBA

Chceli ste niekedy importovať kontaktné údaje z údajov VCF do hárka programu Excel? Postupujte podľa tohto článku a vytvorte si vlastnú čítačku VCF, ktorá by importovala údaje z vašich súborov VCF do pracovných hárkov programu Excel

stiahnuť

Ak chcete začať používať softvér čo najskôr, môžete:

Stiahnite si softvér teraz

V opačnom prípade si môžete prečítať obsah uvedený nižšie.

Poďme pripraviť GUI

Pripravíme grafické používateľské rozhranie pre našu aplikáciu na čítanie VCF. Na Hárku1 musíme vytvoriť pole, ktoré bude obsahovať celú cestu k nášmu súboru VCF. Namiesto rozširovania šírky buniek zlúčte bunky, aby ste vytvorili toto pole. Aby sme používateľom umožnili výber súboru VCF, pridajme na hárok tlačidlo „Prehľadávať“. Potrebujeme ďalšie tlačidlo, ktoré používateľom umožní import údajov VCF. Toto tlačidlo pomenujeme ako „Importovať“.

Hárok1 bude teraz vyzerať takto

Pripravme si databázu

Ako databázu budeme používať Sheet2. Musíte len vytvoriť príslušné hlavičky stĺpcov. V tomto príklade budem importovať meno a organizáciu z VCF. Takže som pridal hlavičky stĺpcov „Názov“ do stĺpca A a „Organizácia“ do stĺpca B.

Hárok2 bude teraz vyzerať takto

Nech je to funkčné

Teraz sme pre náš nástroj vyvinuli rozhranie Front-End a naším ďalším krokom je jeho funkčnosť pridaním skriptov. Otvorte editor VBA a do modulu1 vložte nasledujúci skript.

Teraz sa vráťte k Listu 1 a do tlačidla „Prehľadávať“ pridajte Sub „pickvcf“. Pravým tlačidlom myši kliknite na tlačidlo „Importovať“ a priraďte mu makro „importvcf“. Uložte súbor ako súbor s povolenými makrami a je to. Teraz ste vyvinuli čítačku VCF.

Poďme to vyskúšať

Kliknutím na tlačidlo „Prehľadávať“ vyberte svoj súbor VCF. Hneď ako stlačíte Ok v okne Prehliadanie súborov, môžete vidieť celú cestu k vybranému súboru na hárku1. Teraz kliknite na tlačidlo „Importovať“ a na zozname 2 sa okamžite zobrazia informácie o mene a organizácii kontaktu.

Ako to funguje?

Tento skript obsahuje dva subs. Sub „pickvcf“ má umožniť používateľom prechádzať a vyberať ich súbory VCF a sub „importvcf“ má načítať a importovať dáta z VCF do súboru programu Excel.

Upravte to

Od tejto chvíle skript importuje informácie o mene a organizácii zo súboru VCF. Skript môžete ľahko upraviť tak, aby importoval ďalšie informácie, ako je adresa, telefón, fax a e-mail. Môžete tiež vylepšiť skript tak, aby čítal viac súborov VCF v priečinku a importoval ich hromadne.

Tento skript funguje dobre, ak váš program Excel nie je poškodený. Ak však máte poškodený súbor programu Excel a chcete ho opraviť, môžete použiť nástroje na obnovenie programu Excel, ako napr DataNumen Excel Repair.

Skript

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

Úvod autora:

Nick Vipond je expert na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane oprava doc a výhľadové softvérové ​​produkty na obnovenie. Pre viac informácií navštívte www.datanumen. S