Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

69970 / 76807

←次へ　｜　前へ→


	【11350】Re:WebBrowserコントロールで表示したWE...

ひら - 04/3/6(土) 10:33 -


	引用なし

	パスワード

▼ichinose さんこんにちは

>　　With WebWindow
>　　　　.SetFocus
>　　　　Application.SendKeys "^a", True
>　　　　Application.SendKeys "^c", True
>　　　　DoEvents
>　　　　ActiveCell.Select
>　　　 .....以下貼り付け.....
>　　End With
>　End If

　上のコードでコピーはできるようになりましたが、動作が不安定で４～５回程度
に１回の割合でしか実行できません。（クリップボードには何も入っていないか、
以前にクリップした内容が残ったままとなっています。）
フォーカスがWebWindowにかからないのか、SendKeysの実行を待たずに次のステッ
プに進んでしまうのかわからない状況です。Winth～With Endの外側をDo loop
で括って何回かループしたり、.SetFocusを２個以上つけたりしましたが、少しは
効果らしいものはありましたが、決め手になるような結果になりませんでした。
　それとついでで申し訳ありませんがクリップボードにクリップされたかどうかの
確認や、クリップボードをクリアする方法をご存知でしたらよろしくお願いします。（これは当質問箱（番号11315）で質問しています）

2 hits

▼

【10850】WebBrowserコントロールで表示したWEB本文のコピー方法 ひら 04/2/16(月) 11:36