• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Excelden VCard Oluşturma

  • Konbuyu başlatan Konbuyu başlatan HaTM3R
  • Başlangıç tarihi Başlangıç tarihi
H

HaTM3R

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

Teşekkür ederim hocam yardımcı olduğunuz için işimi gördü.
 
Haluk Hocam Türkçe Karakter Desteği Yok acaba yardımcı olabilir misiniz ?
 

Ekli dosyalar

HaTM3R' Alıntı:
Haluk Hocam Türkçe Karakter Desteği Yok acaba yardımcı olabilir misiniz ?
Genişletmek için tıkla ...


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:
Hocam VCard Oluşturuyor ama telefona atınca kayıt ederken türkçe karaktleri göstermiyor
 
6 No'lu mesajdaki revize kodu denediniz mi?

.
 
Hocam revize ettiğiniz kodda da Türkçe karakter sorunu var malesef
 
Son düzenleme:
Şu an deneyemiyorum hocam yarın deneyip bilgi vereceğim. İlginiz için çok sağ olun.
 
Ben şimdi Andoid üzerinde denedim, olmamış ....

.
 
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.
 
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

Çok sağolun hocam zihninize sağlık.
 
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.
 
O durumu sonradan farkedip, kodu değiştirmiştim diye hatırlıyorum....

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

.
 
Çok teşekkürler hocam gayet kullanılışlı olmuş.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst