Excelden VCard Oluşturma

Katılım
24 Mart 2011
Mesajlar
34
Beğeniler
0
Excel Vers. ve Dili
exel 2003
#1
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
34
Beğeniler
0
Excel Vers. ve Dili
exel 2003
#3
Teşekkür ederim hocam yardımcı olduğunuz için işimi gördü.
 
Katılım
24 Mart 2011
Mesajlar
34
Beğeniler
0
Excel Vers. ve Dili
exel 2003
#4
Haluk Hocam Türkçe Karakter Desteği Yok acaba yardımcı olabilir misiniz ?
 

Ekli dosyalar

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
7,061
Beğeniler
475
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#6
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
34
Beğeniler
0
Excel Vers. ve Dili
exel 2003
#7
Hocam VCard Oluşturuyor ama telefona atınca kayıt ederken türkçe karaktleri göstermiyor
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
7,061
Beğeniler
475
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#8
6 No'lu mesajdaki revize kodu denediniz mi?

.
 

tukayf

Altın Üye
Katılım
9 Eylül 2010
Mesajlar
450
Beğeniler
11
Excel Vers. ve Dili
2016&2019 TR
#9
Hocam revize ettiğiniz kodda da Türkçe karakter sorunu var malesef
 

tukayf

Altın Üye
Katılım
9 Eylül 2010
Mesajlar
450
Beğeniler
11
Excel Vers. ve Dili
2016&2019 TR
#11
Şu an deneyemiyorum hocam yarın deneyip bilgi vereceğim. İlginiz için çok sağ olun.
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
7,061
Beğeniler
475
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#12
Ben şimdi Andoid üzerinde denedim, olmamış ....

.
 

tukayf

Altın Üye
Katılım
9 Eylül 2010
Mesajlar
450
Beğeniler
11
Excel Vers. ve Dili
2016&2019 TR
#14
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.
 

tukayf

Altın Üye
Katılım
9 Eylül 2010
Mesajlar
450
Beğeniler
11
Excel Vers. ve Dili
2016&2019 TR
#17
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
7,061
Beğeniler
475
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#18
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

Altın Üye
Katılım
9 Eylül 2010
Mesajlar
450
Beğeniler
11
Excel Vers. ve Dili
2016&2019 TR
#20
Çok teşekkürler hocam gayet kullanılışlı olmuş.
 
Üst