Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

Как можно связать google контакты с excel таблицей?

Автор jimbots, 08.07.2012, 00:35

« назад - далее »

jimbots

Доброй ночи, подскажите как можно связать google контакты с excel таблицей?
Какие могут быть варианты?

Ситуация такая есть таблица где 3 столбца
ID     ИМЯ      МОБИЛЬНЫЙ НОМЕР

нужно на основе этих данные находить человека в гугл контактах (https://www.google.com/contacts/) по номеру телефона и добавлять после имени через пробел ID
ИМЯ - ID A123

Кто может подсказать какие либо идеи отпишите сюда, либо в ICQ 153473

Заранее благодарен!

Шпец Докапыч

Составил макрос, который бросает на лист Excel контакты Google как есть, т.е. почти в неразобранном виде, но причесать их, при необходимости, не составит труда:
Sub SHD_GetContactsGoogle()
    MyToken = getGAauthenticationToken("username@gmail.com", "pass")
 
    Set objhttp = CreateObject("MSXML2.ServerXMLHTTP")
    URL = "https://www.google.com/m8/feeds/contacts/default/full?max-results=1000"
    objhttp.Open "GET", URL, False
    objhttp.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
    objhttp.setRequestHeader "Authorization", "GoogleLogin auth=" & MyToken
    objhttp.setRequestHeader "GData-Version", "3.0"
    objhttp.Send
    entry = Split(objhttp.responseText, "<entry ")
 
    For i = 1 To UBound(entry)
      tmp = Split(entry(i), "<")
      Range(Cells(i, 1), Cells(i, UBound(tmp))) = tmp
    Next
    MsgBox "Готово"
End Sub


Во вложении функция getGAauthenticationToken().
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли