Excel - Txt Vcf Oluşturmak

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Herbokolog
    KaptaN
    KaptaN's avatar
    Üstün Hizmet Madalyası
    Kayıt Tarihi: 30/Ağustos/2005
    Erkek

    arkadaşlar elimdeki 1000 adet excell veya txt de kayıtlı numaradan vcard oluşturmak istiyorum nette çok buldum kimisi paralı kimisi olmadı  txt deki veri isim ve telefon olarak kayıtlı tab tuşu ile ayrılmış durumda bi kod buldum  exell için ama nasıl çalıştırılacağını bilmiyorum hazır hali var ama oda limitli.

    https://officetricks.com/convert-contacts-in-excel-to-vcf-format/ 

     

    'External Properties & Functions Declaration
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal Operation As String, ByVal Filename As String, Optional ByVal Parameters As String, Optional ByVal Directory As String, Optional ByVal WindowStyle As Long = vbMinimizedFocus) As Long
    Private Sub Create_VCF()
        'Open a File in Specific Path in Output or Append mode
        Dim FileNum As Integer
        Dim iRow As Double
        iRow = 2
        FileNum = FreeFile
        OutFilePath = ThisWorkbook.Path & "\OutputVCF.VCF"
        Open OutFilePath For Output As FileNum
     
        'Loop through Excel Sheet each row and write it to VCF File
        While VBA.Trim(Sheets("Sheet1").Cells(iRow, 1)) <> ""
            FName = VBA.Trim(Sheets("Sheet1").Cells(iRow, 1))
            LName = VBA.Trim(Sheets("Sheet1").Cells(iRow, 2))
            PhNum = VBA.Trim(Sheets("Sheet1").Cells(iRow, 3))
     
            Print #FileNum, "BEGIN:VCARD"
            Print #FileNum, "VERSION:3.0"
            Print #FileNum, "N:" & FName & ";" & LName & ";;;"
            Print #FileNum, "FN:" & FName & " " & LName
            Print #FileNum, "TEL;TYPE=CELL;TYPE=PREF:" & PhNum
            Print #FileNum, "END:VCARD"
            iRow = iRow + 1
        Wend
     
        'Close The File
        Close #FileNum
        MsgBox "Contacts Converted to Saved To: " & OutFilePath & " - Join Email Subscription To Get Latest Updates"
        ShellExecute 0, "Open", "https://officetricks.com/email-subscription-page/"
    End Sub

     

  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    nukeshore
    nukeshore's avatar
    Banlanmış Üye
    Kayıt Tarihi: 13/Ocak/2003
    Erkek

    Txtlerden excele veri cekmek zor degildir diye düşünüyorum vardır makrolari. Excelde metni sutunlara donustur den bosluktan ayiri secip olur belki.


    011011100111010101101011011001010111001101101000011011110111001001100101
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Herbokolog
    KaptaN
    KaptaN's avatar
    Üstün Hizmet Madalyası
    Kayıt Tarihi: 30/Ağustos/2005
    Erkek
    nukeshore bunu yazdı

    Txtlerden excele veri cekmek zor degildir diye düşünüyorum vardır makrolari. Excelde metni sutunlara donustur den bosluktan ayiri secip olur belki.

    Hocam amacım o degil amacım excelde veya txt den vardı yapmak

  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Pisibaliqi
    Pisibaliqi's avatar
    Kayıt Tarihi: 11/Aralık/2009
    Erkek

    https://www.youtube.com/watch?v=r95iKz4wyYM

    şöyle csv yap

    http://kesan.meb.gov.tr/meb_iys_dosyalar/2013_04/11035725_csvklavuzu.pdf

    şöylede google kişilere at 

    sonra googledan indirirsin 


    Fiat Justica Et Ruat Caelum...
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Herbokolog
    KaptaN
    KaptaN's avatar
    Üstün Hizmet Madalyası
    Kayıt Tarihi: 30/Ağustos/2005
    Erkek

    birçok site, uygulama vb.. denedi ama istedigim gibi olmadı 100.000 adet numara eklemek istiyorum rehbere  yokmu yapabilecek birisi ? veriyi db den de alabilir exceldende alabilir 

  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    LynXMaSTeR
    LynXMaSTeR's avatar
    Kayıt Tarihi: 19/Temmuz/2003
    Erkek

    hocam bende iki gündür androidden ios a geçerken araştırıyordum bu rehber aktarma olayını.

    bi tane excel dosyası buldum, isimleri ve numaraları ayrı sütunlara yazıosun, bi makro butonu var, basınca otomatik olarak oluşturuo,

    akşam eve gidince uploadlarım.


    goo.gl/qBNZmW
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Herbokolog
    KaptaN
    KaptaN's avatar
    Üstün Hizmet Madalyası
    Kayıt Tarihi: 30/Ağustos/2005
    Erkek
    LynXMaSTeR bunu yazdı

    hocam bende iki gündür androidden ios a geçerken araştırıyordum bu rehber aktarma olayını.

    bi tane excel dosyası buldum, isimleri ve numaraları ayrı sütunlara yazıosun, bi makro butonu var, basınca otomatik olarak oluşturuo,

    akşam eve gidince uploadlarım.

    hocam onlar patlıyor 

    sen wondershare ile aktarım yapabilirsin daha kolay olur 

    https://check.aye.vn/   şu biraz daha iyi gibi

    KaptaN tarafından 31/Ağu/17 10:14 tarihinde düzenlenmiştir
  8. KısayolKısayol reportŞikayet pmÖzel Mesaj
    LynXMaSTeR
    LynXMaSTeR's avatar
    Kayıt Tarihi: 19/Temmuz/2003
    Erkek
    KaptaN bunu yazdı
    LynXMaSTeR bunu yazdı

    hocam bende iki gündür androidden ios a geçerken araştırıyordum bu rehber aktarma olayını.

    bi tane excel dosyası buldum, isimleri ve numaraları ayrı sütunlara yazıosun, bi makro butonu var, basınca otomatik olarak oluşturuo,

    akşam eve gidince uploadlarım.

    hocam onlar patlıyor 

    sen wondershare ile aktarım yapabilirsin daha kolay olur 

    https://check.aye.vn/   şu biraz daha iyi gibi

    patlıyor derken?

    akşam denedim gayet düzgün çalışıyordu hocam, 460 tane kaydı 2 saniye içinde oluşturdu.


    goo.gl/qBNZmW
  9. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Herbokolog
    KaptaN
    KaptaN's avatar
    Üstün Hizmet Madalyası
    Kayıt Tarihi: 30/Ağustos/2005
    Erkek
    LynXMaSTeR bunu yazdı
    KaptaN bunu yazdı
    LynXMaSTeR bunu yazdı

    hocam bende iki gündür androidden ios a geçerken araştırıyordum bu rehber aktarma olayını.

    bi tane excel dosyası buldum, isimleri ve numaraları ayrı sütunlara yazıosun, bi makro butonu var, basınca otomatik olarak oluşturuo,

    akşam eve gidince uploadlarım.

    hocam onlar patlıyor 

    sen wondershare ile aktarım yapabilirsin daha kolay olur 

    https://check.aye.vn/   şu biraz daha iyi gibi

    patlıyor derken?

    akşam denedim gayet düzgün çalışıyordu hocam, 460 tane kaydı 2 saniye içinde oluşturdu.

    hocam ben 10 bin ve üzeri kayıt için kullanacağım

    hatta 100.000  desem daha dogru olur

  10. KısayolKısayol reportŞikayet pmÖzel Mesaj
    nurulmac11
    nurulmac11's avatar
    Kayıt Tarihi: 04/Ağustos/2012
    Erkek

    Örnek veri atsana bakalım? Yazayım ufak bir şey sana

    Wifi yok ama ufak bişey at :(


    black implies white, self implies other, life implies death.
  11. KısayolKısayol reportŞikayet pmÖzel Mesaj
    DE5TROY3R
    DE5TROY3R's avatar
    Kayıt Tarihi: 04/Nisan/2007
    Erkek
    KaptaN bunu yazdı
    LynXMaSTeR bunu yazdı
    KaptaN bunu yazdı
    LynXMaSTeR bunu yazdı

    hocam bende iki gündür androidden ios a geçerken araştırıyordum bu rehber aktarma olayını.

    bi tane excel dosyası buldum, isimleri ve numaraları ayrı sütunlara yazıosun, bi makro butonu var, basınca otomatik olarak oluşturuo,

    akşam eve gidince uploadlarım.

    hocam onlar patlıyor 

    sen wondershare ile aktarım yapabilirsin daha kolay olur 

    https://check.aye.vn/   şu biraz daha iyi gibi

    patlıyor derken?

    akşam denedim gayet düzgün çalışıyordu hocam, 460 tane kaydı 2 saniye içinde oluşturdu.

    hocam ben 10 bin ve üzeri kayıt için kullanacağım

    hatta 100.000  desem daha dogru olur

    vcf de tek dosya için 500 yada 1000 kişi limiti vardı, bilginize.

Toplam Hit: 2396 Toplam Mesaj: 16
excell to vcf txt to vcf