是否有可能从一个网站直接获得超链接的信息，以优秀？

有时我需要获取几个（20-30）超链接文本（在网站上）的底层电子邮件地址，并将其复制到excel中。 是否有可能直接从网站做到这一点，而不是先复制信息为HTML到Excel中，然后运行一个macros从那里得到它。 这就是我目前使用的：

Function emailAddress(cell) On Error Resume Next emailAddress = Replace(cell.Hyperlinks(1).Address, "mailto:", "") If emailAddress = 0 Then emailAddress = "" End Function 

但我不知道是否有办法绕过这一步

Answer 1

有几种方法可以完成这个任务。

首先是将网站数据加载到工作簿中：

  Workbooks.Open Filename:="http://yoururlhere.com/data.html" 

这是最直接的，因为我相信你可以指定，如果你想你的数据去一个特定的工作表。

另一个将是使用Excel挂接Internet Explorer。 看到这个例子。 这涉及更多地了解如何访问页面的不同DOM元素以获取所需的信息。

您也可以使用C＃或VB.NET编写数据访问，并使用他们的Office自动化库来控制Excel，但这样会更复杂。

Answer 2

您可以在浏览器中使用View-Source并将原始HTML复制到Excel中。 然后使用“文本到列”来分割“：”加上其他一些清理的东西。 我不确定这会节省多less。