VB6でIEで開いているページを全て選択するには？

解決

ここす 2004-01-07 16:13:50 No: 81312 IP: [192.*.*.*]

いつもお世話になっています。
ＶＢ６から開いたWebページ（"InternetExplorer.Aplication"で表示）した
ページ内容を全て選択してCtl+Cで取得する動作と同じ事をSENDKEYSを使用せずに
出来るでしょうか？
innertextやinnerHtmlではなく、あくまでもコピー＆ペーストで取り込むイメージなんですけど。
最終的にやりたい事は、開いているページをエクセルに貼り付けたいのです。
HyperLink等も含んだ形で。
どうかよろしくお願いします。

編集削除

eee 2004-01-09 00:56:23 No: 81313 IP: [192.*.*.*]

エクセルのwebくえりでどう

編集削除

魔界の仮面弁士 2004-01-09 01:47:48 No: 81314 IP: [192.*.*.*]

Option Explicit

Private Const OLECMDEXECOPT_DODEFAULT As Variant = 0&
Private Const OLECMDID_COPY As Variant = 12&
Private Const OLECMDID_SELECTALL As Variant = 17&

Private Sub Command1_Click()
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Navigate2 "http://www.google.co.jp/"
    Do
        DoEvents
    Loop Until IE.ReadyState = 4
    IE.Left = -1000000
    IE.Top = -1000000
    IE.Visible = True
    IE.Document.parentWindow.focus
    IE.Document.focus
    Clipboard.Clear
    IE.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
    IE.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
    IE.Quit
    Set IE = Nothing
End Sub

編集削除

ここす 2004-01-13 15:09:18 No: 81315 IP: [192.*.*.*]

ありがとうございます。
出来ました。

編集削除