Cep Telefonları, Gsm Operatörleri ve Mobil İnternet
Excelden Android Telefon Rehberine Kişi Aktarma?
Excelden Android Telefon Rehberine Kişi Aktarma?
-
merhaba arkadaşlar,
excelde yapmış olduğumuz telefon rehberini android telefon defterine nasıl aktarabiliriz?
1. google arama yaptığımda ücretli demo versiyon programlara yönlendiriyor ve isimlerde demo yazıyor. craklı program kurmuyorum çünkü güvenemiyorum.
2. excelden cvs dosyasını yüklediğim zaman telefonu eklemiyor. notlar kısmına ekliyor. şablonu aradım ama bulamadım.
bu konuda başka yapılacak bir şey var mı?
-
http://www.ultraedit.com/company/blog/community/convert-excel-file-to-csv.html
bunu denedin mi hocam ?
-
Google rehbere aktarıp ordan telefona senkronize etmeyi denedinmi?
https://support.google.com/mail/answer/12119
-
Gmail'e gir. Sol tarafta E-posta yaz butonunun hemen üstünde Gmail logosu göreceksin. Üstüne tıklayıp Rehber 'i seç. Tüm kişiler görüntülenecek. Yine sol tarafta en altta daha fazla yazan linke tıklayıp İçe Aktar menüsüne erişebilirsin. Buradan da rehberi dilediğin gibi içeri aktarabilirsin.
Edit: Rehber linki --> https://contacts.google.com/u/0/preview/all
Edit2: Telefon rehberinden tüm kişileri ya da google kişilerini görüntülemezsen google ın rehberine attığın kişileri göremezsin.
1049 tarafından 04/Şub/16 00:50 tarihinde düzenlenmiştir -
baltalamak gibi olmasın ama benin telefonun akranı karardı telefon çalışıyor ama görüntü yok rehberı nasıl bilgirayara yada farklı bir telefona aktarabilirim
-
http://officetricks.com/convert-contacts-in-excel-to-vcf-format/
bu sitedeki macroyla bu işi hallettik.
a1: adı
b1: soyadı
c1: telefon numarası olacak şekilde listeyi yapıyoruz.
aşağıdaki makroyu çalıştıyoruz.
'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", "http://officetricks.com/email-subscription-page/" End Sub
sondan 2. ve 3. satırlar reklamlar kısmı.
kayıtlı bulunduğu dizinde vcfyi oluşturuyor. oradan telefona aktarıyoruz. hepsi bukadar. -
Bana da llazim olmuştu, suradaki onerilerle halletmistim. http://www.tahribat.com/forum/excele-olusturulan-telefon-listesini-rehbere-kayd-213328 umarım size de yararı olur.