Heç VCF məlumatlarından əlaqə məlumatlarını Excel vərəqinə idxal etmək istəmisinizmi? Bu məqaləni izləyin və VCF fayllarınızdan məlumatları Excel iş vərəqlərinə idxal edəcək öz VCF oxucunu yaradın
İndi Download
İstəsəniz start proqram təminatından mümkün qədər tez istifadə etmək üçün aşağıdakıları edə bilərsiniz:
Əks halda, DIY etmək istəyirsinizsə, aşağıdakı məzmunu oxuya bilərsiniz.
GUI-ni hazırlayaq
Gəlin VCF oxucu tətbiqimiz üçün GUI hazırlayaq. Sheet1-də VCF faylımızın tam yolunu saxlayacaq bir sahə yaratmalıyıq. Hüceyrə enini genişləndirmək əvəzinə, bu sahəni yaratmaq üçün xanaları birləşdirin. İstifadəçilərə VCF faylını seçməyə icazə vermək üçün vərəqə “Gözdən keçir” düyməsini əlavə edək. İstifadəçilərə VCF məlumatlarını idxal etmək üçün bizə əlavə düymə lazımdır. Gəlin bu düyməni “İmport” kimi adlandıraq.
Sheet1 indi bu kimi görünəcək
Gəlin verilənlər bazasını hazırlayaq
Məlumat bazası olaraq Sheet2-dən istifadə edəcəyik. Etməli olduğunuz yeganə şey müvafiq sütun başlıqları yaratmaqdır. Bu misal üçün mən VCF-dən Ad və Təşkilatı idxal edəcəyəm. Beləliklə, A sütununa "Ad" və B sütununa "Təşkilat" sütun başlıqlarını əlavə etdim.
Sheet2 indi bu kimi görünəcək
Gəlin onu funksional edək
İndi biz alətimiz üçün Front-End hazırlamışıq və növbəti addımımız skriptlər əlavə etməklə onu funksional etməkdir. VBA redaktorunu açın və Module1-də aşağıdakı skripti yapışdırın.
İndi Cədvəl1-ə qayıdın və “Gözdən keçir” düyməsinə Sub “pickvcf” əlavə edin. “İdxal” düyməsini sağ vurun və ona “importvcf” makrosunu təyin edin. Faylı makro aktiv fayl kimi qeyd edin və bu qədər. İndi VCF oxuyucusu hazırladınız.
Test edək
VCF faylınızı seçmək üçün "Gözdən keçir" düyməsini klikləyin. Fayl Baxışı pəncərəsində Ok düyməsini basan kimi, Cədvəl1-də seçilmiş faylın tam yolunu görə bilərsiniz. İndi “İdxal” düyməsini klikləyin və siz dərhal Sheet2-də görünən Əlaqənin Adı və Təşkilat məlumatını görəcəksiniz.
Bu necə işləyir?
Bu skriptdə iki Subs var. Alt "pickvcf" istifadəçilərə VCF faylını nəzərdən keçirməyə və seçməyə imkan verir və alt "importvcf" VCF-dən Excel faylına məlumatları oxumaq və idxal etməkdir.
Dəyişdirin
Hazırda skript VCF faylından Ad və Təşkilat məlumatlarını idxal edir. Ünvan, Telefon, Faks və E-poçt kimi digər məlumatları idxal etmək üçün skripti asanlıqla dəyişdirə bilərsiniz. Siz həmçinin bir qovluqdakı birdən çox VCF faylını oxumaq və onları toplu prosesdə idxal etmək üçün skripti düzəldə bilərsiniz.
Bu skript Excel-iniz xarab olmadıqda yaxşı işləyir. Ancaq əgər varsa zədələnmiş Excel faylı və təmir etmək istəsəniz, Excel bərpa vasitələrindən istifadə edə bilərsiniz DataNumen Excel Repair.
Ssenari
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
Müəllif Giriş:
Nik Vipond məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc təmir dok və Outlook bərpa proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com