Excel VBA質問箱 IV

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

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


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

43524 / 76735

←次へ　｜　前へ→


	【38258】Re:ファイルの検索についてです。

Kein - 06/5/30(火) 17:50 -


	引用なし

	パスワード

なぜ先に提示したコードを応用できないの ?
A1 セルに拡張子を除いたファイル名を入力しているとして

MyF = Dir("C:\献立\" & *.*)
Do Until MyF = ""
　 If UCase(Left$(MyF, Len(MyF) - 4) = Range("A1").Value Then
　　　MsgBox Range("A1").Value & "　が見つかりました", 64
　　　Exit Do
　 End If
　 MyF = Dir()
Loop

で、良いでしょう。

0 hits

▼

【38248】ファイルの検索についてです。 ゆっけ 06/5/30(火) 16:09