Excel VBA質問箱 IV

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

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


6476 / 13644 ツリー ←次へ | 前へ→

【45011】フルパスからファイル名のみ出力したいです morizou 06/12/9(土) 23:28 質問[未読]
【45012】Re:フルパスからファイル名のみ出力したい... かみちゃん 06/12/9(土) 23:33 発言[未読]
【45025】Re:フルパスからファイル名のみ出力したい... morizou 06/12/10(日) 15:33 お礼[未読]
【45017】Re:フルパスからファイル名のみ出力したい... だるま 06/12/10(日) 10:01 発言[未読]
【45026】Re:フルパスからファイル名のみ出力したい... morizou 06/12/10(日) 15:51 お礼[未読]
【45018】Re:フルパスからファイル名のみ出力したい... kohji 06/12/10(日) 10:03 回答[未読]
【45028】Re:フルパスからファイル名のみ出力したい... morizou 06/12/10(日) 16:05 お礼[未読]
【45024】Re:フルパスからファイル名のみ出力したい... Kein 06/12/10(日) 15:02 回答[未読]
【45029】Re:フルパスからファイル名のみ出力したい... morizou 06/12/10(日) 16:07 お礼[未読]

【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

【45012】Re:フルパスからファイル名のみ出力した...
発言  かみちゃん  - 06/12/9(土) 23:33 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>解決へのアドバイスをいただきたいです。よろしくお願いいたします。

以下のURLが参考になるかと思います。
〜://www.officetanaka.net/excel/vba/tips/tips36.htm

【45017】Re:フルパスからファイル名のみ出力した...
発言  だるま  - 06/12/10(日) 10:01 -

引用なし
パスワード
   こんにちは

>ファイルへのハイパーリンク付きで出力するという...
コードが必要ですか、それとも結果が得られれば良いですか。

もし後者であればこんなフリーソフトもあります。^d^

ファイル一覧作成
(URLは載せられないみたいなので「ファイル一覧作成 だるま」で検索して下さい。)

【45018】Re:フルパスからファイル名のみ出力した...
回答  kohji  - 06/12/10(日) 10:03 -

引用なし
パスワード
   morizouさん こんにちは

TextToDisplay:=.FoundFiles(I) の部分を
TextToDisplay:=Mid(.FoundFiles(I), InStrRev(.FoundFiles(I), "\") + 1) に変更してみてください
おそらく思い通りの結果が得られると思います

お試しくだされ〜

【45024】Re:フルパスからファイル名のみ出力した...
回答  Kein  - 06/12/10(日) 15:02 -

引用なし
パスワード
   TextToDisplay:= Dir(.FoundFiles(I))

とすれば良いでしょう。

【45025】Re:フルパスからファイル名のみ出力した...
お礼  morizou  - 06/12/10(日) 15:33 -

引用なし
パスワード
   ▼かみちゃん さん:
>以下のURLが参考になるかと思います。

→早速、参考にさせていただきました。
結果、満足のいく出力が可能となりました。
ありがとうございました。

【45026】Re:フルパスからファイル名のみ出力した...
お礼  morizou  - 06/12/10(日) 15:51 -

引用なし
パスワード
   ▼だるま さん:
>ファイル一覧作成

→早速、DLして使ってみました。
私の思っているとおりの結果が得られました。
これはこれでとても便利ですね。

教えていただきありがとうございました。

【45028】Re:フルパスからファイル名のみ出力した...
お礼  morizou  - 06/12/10(日) 16:05 -

引用なし
パスワード
   ▼kohji さん:
>TextToDisplay:=.FoundFiles(I) の部分を
>TextToDisplay:=Mid(.FoundFiles(I), InStrRev(.FoundFiles(I), "\") + 1) に

→早速、上記部分を変更し実行してみました。
私の思い通りの結果が得られました。

すばやい、アドバイスありがとうございました。
非常に感謝しております。

【45029】Re:フルパスからファイル名のみ出力した...
お礼  morizou  - 06/12/10(日) 16:07 -

引用なし
パスワード
   ▼Kein さん:
>TextToDisplay:= Dir(.FoundFiles(I))

→該当部分について、上記ソースコードに記述しなおした
 結果、私の質問とおりの結果が得られました。
 ありがとうございました。非常に感謝しております。

6476 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free