ページコンテンツ
taka
最新記事 by taka (全て見る)
- 【雑記】面白い？マウス買ってみたのでご紹介【アーク タッチ マウス 】 - 2018年7月17日
- VBA オブジェクト変数について - 2018年7月15日
- 【雑記】フォントについて - 2018年7月12日
- VBA 【Option Explicit】について - 2018年7月10日
- Excel関数 フリガナを取得する【PHONETIC関数】 - 2018年7月7日
ウェブページを表示するコントロール【WebBrowserの使い方】
こんばんはtakaです、今回はユーザーフォーム上でウェブページを回覧をすることができるコントロール【WebBrowser】についてご紹介します。
WebBrowserコントロールの設置
WebBrowserコントロールはデフォルトでは表示されていません。今回ご紹介する【WebBrowserコントロール】の設置、【その他コントロール】の設置については
表示されていないユーザーフォームコントロールを表示する方法で紹介しましたので省略させていただきます。
見た感じは真っ黒なListBoxのような感じがしますが、これを使用することによってExcelVBAでもwebページを回覧することが可能になります。
WebBrowserの使用方法
WebBrowserを使用した例として少し前にUPした記事で【VBAブラウザを作成してみた】という記事があります。
VBAブラウザを作成してみた
上記のようにフォーム上でウェブページを閲覧できるようにするのがWebBrowserコントロールです。
WebBrowserにウェブページを表示する
WebBrowserコントロールでウェブページを表示させるには【Navigateプロパティ】を使用することでWebBrowserコントロールに表示させることができます。
1 2 3 4 5 6 | Private Sub UserForm_Initialize() WebBrowser1.Navigate "https://www.google.co.jp/" End Sub |
このコードはUserForm_Initializeでフォームが開かれた時にGoogleが表示されるコードです。
このように表示されれば成功です。
WebBrowserに表示されているURLを取得する
WebBrowserコントロールで、画像の赤枠のテキストボックスのように現在開いているページのURLを取得するには【LocationURLプロパティ】を使用します
StatusTextChangeイベントは【ステータスバーのテキストが変更されたとき】に発生するイベントですので、簡単に言うと【更新されたとき】に発生するイベントですので【LocationURLプロパティ】を使用するときはStatusTextChangeイベントで使用するのがおすすめです。
1 2 3 4 5 | Private Sub WebBrowser1_StatusTextChange(ByVal Text As String) TextBox1.Text = WebBrowser1.LocationURL End Sub |
WebBrowserコントロールの注意点
WebBrowserコントロールを使用する上で注意していただきたいことがあります、それはブラウザのバージョンです。
WebBrowserコントロールはインターネットエクスプローラ7と認識されて作動しています、なので最近のWEBサイトが崩れて表示される可能性があります。
ファイルやコードの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Twitterフォロー
Twitterもやってます(^^♪Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪
Twitterフォロー
Follow @takabou63
コメントを残す