|
はじめまして。
Excel2000を使用しております。morizouと申します。
現在使用しているPCのファイル管理を行いたくて、
指定したフォルダ(サブフォルダ含む)より、
指定した拡張子のファイル名を、
ファイルへのハイパーリンク付きで出力するという、
下記のソースコードを書きましたが、
出力結果のファイル名が、フルパス表示となってしまい
見にくくなってしまいました。
リンク付でファイル名のみの検索結果表示としたいです。
解決へのアドバイスをいただきたいです。よろしくお願いいたします。
Sub ファイルサーチ()
Dim I As Long
With Application.FileSearch
.NewSearch
.LookIn = InputBox("検索フォルダ入力", "検索1.", , 3000, 3000)
.SearchSubFolders = True
.Filename = InputBox("拡張子(*.拡張子)", "検索2.", , 3000, 3000)
.MatchAllWordForms = True
.FileType = msoFileTypeAllFiles
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox .FoundFiles.Count & "個のファイルが見つかりました。"
For I = 1 To .FoundFiles.Count
ActiveSheet.Hyperlinks.Add anchor:=Cells(I, "A"), Address:=.FoundFiles(I), _
TextToDisplay:=.FoundFiles(I)
Next I
Else
MsgBox "検索条件を満たすファイルはありません。"
End If
End With
End Sub
|
|