将数据从网页复制到剪贴板的问题

Question

我引用了MS Internet Controls和MS HTML Object Library。但是我的副本和过去的网页功能在剪贴板上没有任何内容。这是我的一段代码

ieApp.navigate "https://www.tm3.com/mmdrewrite/mmd/14902.faces"
Do While ieApp.Busy: DoEvents: Loop
Do Until ieApp.readyState = READYSTATE_COMPLETE: DoEvents: Loop


Worksheets(1).Activate
Range("A1").Select
ieApp.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER
ieApp.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT

Range("A1").Activate
ActiveSheet.Paste

此代码不粘贴任何内容。任何帮助都会很棒

Answer 1

添加DoEvent和Sleeps，例如

IE2.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER
DoEvents
Sleep 500
IE2.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DONTPROMPTUSER
DoEvents
Sleep 1000