Excelden VCard Oluşturma

[HaTM3R]

Forumda Exelden Vcard oluşturma dosyası buldum ama maalesef 10 kişiyi dönüştürüyor diğer programlarda ücretli bunu en az 20 25 li yapabilir miyiz exel 10 dan fazla dönüştürmüyor maalesef yardımlarınızı bekliyorum

 

[Haluk]

Aşağıdaki link işinize yarayabilir....

https://www.excel.web.tr/threads/iphone-telefon-rehberi-listesi-olusturan-makro.174522/

.

 

[HaTM3R]

Teşekkür ederim hocam yardımcı olduğunuz için işimi gördü.

 

[HaTM3R]

Haluk Hocam Türkçe Karakter Desteği Yok acaba yardımcı olabilir misiniz ?

 

[Murat OSMA]

Merhaba, bu uygulamayı öneririm.
Excel To VCARD Rehber Hazırlama Programı

 

[Haluk]

Haluk Hocam Türkçe Karakter Desteği Yok acaba yardımcı olabilir misiniz ?

Türkçe karakterlerde ben bir problem görmedim ama, siz bir de aşağıdaki revize ettiğim kodu deneyin...

Sub Test2()
    'Haluk - 21/08/2018
    '
    Dim objShell As Object
    Dim strDesktop As String, i As Long, NoA As Long
    Dim Name As Variant, lastName As String, firstName As String
   
    Set objShell = CreateObject("Wscript.Shell")
    strDesktop = objShell.SpecialFolders("Desktop")
   
    Open strDesktop & "\DemoVCF.vcf" For Output As #1
   
    NoA = Range("A" & Rows.Count).End(xlUp).Row
   
    For i = 1 To NoA
        Name = Split(Trim(Range("A" & i).Text), " ")
        lastName = Name(UBound(Name))
        firstName = Trim(Replace(Range("A" & i).Text, lastName, ""))
        myStr = "BEGIN:VCARD" & vbCrLf
        myStr = myStr & "VERSION:3.0" & vbCrLf
        myStr = myStr & "N;CHARSET=UTF-8;:" & lastName & ";" & firstName & ";;;" & vbCrLf
        myStr = myStr & "FN;CHARSET=UTF-8;:" & Range("A" & i) & vbCrLf
        myStr = myStr & "TEL;type=CELL;type=VOICE;type=pref:" & Range("B" & i) & vbCrLf
        myStr = myStr & "TEL;type=HOME;type=VOICE:" & Range("C" & i) & vbCrLf
        myStr = myStr & "EMAIL;TYPE=HOME,TYPE=pref;TYPE=INTERNET:" & Range("D" & i) & vbCrLf
        myStr = myStr & "END:VCARD" & vbCrLf
        Name = ""
        Print #1, myStr
    Next
   
    Close #1
    Set objShell = Nothing
End Sub

.

 

[HaTM3R]

Hocam VCard Oluşturuyor ama telefona atınca kayıt ederken türkçe karaktleri göstermiyor

 

[Haluk]

6 No'lu mesajdaki revize kodu denediniz mi?

.

 

[tukayf]

Hocam revize ettiğiniz kodda da Türkçe karakter sorunu var malesef

 

[Haluk]

Hocam revize ettiğiniz kodda da Türkçe karakter sorunu var malesef

Bir de bunu deneyin ....

15 No'lu mesajın ekindeki dosyaya bakınız....

.

 

[tukayf]

Şu an deneyemiyorum hocam yarın deneyip bilgi vereceğim. İlginiz için çok sağ olun.

 

[Haluk]

Ben şimdi Andoid üzerinde denedim, olmamış ....

.

 

[aligunes]

Bu işinizi görür

 

[tukayf]

sn. aligunes bunu da denedim sanırım internetkafa üretimiydi yanılmıyorsam, ancak bunda da Türkçe karakter sorunu vardı... Yıllar önce karakter sorunu olmayan bir dosya bulmuştum ancak arşivim kayboldu.

 

[Haluk]

Sorun giderildi, oluşturulan Vcard dosyası içeriğindeki Türkçe karakterler Android işletim sisteminde (Versiyon 8.0.0) sorunsuzca görüntülenebiliyor.

Dosya ektedir...

.

 

[tukayf]

Çok sağolun hocam zihninize sağlık.

 

[tukayf]

Sn. Haluk hocam ad soyad olarak oluşturduğumuzda telefonda soyad ad olarak geliyor. Bu bizim kullandığımız android sürümüyle mi alakalı acaba. Yerlerini değiştirdim ad ve soyadın iki ve daha fazla isimli şahısların ikinci ve üçüncü isimlerinin yerini değiştirdi bu sefer. Sorun bizim kullandığımız android sürümüyse diğer isimlerin de yerlerini değiştireceğim.

 

[Haluk]

O durumu sonradan farkedip, kodu değiştirmiştim diye hatırlıyorum....

Yukarıda 15 No'lu mesajdan dosyayı tekrar indirip, dener misiniz?

.

 

[tukayf]

deniyorum hocam sonucu yazacağım.

 

[tukayf]

Çok teşekkürler hocam gayet kullanılışlı olmuş.