掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
WebBrowserを全選択してHTML形式でエクセルに貼りつけるには? (ID:115591)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
とりあえず、こんな感じですかね。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
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.