Question

我有一个代码在单步执行时运行良好，但在整体运行时它并没有完全运行。没有错误。代码搜索HTML标记并扫描关键字，如果在HTML单元格中找到该关键字，则整个单元格将输出到Excel单元格。我正在寻找在网页上出现3次的关键字。当我调试并逐步执行时，找到该关键字的所有3个实例，并且它所在的单元格在Excel中填充单元格A1：C1。但是，当代码作为一个整体运行时，只找到前两个实例。谁能告诉我为什么会这样？我的猜测是由于某种原因没有为最后一个关键字触发IF语句......我将包含HTML正文和我的VBA代码。

＆＃13;

cmd /c mklink /j C:\Webs\WebSite\images\Staff C:\Webs\Intranet\Images\staff

＆＃13;

<HTML>
<HEAD>
<META NAME="name" CONTENT="sldfkjsd">
<TITLE>Title</TITLE>

<P>
<TABLE BORDER=3 CELLPADDING=6 CELLSPACING=3>
<TR>
<TD>
<PRE>

AAAA AAAA AAAA AAA AAA AAAA AAA AAAA AAAA AAA
  BBBBb BBBBB BBBBB BBBBB BBBBBBBBBBBBBB B
  keyword
  CCCCCCCcc CCCCCCCCCC CCCCCCCCCCCC DDDDDDDD

</PRE>
</TD>
</TR>
<TR>
<TD>
<PRE>
AAAA AAAA AAAA AAA AAA AAAA AAA AAAA AAAA AAA
  BBBBb BBBBB BBBBB BBBBB BBBBBBBBBBBBBB B
  keyword
  CCCCCCCcc CCCCCCCCCC CCCCCCCCCCCC DDDDDDDD

</PRE>
</TD>
</TR>
<TR>
<TD>
<PRE>
AAAA AAAA AAAA AAA AAA AAAA AAA AAAA AAAA AAA
  BBBBb BBBBB BBBBB BBBBB BBBBBBBBBBBBBB B
  keyword
  CCCCCCCcc CCCCCCCCCC CCCCCCCCCCCC DDDDDDDD

</PRE>
</TD>
</TR>
<NEXT></NEXT>
</TABLE>

Answer 1

感谢@TimWilliams找到答案。

我把

  Application.Wait (Now + TimeValue("0:00:01"))

下方

Do Until ie.ReadyState = READYSTATE_COMPLETE Or ie.ReadyState =        READYSTATE_INTERACTIVE
        'DoEvents
    Loop

现在代码按预期运行了！

HTML搜索代码在调试时按预期运行，但在完全运行时不完全运行

1 个答案: