Cum se creează un cititor vCard (fișier .vcf) cu Excel VBA

Ați dorit vreodată să importați detalii de contact din datele VCF într-o foaie Excel? Urmați acest articol și creați-vă propriul cititor VCF care ar importa date din fișierele dvs. VCF în foile de lucru Excel

Descarcă acum

Dacă vrei să starPentru a utiliza software-ul cât mai curând posibil, atunci puteți:

Descărcați software-ul acum

În rest, dacă vrei să faci DIY, poți citi conținutul de mai jos.

Să pregătim GUI

Să pregătim GUI pentru aplicația noastră de citire VCF. Pe Sheet1 trebuie să creăm un câmp care va conține calea completă a fișierului nostru VCF. În loc să extindeți lățimea celulei, îmbinați celulele pentru a crea acest câmp. Pentru a le permite utilizatorilor să selecteze fișierul VCF, să adăugăm un buton „Răsfoiți” pe foaie. Avem nevoie de un buton suplimentar pentru a permite utilizatorilor să importe datele VCF. Să numim acest buton drept „Import”.

Sheet1 va arăta acum astfelPregătiți GUI pentru aplicația noastră de citire VCF

Să pregătim baza de date

Vom folosi Sheet2 ca bază de date. Tot ce trebuie să faceți este să creați antete de coloană adecvate. Pentru acest exemplu, voi importa numele și organizația din VCF. Așa că am adăugat antetele de coloană „Nume” pe coloana A și „Organizație” pe coloana B.

Sheet2 va arăta acum astfelFolosind Sheet2 ca bază de date

Să-l facem funcțional

Acum am dezvoltat Front-End-ul pentru instrumentul nostru și următorul nostru pas este să îl facem funcțional prin adăugarea de scripturi. Deschideți editorul VBA și în Module1 lipiți scriptul de mai jos.

Acum reveniți la Sheet1 și adăugați sub „pickvcf” la butonul „Browse”. Faceți clic dreapta pe butonul „Import” și atribuiți-i macro-ul „importvcf”. Salvați fișierul ca fișier activat pentru macro și asta este. Acum ați dezvoltat un cititor VCF.

Să-l testăm

Faceți clic pe butonul „Răsfoiți” pentru a selecta fișierul VCF. De îndată ce apăsați Ok în fereastra File Browse, puteți vedea calea completă a fișierului selectat care apare pe Sheet1. Acum faceți clic pe butonul „Importați” și veți vedea imediat informațiile despre numele și organizația contactului care apar pe Sheet2.

Cum functioneaza?

Acest script deține două Subs. Sub „pickvcf” este pentru a permite utilizatorilor să răsfoiască și să își selecteze fișierul VCF, iar sub „importvcf” este să citească și să importe date din VCF în fișierul Excel.

Modificați-l

De acum, scriptul importă informații despre Nume și Organizație din fișierul VCF. Puteți modifica cu ușurință scriptul pentru a importa alte informații precum Adresă, Telefon, Fax și E-mail. De asemenea, puteți modifica scriptul pentru a citi mai multe fișiere VCF într-un folder și a le importa într-un proces batch.

Acest script funcționează bine dacă Excel nu este corupt. Cu toate acestea, dacă aveți un fișier Excel corupt și doriți să-l reparați, puteți utiliza instrumente de recuperare Excel, cum ar fi DataNumen Excel Repair.

Scenariu

Sub pickvcf() Dim fd As Office.FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) Cu fd .AllowMultiSelect = False .Title = "Vă rugăm să selectați fișierul." .Filters.Clear .Filters.Add "VCF", "*.vcf" If .Show = True Then txtFileName = .SelectedItems(1) Sheets("Sheet1").Range("F8").Value = txtFileName End If End Cu 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 Deschideți FileName pentru intrare Ca #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

Introducerea autorului:

Nick Vipond este un expert în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparatie doc și produse software de recuperare Outlook. Pentru mai multe informații vizitați www.datanumen.com

3 răspunsuri la „Cum se creează un cititor vCard (fișier .vcf) cu Excel VBA”

  1. Bună, bineînțeles că acest articol este cu adevărat exigent și am învățat multe lucruri din el despre blogging. Mulțumiri.

Lasă un comentariu

Adresa ta de email nu va fi publicată. Câmpurile obligatorii sunt marcate *