Telefon numaralarını topluca Rehbere Kaydetmek

Bu işlem için çok metod varsa da, biz Excel makrosu kullanacağız.

Video Klavuz

Hemen bi boş Excel sayfası açalım. Ve numaraları resimdeki gibi girelim. Resime tıkladığınızda daha net görebileceğinizi unutmayın.

- Ben Excel 2016 kullandım.

- Çalışma sayfasının ismini 1 yapın sadece "1" yoksa kodlar çalışmaz

Sonra Geliştirici sekmesinin altında Visual Basic düğmesine tıklayın. Resimdeki gibi .... Farklı excel sürümlerinde bu menüye girmek için farklı adımlar izlemeniz gerekebilir.. 

Karşınıza boş sayfa gelecek resimdeki gibi.

Sonra Sayfa 1 e tıklayın. aşağıdaki kodları girin.(kopyalayıp yapıştırın) Ve yeşil ok tuşuna tıklayın. Resimdeki gibi.

Kodlar

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 = "D:\Toplurehber.VCF"

    Open OutFilePath For Output As FileNum

 

    'Loop through Excel Sheet each row and write it to VCF File

    While VBA.Trim(Sheets("1").Cells(iRow, 1)) <> ""

        LName = VBA.Trim(Sheets("1").Cells(iRow, 1))

        FName = VBA.Trim(Sheets("1").Cells(iRow, 2))

        PhNum = VBA.Trim(Sheets("1").Cells(iRow, 3))

 

        Print #FileNum, "BEGIN:VCARD"

        Print #FileNum, "VERSION:3.0"

        Print #FileNum, "N:" & LName & ";" & FName & ";;;"

        Print #FileNum, "FN:" & LName & " " & FName

        Print #FileNum, "TEL;TYPE=CELL;TYPE=PREF:" & PhNum

        Print #FileNum, "END:VCARD"

        iRow = iRow + 1

    Wend

 

    'Close The File

    Close #FileNum

    MsgBox "Rehberiniz toplu olarak " & OutFilePath & " adresine kaydedildi "

End Sub

Hepsi bu kadar karşınıza böyle bir mesaj çıkacaktır. D sürücünüzde vcf dosyanız hazır. Bu dosyayı akıllı telefonunuzda açarsanız bu kişiler rehbere eklenecektir. 

VCF dosyasını boş bir not defteri ile açarsanız içeriğini görebilirsiniz.

Not: VCF dosyasını D sürücüsünde oluşturuyor. Eğer bilgisayarınızda D sürücüsü yoksa sıkıntı çıkacaktır. Kodlar ile C sürücüsünde oluşturmasını istediğimizde erişim hatası veriyor maalesef. D sürücüsü olmayan bilgisayar yok gibidir diye düşünüyorum.

Bu arada Excel dosyasının hazır yapılmışını da paylaşayım . Numaraları girip yeşil oka tıklayacaksınız sadece.

https://www.mediafire.com/file/meyckczee4oqkd1/Numaralar%u0131_Toplu_Rehber_Yapma.xlsm/file