Fatal编程技术网
  • vba/
  • 使用VBA从网站中提取数据

使用VBA从网站中提取数据

vba web

使用VBA从网站中提取数据,vba,web,extract,innerhtml,Vba,Web,Extract,Innerhtml,我使用下面的代码从网站读取和提取数据。但是在特定的URL（）中有一个问题 Dim HTML_Content As HTMLDocument Dim dados As Object 'Create HTMLFile Object Set HTML_Content = New HTMLDocument 'Get the WebPage Content to HTMLFile Object With CreateObject("msxml2.xmlh

我使用下面的代码从网站读取和提取数据。但是在特定的URL（）中有一个问题

    Dim HTML_Content As HTMLDocument
    Dim dados As Object

    'Create HTMLFile Object
    Set HTML_Content = New HTMLDocument

    'Get the WebPage Content to HTMLFile Object
    With CreateObject("msxml2.xmlhttp")
        .Open "GET", "http://www.iamf.ir", False
        .send
        HTML_Content.body.innerHTML = .responseText
        Debug.Print .responseText                ' it's OK
        Debug.Print HTML_Content.body.innerHTML  ' it show nothing! (problem is here)
    End With
这应该是你问题的答案，尽管我不认为它真的解决了你的问题

您对此网站执行的XMLHTTP请求以空正文响应，您可以从
Debug.Print.responseText
行中注意到：

<HTML>
    <HEAD>
        <TITLE>&#1575;&#1605;&#1740;&#1606; &#1570;&#1588;&#1606;&#1575; &#1575;&#1740;&#1585;&#1575;&#1606;&#1740;&#1575;&#1606;</TITLE>
        <META NAME="Keywords" CONTENT="">
        <META HTTP-EQUIV="Refresh" CONTENT="0;URL=http://www.iafi.ir">
        <META NAME="Description" CONTENT="">
    </HEAD> 
    <BODY> <-- body is empty
    </BODY>
</HTML>


امین آشنا ایرانیان

谢谢兄弟。我试过你的解决办法。没关系，但我遇到了一个奇怪的问题。请下载我的Excel文件（）。有两个按钮几乎相似。按钮1不正常（为什么？），按钮2正常。提前谢谢。@AliM67如果您有新问题，请打开一个新线程，以便其他人可以帮助您（这里只有我会看到此评论）。在任何情况下，分享你的代码，不要要求下载任何东西，我认为没有人会冒这个风险。谢谢