ハイパーリンクからファイルのフルパスを取得する

公開日：2014-12-04　最終更新日：2014-12-04

ハイパーリンクからファイルのフルパスを取得する

ハイパーリンクのリンク先ファイル情報を取得しようとすると、なかなか難しいことになります、
ハイパーリンクからパスを取得すると相対パスとなり、簡単にはファイル情報を取得出来ません。

以下のサンプルでは、ハイパーリンクの設定されているセルの右隣のセルに更新日時を出力しています。




Sub sample()

　　Dim rng As Range

　　Dim FileName As String

      　　Dim fso As New FileSystemObject


      　　ChDir ThisWorkbook.Path

　　For Each rng In ActiveSheet.UsedRange

　　　　If rng.Hyperlinks.Count > 0 Then

      　　　　　　FileName = fso.GetAbsolutePathName(rng.Hyperlinks(1).Address)

　　　　　　If fso.FileExists(FileName) Then

      　　　　　　　　rng.Offset(0, 1) = fso.GetFile(FileName).DateLastModified

　　　　　　End If

　　　　End If

　　Next

End Sub

※「ツール」→「参照設定」で、「Microsoft Scripting Runtime」にチェックを付けて下さい。

参照設定しない場合は、
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
このようにしてください。

ChDir ThisWorkbook.Path
事前にこれを行うことで、
GetAbsolutePathName
これで絶対パスを取得できます。
後は普通に、FSOで各種情報を取得してください。

最初からハイパーリンクを絶対パスで保存する方法もあります。

通常は、ハイパーリンクは相対パスで保存されますが、ファイルを移動したりすると、リンクが切れてしまいます、そこで、ハイパーリンクの起点を変更して絶対パスで保存する方法になります。先日聞かれて、即答できませんでしたので、ここに覚書きの意味を含めて記載しておきます。

設定をこれに変更した後に作成したハイパーリンクのみ絶対参照で保存されます。
設定前に作成したハイパーリンクは相対パスのままになるので注意してください。

一応、ハイパーリンクが絶対パスで保存されている場合の、
上のノマロと同様の機能のVBAコードも掲載しておきます。




Sub sample2()

　　Dim rng As Range

　　Dim FileName As String


　　For Each rng In ActiveSheet.UsedRange

　　　　If rng.Hyperlinks.Count > 0 Then

　　　　　　FileName = rng.Hyperlinks(1).Address

      　　　　　　If Dir(FileName) <> "" Then

      　　　　　　　　rng.Offset(0, 1) = FileDateTime(FileName)

　　　　　　End If

　　　　End If

　　Next

End Sub

こちらは、FSOを使うまでもないので、
Dir
と
FileDateTime
これで済ませています。

同じテーマ「マクロVBAサンプル集」の記事

配色を使用したカラー設定を固定カラーに変更
 指定セルに名前定義されているか判定する
 Excel2003(xls)を2007以降(xlsx,xlsm)に変換する（HasVBProject）
ハイパーリンクからファイルのフルパスを取得する
ボタンに表示されているテキストを取得（Application.Caller）
Excelの表をPowerPointへ図として貼り付け
 VBAで表やグラフをPowerPointへ貼り付ける
 フォルダ（サブフォルダも全て）削除する、Optionでファイルのみ削除
 Shift_JISのテキストファイルをUTF-8に一括変換
 VBAコードの全プロシージャー・プロパティ一覧を取得
 数式バーの高さを数式の行数で自動設定

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
8.マクロとは？VBAとは？VBAでできること｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.メッセージボックス(MsgBox関数)｜VBA入門

ホーム
マクロVBA応用編
マクロVBAサンプル集
ハイパーリンクからファイルのフルパスを取得する

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.

VBAサンプル集
ハイパーリンクからファイルのフルパスを取得する