ハイパーリンクのマクロ

色々調べて書きました。

Dir の使い方は、

１）カッコ内にフォルダーを指定して呼ぶ

２）戻り値が空っぽならば、ループを脱出

３）処理

４）カッコ内で空を呼び２へループ

Sub 一覧書き出し()
Dim i As Long
Dim fname As Variant, strDir As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
strDir = .SelectedItems(1)
End With

fname = Dir(strDir & "\")
i = 1
Do While fname <> ""
Cells(i, 1) = fname
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), _
Address:=strDir & "\" & fname, _
TextToDisplay:=Cells(i, 1).Value

fname = Dir()
i = i + 1
Loop
End Sub

今度は実務に直結したことをやってみたいと思います。