|
ichinose さん、コロスケ さん こんにちは。
返信が遅くなりました。情報ありがとうございます。
これで目的のページのコピーができました。使わせていただきます。
なお、WebBrowserコントロールにこだわっており、次のような
コードで実験していますが
'ExecWB'メソッドは失敗しました'IwebBrowser2'オブジェクト>
というエラーがでます。WEBを検索したらIwebBrowser2を取得したら
使えるとあるだけで具体的な方法がわかりません。
Private Sub WebWindow_DocumentComplete(ByVal pDisp As Object, _
URL As Variant)
if URL = "http://......" '目的ページのURL
Then
With WebWindow
.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
.....以下貼り付け.....
End With
End If
WebBrowserコントロールで実現できたら、メニューやコマンドボタンを
なくすることができ不要な操作を防げたり、またVBAとIEの同期が取れな
いので、VBAからIE起動を発行するとVBAは次のステップ以降を実行して
しまいますが、これも解決できるのでは思っています。........
|
|