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


piro  2004-08-12 23:16:22  No: 115590

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


魔界の仮面弁士  2004-08-13 02:03:04  No: 115591

とりあえず、こんな感じですかね。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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加