|
▼ichinose さんこんにちは
> With WebWindow
> .SetFocus
> Application.SendKeys "^a", True
> Application.SendKeys "^c", True
> DoEvents
> ActiveCell.Select
> .....以下貼り付け.....
> End With
> End If
上のコードでコピーはできるようになりましたが、動作が不安定で4〜5回程度
に1回の割合でしか実行できません。(クリップボードには何も入っていないか、
以前にクリップした内容が残ったままとなっています。)
フォーカスがWebWindowにかからないのか、SendKeysの実行を待たずに次のステッ
プに進んでしまうのかわからない状況です。Winth〜With Endの外側をDo loop
で括って何回かループしたり、.SetFocusを2個以上つけたりしましたが、少しは
効果らしいものはありましたが、決め手になるような結果になりませんでした。
それとついでで申し訳ありませんがクリップボードにクリップされたかどうかの
確認や、クリップボードをクリアする方法をご存知でしたらよろしくお願いします。(これは当質問箱(番号11315)で質問しています)
|
|