Excelden VCard Oluşturma

Katılım
24 Mart 2011
Mesajlar
38
Excel Vers. ve Dili
exel 2003
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 :)
 

Ekli dosyalar

Katılım
24 Mart 2011
Mesajlar
38
Excel Vers. ve Dili
exel 2003
Teşekkür ederim hocam yardımcı olduğunuz için işimi gördü.
 
Katılım
24 Mart 2011
Mesajlar
38
Excel Vers. ve Dili
exel 2003
Haluk Hocam Türkçe Karakter Desteği Yok acaba yardımcı olabilir misiniz ?
 

Ekli dosyalar

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
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...

Kod:
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
.
 
Son düzenleme:
Katılım
24 Mart 2011
Mesajlar
38
Excel Vers. ve Dili
exel 2003
Hocam VCard Oluşturuyor ama telefona atınca kayıt ederken türkçe karaktleri göstermiyor
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
6 No'lu mesajdaki revize kodu denediniz mi?

.
 
Katılım
9 Eylül 2010
Mesajlar
855
Excel Vers. ve Dili
2016&2019&2021 TR
Hocam revize ettiğiniz kodda da Türkçe karakter sorunu var malesef
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Son düzenleme:
Katılım
9 Eylül 2010
Mesajlar
855
Excel Vers. ve Dili
2016&2019&2021 TR
Şu an deneyemiyorum hocam yarın deneyip bilgi vereceğim. İlginiz için çok sağ olun.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Ben şimdi Andoid üzerinde denedim, olmamış ....

.
 
Katılım
9 Eylül 2010
Mesajlar
855
Excel Vers. ve Dili
2016&2019&2021 TR
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

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
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...

.
 

Ekli dosyalar

Katılım
9 Eylül 2010
Mesajlar
855
Excel Vers. ve Dili
2016&2019&2021 TR
Çok sağolun hocam zihninize sağlık.
 
Katılım
9 Eylül 2010
Mesajlar
855
Excel Vers. ve Dili
2016&2019&2021 TR
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

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
O durumu sonradan farkedip, kodu değiştirmiştim diye hatırlıyorum....

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

.
 
Katılım
9 Eylül 2010
Mesajlar
855
Excel Vers. ve Dili
2016&2019&2021 TR
deniyorum hocam sonucu yazacağım.
 
Katılım
9 Eylül 2010
Mesajlar
855
Excel Vers. ve Dili
2016&2019&2021 TR
Çok teşekkürler hocam gayet kullanılışlı olmuş.
 
Üst