Outlook, Excel ya da farklı ortamlardaki telefon numaralarınızı iphone gibi sadece vcard ile içeri alabilen cihazlar için aÅŸağıdaki macro’yu kullanarak vcard’a çevirebilirsiniz. Konu ile ilgili youtube videosu için buraya tıklayabilirsiniz.
AÅŸağıdaki gibi bir örnek excel’iniz varsa sayfa isminin Sheet1 olmasına dikkat ediniz. Sonra ALT + F11 tuÅŸuna basarak macro bölümünün açılmasını saÄŸlayınız. Ardından sol bölümde yer alan Sheet1 ismini saÄŸ tıklayın ve view code’a tıklayınız. Açılan kod alanına aÅŸağıdaki kodları ekleyip yukarıdan play tuÅŸuna basmanız yeterlidir. OutFilePath ‘da yazan dizine vcard’ınız oluÅŸmuÅŸ olacaktır.
Örnek Excel Formatı
Soyad    Ad      Telefon       Firma
——-Â Â Â ——-Â Â Â ———Â Â Â Â Â Â Â ——-
Kara    Gökhan  5415136581   TOYOTA
Kodlar
Private Sub Create_VCF()
‘Open a File in Specific Path in Output or Append mode
‘ ALT + F11
‘https://www.youtube.com/watch?v=ML1pcjMPaNc
Dim FileNum As Integer
Dim iRow As Double
iRow = 2
FileNum = FreeFile
OutFilePath = “C:\Users\GOKHANK\Desktop\vCard\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)) <> “”
LName = VBA.Trim(Sheets(“Sheet1”).Cells(iRow, 2))
FName = VBA.Trim(Sheets(“Sheet1”).Cells(iRow, 1))
PhNum = VBA.Trim(Sheets(“Sheet1”).Cells(iRow, 4))
ORG = VBA.Trim(Sheets(“Sheet1”).Cells(iRow, 3))
Print #FileNum, “BEGIN:VCARD”
Print #FileNum, “VERSION:3.0”
Print #FileNum, “N:” & LName & “;” & FName & “;;;”
Print #FileNum, “FN:” & LName & ” ” & FName
Print #FileNum, “ORG:” & ORG & “;”
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 & ” ”
End Sub
Kodlara aşağıdaki linkten de erişebilirsiniz.
MacroCodes