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

【问题标题】：Issue with copying data from webpage to clipboard将数据从网页复制到剪贴板的问题
【发布时间】：2014-02-21 22:41:49
【问题描述】：

我参考了 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

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

【问题讨论】：

使用不同的 URL 为我工作（您的链接在登录页面后面）
是的，它位于登录页面的后面。我尝试了其他网页，但仍然无法正常工作

标签： vba

【解决方案1】：

添加 DoEvents 和 Sleeps，例如，

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

【讨论】：