|
▼ひら さん:
おはようございます。
>WebBrowserコントロールを使って表示したWebページをコピーしてエクセルのシー
>トにテキストとして貼り付ける作業を自動化する方法を教えてください。
WebBrowserコントロールで以下のコードで実行してもうまく実行されませんでしたが、
EPで実行したらコピーしてくれました。
「参照設定」で「Microsoft Internet Controls」をチェックして下さい。
Thisworkbookのモジュールに
'================================================================
Private WithEvents ep As InternetExplorer
Sub test()
Set ep = New InternetExplorer
With ep
.Visible = True
.Navigate "http://www.h2.dion.ne.jp/~mtmamiri/ginnryuu.htm"
End With
End Sub
'================================================================
Private Sub ep_DocumentComplete(ByVal pDisp As Object, URL As Variant)
With ep
.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
End With
DoEvents
ActiveSheet.PasteSpecial Format:="テキスト", Link:=False, DisplayAsIcon:=False
End Sub
'================================================================
Private Sub ep_OnQuit()
Set ep = Nothing
End Sub
これでthisworkbook.testを実行してみて下さい。
同じ命令やイベントがWebBrowserコントロールにもあるのですが、
エラーになってしまいました。
直接の回答ではありませんが、代替できればいいのですが・・・。
(例題のサイトは、私の好きな歌・・・・)
|
|