Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

36896 / 76732

←次へ　｜　前へ→


	【45011】フルパスからファイル名のみ出力したいです

morizou - 06/12/9(土) 23:28 -


	引用なし

	パスワード

はじめまして。
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

0 hits

▼

【45011】フルパスからファイル名のみ出力したいです morizou 06/12/9(土) 23:28

≪