WebBrowserを全選択してHTML形式でエクセルに貼りつけるには?

piro  2004-08-12 14:16:22  No: 115590  IP: [192.*.*.*]

WebBrowserを全選択してHTML形式でエクセル貼りつけるにはどうしたらいいのでしょう？
ど素人質問で申し訳ありませんが、ご教示よろしくお願いいたします。

編集 削除
魔界の仮面弁士  2004-08-12 17:03:04  No: 115591  IP: [192.*.*.*]

とりあえず、こんな感じですかね。VB6向けに書いてみました。

Option Explicit

Private Sub Form_Load()
    Command1.Enabled = False
    WebBrowser1.Navigate2 "http://www.google.co.jp"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Command1.Enabled = True
End Sub

Private Sub Command1_Click()
    WebBrowser1.SetFocus
    WebBrowser1.Document.body.focus
    WebBrowser1.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
    Clipboard.Clear
    WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
    
    Dim X As Object
    Dim B As Object
    Dim S As Object
    Set X = CreateObject("Excel.Application")
    Set B = X.Workbooks.Add()
    Set S = B.Worksheets(1)
    X.Visible = True
    S.Paste
    Set S = Nothing
    B.Saved = True
    Set B = Nothing
    Set X = Nothing
End Sub

編集 削除