使用xmlHttp，如何在不使用html doc的情况下将getelementsbytagname（“A”）直接设置为object

Question

使用下面的方法，即将所有myLink引入我的excel单元格，就像它在网页中一样 -

result = ie.document.body.innerHTML
Set html = CreateObject("htmlfile")
html.body.innerHTML = result
Set myLinks = html.getElementsByTagName("A")

For Each myLink In myLinks
Sheet1.Cells(i, "A").Value = myLink

因此，我必须编写一些条件Replace语句，用http://www.替换某些myLink中的一些左字符 但是当我使用下面的方法时，即将每个myLink带到http://www.的excel单元格中。我不必处理任何替换声明 -

Set myLinks = ie.document.getElementsByTagName("A")

For Each myLink In myLinks
Sheet1.Cells(i, "A").Value = myLink

现在xmlHttp要快得多，我想使用它，但它也会使用这种方法将myLink原样带到网页中 -

Set html = CreateObject("htmlfile")
html.body.innerHTML = xmlHttp.ResponseText
Set myLinks = html.getElementsByTagName("A")

For Each myLink In myLinks
Sheet1.Cells(i, "A").Value = myLink

我尝试了以下但是它不起作用 -

Set myLinks = xmlHttp.ResponseText.getElementsByTagName("A")

For Each myLink In myLinks
Sheet1.Cells(i, "A").Value = myLink

仍然环顾四周，但还没有找到任何绕过html对象设置myLinks的东西。因此，我对精英成员的问题 - 有没有办法绕过html对象或者是xmlHttp对象必须的？感谢任何帮助或回答。