Question

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

我将不胜感激。

Answer 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

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

1 个答案: