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

Question

我已经引用了MS Internet控件和MS HTML对象库。但是我的副本和过去的网页功能在剪贴板上没有任何内容。这是我的代码

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

添加doevents和睡眠，例如，

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