我尝试使用以下代码复制网页,该代码处于循环中:
DoEvents
'copy and paste web page to Sheet5
IE.ExecWB 17, 0 '// SelectAll
IE.ExecWB 12, 2 '// Copy selection
Sheets("Sheet5").Range("A1").PasteSpecial link:=False,
DisplayAsIcon:=False, NoHTMLFormatting:=True <- break point
(最后两行,即pastespecial,在代码中仅是一行)
我在粘贴专用线处设置了一个断点。我手动单步执行代码直到断点,然后按F5。代码从未在断点处停止。它一直不断前进,直到循环结束。有时,我会收到一条错误消息,提示“此时无法进入中断模式”,但是在大多数情况下,该错误消息并未显示。