[[20110331133606]] 『ファイル検索マクロで、検索対象ファイル名を変数』(ひよこ007) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『ファイル検索マクロで、検索対象ファイル名を変数にしたいのですが記述をどうすればいいでしょうか』(ひよこ007)

昨日来悩んでいます。
呼び出すブック名に該当がなければ指定した「該当なし」シートを選択して印刷する方法を色々考えていて、

昨日ご指導も頂いたのですが今ひとつ分かりませんでした。[[20110330131612]] 

そこで検索した結果、該当がなければその旨ををセルに表示させ、そのセルを参照して条件分岐でどちらかに

進むようにしようかと考えています。

調べた結果下記のマクロを作り稼動したのですが、これは対象ファイル名が定数の場合です。

具体的には「Range("E43") & "*.csv"」としたいのですがどうすればいいでしょうか。

検索相手のファイルは同一フォルダに保存していますが、フォルダの名前・位置はみんなバラバラとしてしまうので固定化できません。

Sub ブック検索()

    Const Target As String = "F:\リスト作成\てすと\te158.csv"

    If Dir(Target) <> "" Then

    Else: Range("E60") = "該当なし"

    End If
End Sub

「"F:\リスト作成\てすと\te158.csv"」の部分を「Range("E43").Value & "*.csv"」などに変えると「定数式が必要です」のエラーとなります。

度々恐縮ですがよろしくお願いいたします。


 E43に何が入っているのかわかりませんが、おそらくこんな感じではないでしょうか?

 Dim StrPath As String

 StrPath = ThisWorkbook.Path & "\" & Worksheets("Sheet1").Range("E60").Value & "*.xls"
 If Dir(StrPath) = "" Then
   Worksheets("Sheet1").Range("E60").Value = "該当なし"
 End If

 ThisWorkbook.Path で自ブックのパスが取得できます。
 (momo)

momoさん早速ありがとうございます。

稼動しました ♪

先日に引き続きありがとうございました。お蔭様で徐々に理想の形に出来上がっています。

今後ともよろしくお願い致します。


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.