【エクセルマクロ】ハイパーリンクの絶対パス取得：自動化で効率アップ

エクセルマクロで、ハイパーリンクの絶対パス取得するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください！

ハイパーリンクの絶対パス取得

以下のExcelVBAを実行すると、ハイパーリンクのアドレスを抽出します。

Sub ハイパーリンクフルパス出力()

Dim h As Hyperlink
Dim Fso As Object

    Set Fso = CreateObject("Scripting.FileSystemObject")
    
    For Each h In ActiveSheet.Hyperlinks
        h.Address = Fso.GetAbsolutePathName(h.Address)
        Cells(h.Range.Row, h.Range.Column + 1) = h.Address
    Next h
    
    Set Fso = Nothing

End Sub

マクロ実行後

A列のハイパーリンクのフルパスを取得して、となりのB列に表示します。

[Cells(h.Range.Row, h.Range.Column + 1) = h.Address] にて、

ハイパーリンクが設定してある、すぐ右のセルに絶対パスを出力します。

この記事がお役に立ちますと幸いです。
 

エクセルマクロ：フォルダ内のファイル名をハイパーリンク取得

...

kirinote.com

2022.09.24