Excel VBA ハイパーリンクを設定しないでWebページを開く

スポンサーリンク

ハイパーリンクを設定しないでWebページを開く方法

セルや図形にハイパーリンクを設定しないで直接リンク先を開くには、Workbook【ワークブック】オブジェクトFollowHyperlink【フォローハイパーリンク】メソッドを使用します。

FollowHyperlink【フォローハイパーリンク】メソッド

FollowHyperlink【フォローハイパーリンク】メソッドの書式と設定値(引数)の説明

[]内は省略可能です。
オブジェクト.FollowHyper(Address[, SubAddress, NewWindow, ExtraInfo, Method, HeaderInfo])

  • オブジェクト(必須)
    Workbook【ワークブック】オブジェクトを指定します。
  • Address【アドレス】(必須)
    開くファイルのURLやファイルのパスを指定します。【データ型】文字列型 (String)
  • SubAddress【サブアドレス】(省略可)
    引数Address【アドレス】で指定した開いたファイルの位置Webページのブックマークやワークシートのセルなどのジャンプ先を指定します。【データ型】バリアント型 (Variant)
  • NewWindow【ニューウインドウ】(省略可)
    新しいウィンドウに目的のアプリケーションを表示するにはこの引数に True を設定します。既定値は False です。【データ型】バリアント型 (Variant)
  • ExtraInfo【エクストラインフォ】(省略可)
    HTTPの追加情報を指定します。【データ型】バリアント型 (Variant)
  • Method【メソッド】(省略可)
    MsoExtraInfoMethod列挙型の定数、または値を使用して引数ExtraInfo【エクストラインフォ】の接続方法を指定します。【データ型】バリアント型 (Variant)
MsoExtraInfoMethod列挙型の定数
定数 内容
msoMethodGet 0 引数ExtraInfoで指定された値は
アドレスに付加される文字列です。
msoMethodPost 1 引数ExtraInfoで指定された値は
文字列またはバイト配列として転記されます。
  • HeaderInfo【ヘッダーインフォ】(省略可)
    接続のために使用するユーザー名やパスワードなどのHTTP要求のヘッダー情報を指定する文字列を指定します。【データ型】バリアント型 (Variant)

インプットボックスに入力した住所からGoogleMapで場所を表示するコードと解説

Sub Webページ()
Dim 住所 As String
住所 = InputBox("地図を表示したい住所を入力してください。")
If 住所 = "" Then Exit Sub
On Error GoTo エラー処理
ActiveWorkbook.FollowHyperlink _
Address:="https://maps.google.co.jp/maps/search/" & 住所
Exit Sub
エラー処理:
MsgBox "ネットにつながっていません。"
End Sub
2行目【Dim 住所 As String】
InputBox【インプットボックス】関数を使用して、ユーザーから受け取った住所を格納する変数「住所」を文字列型(String)で宣言します。


3行目【住所 = InputBox(“地図を表示したい住所を入力してください。”)】
InputBox【インプットボックス】関数を使用してユーザーから住所を受け取り、変数「住所」に代入します。


4行目【If 住所 = “” Then Exit Sub】
If【イフ】ステートメントを使用して変数「住所」に格納されている文字列が「長さ0文字の文字列」(空)の場合を定義して条件が成立した場合は、Exit【エグジット】ステートメントでSub【サブ】プロシージャーを途中で終了します。つまり、ユーザーがインプットボックスに何も入力ぜずに「OK」ボタンを押した場合やキャンセルボタンを押した場合に処理を中断します。


5行目【On Error GoTo エラー処理】
次のFollowHyperlink【フォローハイパーリンク】メソッドでエラーが発生した場合(インターネットにつながっていない場合)On Error GoTo【オンエラーゴゥトゥ】ステートメントで処理を9行目のエラー処理ラベルまでジャンプさせます。


6~8行目【ActiveWorkbook.FollowHyperlink _
Address:=”https://maps.google.co.jp/maps/search/” & 住所
Exit Sub】

Workbook【ワークブック】オブジェクトのFollowHyperlink【フォローハイパーリンク】メソッドを使用して、開くファイルの場所を指定する引数Address【アドレス】にGoogleMapのURLを指定してGoogleMapを開き、Exit【エグジット】ステートメントでSub【サブ】プロシージャーを途中で終了します。


9~10行目【エラー処理:
MsgBox “ネットにつながっていません。”】

インターネットにつながっていない場合にエラーが発生し、9行目のエラー処理ラベルまで処理がジャンプしてくるので、MsgBox【メッセージボックス】関数を使用してユーザーにメッセージを表示します。

以上で、ハイパーリンクを設定しないでWebページを開くについての解説を終了します。ありがとうございました。

スポンサーリンク

関連記事・広告