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

【问题标题】：Pulling e-mail adress from website with VBA使用 VBA 从网站中提取电子邮件地址
【发布时间】：2019-06-18 12:50:05
【问题描述】：

我有一个链接列表，每个链接都指向列出一个电子邮件地址的主页。是否有可能使用 VBA 以某种方式将这些电子邮件提取到 Excel 中？

我将不胜感激任何帮助和建议。

【问题讨论】：

“这可能吗？”是的。这不是你预期的答案吗？那么请阅读How to Ask 和Minimal, Complete, and Verifiable example 来改进您的问题。我们不是代码编写服务。您必须为我们发布代码来解决您的问题。
这是我想要的答案。在尝试做某事之前，我想知道它是否真的可行。

【解决方案1】：

所以我找到了我的问题的答案，不幸的是它非常具体，因为我的主页受到登录保护，因此您无法尝试。无论如何我都会发布并希望它可以以某种方式提供帮助。

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

【讨论】：