Excel VBAで実用ツール（Hyperlink編）

2022-01-202024-01-07

■Excel VBAのHyperlinksコレクション、Hyperlinkオブジェクトについて

Excel VBAにはハイパーリンク関連のオブジェクトとして、HyperlinksコレクションとHyperlinkオブジェクトが提供されています。
簡単に利用できますし、なかなか便利な機能ですので、メソッドおよびプロパティの一覧を掲載したうえ、サンプル・プログラムをご紹介します。
⇒詳細はMicrosoftのサイト（Hyperlinksコレクション、Hyperlinkオブジェクト）を参照して下さい。

Hyperlinksコレクションの詳細

HyperlinksコレクションはHyperlinkオブジェクトの集合体で、Worksheetオブジェクト、DialogSheetオブジェクト、RangeオブジェクトのHyperlinksプロパティで取得できます。
提供されているメソッドとプロパティは下表の通りです。

(Hyperlinksコレクションのメソッドとプロパティ)

Hyperlinkオブジェクトの詳細

Hyperlinkオブジェクトはハイパーリンクを表すオブジェクトで、HyperlinksコレクションおよびShapeオブジェクト、ChartオブジェクトのHyperlinkプロパティにより取得できます。
提供されているメソッドとプロパティは下表の通りです。

(Hyperlinkオブジェクトのメソッドとプロパティ)

■指定したフォルダ下のファイル一覧を作成し、ハイパーリンクを設定するツール

指定したフォルダ下のファイルを一覧にする処理とハイパーリンクを作成する処理を組合せると、ハイパーリンク付のファイル一覧を簡単に作成することができます。

ハイパーリンクを作成する処理

HyperlinksコレクションのAddメソッドを実行すると、ハイパーリンクを作成できます。

1. Worksheet.Hyperlinks.Add (Anchor　As Object, Address As String, [SubAddress As Variant], [ScreenTip As Variant], [TextToDisplay As Variant])

引数として指定できる項目は下表の通りですが、指定必須の引数はアンカーとアドレスです。

サンプル・プログラム

行番号9で対象とするフォルダを変数にセットし、行番号10で最初のファイルのファイル名を取得して、行番号11～15の繰返し処理に入ります。
行番号13でハイパーリンクを設定した後、行番号14で次のファイルのファイル名を取得し、ファイル名が空値になったらループを抜けます。

行番号13ではAnchor引数にA列のセルを指定し、TextToDisplay引数にファイル名を指定していますので、このプログラムを実行すると、A列にファイル名の一覧が表示され、各ファイルへのハイパーリンクが設定されます。

1. Dim wSht As Object
2. Dim InFolderPath As String
3. Dim InFileName As String
4. Dim rcnt As Integer
6. Private Sub Sample1()
7.     Set wSht = ActiveSheet
8.     rcnt = 0
9.     InFolderPath = “C:\xxxフォルダ"
10.     InFileName = Dir(InFolderPath & “\*.xlsx")
11.     Do While InFileName <> “"
12.         rcnt = rcnt + 1
13.         wSht.Hyperlinks.Add Anchor:=wSht.Cells(rcnt, 1), Address:=InFolderPath & “\" & InFileName, ScreenTip:=InFolderPath & “\" & InFileName, TextToDisplay:=InFileName
14.         InFileName = Dir()
15.     Loop
16. End Sub

■ハイパーリンクが設定されたファイル一覧を基に、ファイルを一括してOPEN/CLOSEするツール

よく使うファイルをまとめてOPEN/CLOSEしたい時、ハイパーリンクを設定したファイル一覧を用意すれば、非常に簡単な処理でファイルを一括してOPEN/CLOSEできます。

ハイパーリンクから文書を開く処理

HyperlinkオブジェクトのFollowメソッドを実行すると、ハイパーリンク先の文書を開くことができます。

1. Hyperlink.Follow([NewWindow As Variant], [AddHistory As Variant], [ExtraInfo As Variant], [Method As Variant], [HeaderInfo As Variant])

引数として指定できる項目は下表の通りで、全ての引数を省略可能です。

サンプル・プログラム(1)

前掲のサンプル・プログラムで作成した、ハイパーリンクが設定されたファイル一覧を基に、ファイルを一括してOPEN/CLOSEするツールです。

（一括OPEN）
ExcelシートのA列にハイパーリンクが設定されているため、行番号6～8の繰返し処理でA列を順に処理して行き、行番号7でハイパーリンクから文書を開いています。

1. Dim wSht As Object
2. Dim i As Integer
4. Private Sub 一括OPEN1()
5.     Set wSht = ActiveSheet
6.     For i = 1 To wSht.Cells(wSht.Rows.Count, 1).End(xlUp).Row
7.         wSht.Cells(i, 1).Hyperlinks(wSht.Cells(i, 1).Hyperlinks.Count).Follow NewWindow:=True
8.     Next i
9. End Sub

（一括CLOSE）
一括OPENと同様に行番号6～8の繰返し処理でA列を順に処理して行き、行番号7でファイル名を指定してワークブックを閉じています。

1. Dim wSht As Object
2. Dim i As Integer
4. Private Sub 一括CLOSE1()
5.     Set wSht = ActiveSheet
6.     For i = 1 To wSht.Cells(wSht.Rows.Count, 1).End(xlUp).Row
7.         Workbooks(wSht.Cells(i, 1).Value).Close SaveChanges:=False
8.     Next i
9. End Sub

サンプル・プログラム(2)

Hyperlinksコレクションを使用すると、ハイパーリンクが設定されたセルの位置を意識することなく、ファイルを一括してOPEN/CLOSEすることができます。

（一括OPEN）
行番号6～8の繰返し処理でHyperlinksコレクションから順にHyperlinkオブジェクトを取出し、行番号7でハイパーリンクから文書を開いています。

1. Dim wSht, hl As Object
2. Dim i As Integer
4. Private Sub 一括OPEN2()
5.     Set wSht = ActiveSheet
6.     For Each hl In wSht.Hyperlinks
7.         hl.Follow NewWindow:=True
8.     Next hl
9. End Sub

（一括CLOSE）
一括OPENと同様に行番号6～8の繰返し処理でHyperlinksコレクションから順にHyperlinkオブジェクトを取出し、行番号7でファイル名を指定してワークブックを閉じています。

1. Dim wSht, hl As Object
2. Dim i As Integer
4. Private Sub CommandButton4_Click()
5.     Set wSht = ActiveSheet
6.     For Each hl In wSht.Hyperlinks
7.         Workbooks(hl.TextToDisplay).Close SaveChanges:=False
8.     Next hl
9. End Sub