ハイパーリンクを設定しないで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)
| 定数 | 値 | 内容 |
|---|---|---|
| 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
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ページを開くについての解説を終了します。ありがとうございました。