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

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

エクセルマクロで、特定フォルダのファイル名のハイパーリンクを自動挿入するVBAコードをご紹介します。

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

フォルダ内のファイル名をハイパーリンク取得

以下のExcelVBAを実行すると、フォルダにあるファイルのハイパーリンクを設定します。


Sub フォルダ内のファイル名をハイパーリンク設定()

Dim i As Long
Dim path, fso, file, files As Variant
    
    Application.ScreenUpdating = False
    
        path = Range("B1") & "/"
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set files = fso.GetFolder(path).files
        
        i = 1
    
        'フォルダ内の全ファイルをループ
        For Each file In files
            
            'リンク入力
            ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=file, _
            TextToDisplay:=file.Name
            
            i = i + 1
    
        Next file
    
    Application.ScreenUpdating = True

End Sub

 

対象フォルダ

ファイルが複数存在しています。

 

マクロ実行後

セルB1に対象フォルダのパスを入力し、マクロを実行します。

自動でA列にハイパーリンクを作成します。


 

ハイパーリンクをクリックすると、ファイルを開くことができます。


 
 

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

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

 

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