Вытащить адрес электронной почты с сайта с VBA - PullRequest
Новая
       13

Вытащить адрес электронной почты с сайта с VBA

0 голосов
/ 18 июня 2019

У меня есть список ссылок, каждая из которых ведет на домашнюю страницу, где указан один адрес электронной почты.Можно ли с помощью VBA как-нибудь перенаправить эти сообщения в Excel?

Буду признателен за любую помощь и совет.

1 Ответ

0 голосов
/ 18 июня 2019

Итак, я нашел ответ на свои вопросы, к сожалению, он очень специфический, потому что моя домашняя страница защищена входом в систему, поэтому вы не можете его опробовать.Я все равно опубликую и надеюсь, что это может как-то помочь. 

Sub emailextract()

    Set appIE = CreateObject("internetexplorer.application")
    Dim ele As Object
    Dim i As Integer
    Dim y As Integer


    For i = 1 To 150

    appIE.Visible = False
    #web-links are in Row A sheet "links"
    appIE.navigate Sheets("links").Range("A" & i)

    Do While appIE.Busy = True Or appIE.readyState <> 4: DoEvents: Loop


    y = i
    For Each ele In appIE.document.getElementsByTagName("dd")
        '
        Debug.Print ele.textContent

        Sheets("adressen").Range("A" & y).Value = ele.textContent
        y = y + 1


    Next

    Next i

    ActiveWorkbook.Save

End Sub
...