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

ExcelVBA-フハイパーリンクのアドレス取得-アイキャッチ エクセルマクロで効率化する

エクセルマクロで、ハイパーリンクの絶対パス取得する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] にて、

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

ExcelVBA-ハイパーリンク絶対パス取得後
 
 

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

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

 

「Excel自動化[最強]時短仕事術」
自動化の基礎と時短に役立つテクニック解説書
毎日の定型業務を手際良く行え、大幅な業務効率化を実現!