使用 VBA 从网站中提取电子邮件地址

Question

我有一个 link 的列表，每个 link 都指向主页，其中列出了一个电子邮件地址。 VBA 是否可以通过某种方式将这些电子邮件拉入 Excel？

如果有任何帮助和建议，我将不胜感激。

Answer 1

所以我找到了我的问题的答案，不幸的是它非常具体，因为我的主页被登录保护，所以你不能尝试。我会 post 无论如何，希望它能以某种方式帮助。

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

使用 VBA 从网站中提取电子邮件地址

Pulling e-mail adress from website with VBA

vba

extraction