ワイルドカードの記述が、原因でしょうか？

Question

下記コードが、ついこの前までは、きちんと　"A?07??????.CSV"　を読み込んでたんですが、
今は、　"検索条件を満たすファイルはありません。"　　となってしまいます。

１、ワイルドカードの記述が、おかしいでしょうか？
２、フォルダ名は、漢字等はやめて、半角英数字にしたほうがよいのでしょうか？
３、このような、現象は、よくあることでしょうか？

以上　原因がわかりませんので、何卒ご教示くださいませ。
-----------------
Private Sub TEST()
    Dim myFS As FileSearch
    Dim i As Long

    ChDir "C:\Documents and Settings\Owner\デスクトップ\ああ"
    Set myFS = Application.FileSearch
    With myFS
        .LookIn = "C:\Documents and Settings\Owner\デスクトップ\ああ"
        .Filename = "A?07??????.CSV"    
        If .Execute > 0 Then
 
            For i = 1 To .FoundFiles.Count
                '見つかったファイルを一つずつ開く
                Workbooks.OpenText Filename:=.FoundFiles(i), _
                StartRow:=1, _
                DataType:=xlDelimited, _
                TextQualifier:=xlDoubleQuote, _
                ConsecutiveDelimiter:=False, _
                Comma:=True
                'ああ.xlsブックに移動
               Sheets(1).Move after:=Workbooks("ああ.xls").Worksheets(Workbooks("ああ.xls").Sheets.Count)
            Next i
        Else
            MsgBox "検索条件を満たすファイルはありません。"
        End If
    End With

End Sub

Wendy02 · Accepted Answer

こんばんは。

やっぱり、FileSearchは壊れています。

私も一度壊したことがあります。掲示板の質問でも、壊れた人の対応はしたことがあるのですが、直りませんでした。壊れているのは、C言語のツールの'Dependency　Walker' でみると、どこかの　Dll ファイルが赤い色になって出てくるので、分かるのですが、OS自体に関わってきて、直接、Office などを再インストールしても直らないのです。ファイルとファイルの依存性の問題なので、レジストリに関係しているのだろうっていうのは分かります。そのファイル名かは忘れましたが、MSサポートには出てきます。私の場合は、ADOのMDACをインストールした時に壊れたような気がします。同系ですからね。

今回の場合は、単に、Dir　で、ちょっと変えるだけでよいです。
もともと、当時の壊れた時のコードを思い出して書いたので、移植は簡単です。動的配列で、格納していますが、oshietecho-daiさんでしたら、読めるとは思います。この方法は、他にも応用できます。
それと、Like演算子を使っているので、いろいろ応用することも出来ます。


Sub FileSeachPrcR2()
　　Dim Dirs() As Variant
　　Dim FileName As String
　　Dim i As Long
　　Const MYFILE As String = "A?07#######.CSV"
　　Const MYDIR As String = "C:\Documents and Settings\owner\デスクトップ\" '必ず、末尾に'\'を入れてください。
　　FileName = Dir(MYDIR & "*.csv")
　　Do While FileName <> ""
　　　 ReDim Preserve Dirs(i)
　　　 Dirs(i) = FileName
　　　 i = i + 1
　　FileName = Dir()
　　Loop
　　　　If i > 0 Then
　　　　　　For i = 0 To UBound(Dirs())
　　　　　　　　'Like演算子で、ふるいに掛ける
　　　　　　　　If StrConv(Dirs(i), vbUpperCase) Like MYFILE Then
　　　　　　　　　Workbooks.OpenText FileName:=MYDIR & Dirs(i), _
　　　　　　　　　StartRow:=1, _
　　　　　　　　　DataType:=xlDelimited, _
　　　　　　　　　TextQualifier:=xlDoubleQuote, _
　　　　　　　　　ConsecutiveDelimiter:=False, _
　　　　　　　　　Comma:=True
　　　　　　　　'ああ.xlsブックに移動
　　　　　　　　ActiveWorkbook.Sheets(1).Move _
　　　　　　　　after:=Workbooks("ああ.xls").Worksheets(Workbooks("ああ.xls").Sheets.Count)
　　　　　　　　End If
　　　　　　Next i
　　　　Else
　　　　　　MsgBox "検索条件を満たすファイルはありません。"
　　　　End If
End Sub

Wendy02 · Answer

こんばんは。

>＞デスクトップにあるということですね。
>場所により、コードに何らかの影響があるのでしょうか？

影響の問題ではないのですが、ある程度のレベルにある人は、デスクトップの取り方が、前回で示したように、現在のUser と同じデスクトップを取得するように作るということです。その分、難しくなるのです。ファイルを置くこと自体はかまわないと思いますが、長く置く場所ではありませんね。

では、
>C: とか　D：　などの直下がよいのでしょうか？
それは、どこでもかまわないと思います。ただ、私が作ると、ドライブが、Readyかどうかを調べるというコードを付け足します。

>マクロコードが記述されてる　Excelファイルと同じフォルダがよいのでしょうか？
そのようなことはありませんが、まず、余計なことが不要なので楽ですね。フォルダのフルネームが必要ありません。

私の場合は、他人の環境に適応させるためのコードは、どうやったらエラーを出さないか考えます。

ただ、これは、私個人の意見なのですが、掲示板で、自分自身のVBAの勉強の参考になるものは少ないと思います。私のものも含めて。私は、私自身のスタイルに持ち込もうとしてしまいます。

しょせん、他人のコードは他人のもの、自分のコードは自分だけのものかもしれません。あまり、掲示板の中で振り回されないようにしたほうが、より上達の目的に近づくような気がします。なくて七癖で、人のコードにはそれなりの癖があるものです。確かに、FileSearch などは、人の意見はためになりますが、特例です。

それと、最後に、ひとつの方法でダメだった場合は、それに深入りしないほうが良いようです。当面の解決だけを目的にして、早めに別な方法に切り替えて、再び、その問題に取り組む時期が来るのを待つことが上達の早道のような気がします。単純に解決しないものは、自分の手には余る複合的な問題が絡んでいることがあります。これは、私の本当にバカな失敗から言えることですが。

Wendy02 · Answer

こんにちは。Wendy02です。

デスクトップにあるということですね。

基本的に、私の元のコードに対しては、ぜんぜん、内容が違っていますね。

ちょっと、みなさんのアドバイスに逆らって、FileSearch にこだわってみましょうか？
そのほうが、理解しやすいと思います。

それと、FileSearch の元のエンジンは、Outlook にあります。ただ、この前から、Outlook 2003 を試してみているのですが、FileSearchが生きているようにはありませんね。


Sub FileSeachPrcR()
　　Dim myFs As FileSearch
　　
　　Const MYFILE As String = "A?07#######.CSV"
　　Const MYDIR As String = "C:\Documents and Settings\owner\デスクトップ\" 
　　Set myFs = Application.FileSearch
　　With myFs
　　　　.NewSearch
　　　　.LookIn = MYDIR
　　　　.Filename = "CSV"
　　　　.MatchTextExactly = False
　　　　.FileType = msoFileTypeOfficeFiles

　　　　If .Execute > 0 Then
　　　　　　For i = 1 To .FoundFiles.Count
　　　　　　　　'Like演算子で、ふるいに掛ける
　　　　　　　　If StrConv(.FoundFiles(i), vbUpperCase) Like "*" & MYFILE Then
　　　　　　　　　Workbooks.OpenText Filename:=.FoundFiles(i), _
　　　　　　　　　StartRow:=1, _
　　　　　　　　　DataType:=xlDelimited, _
　　　　　　　　　TextQualifier:=xlDoubleQuote, _
　　　　　　　　　ConsecutiveDelimiter:=False, _
　　　　　　　　　Comma:=True
　　　　　　　　'ああ.xlsブックに移動
　　　　　　　　AcitveWorkbook.Sheets(1).Move _
　　　　　　　　After:=Workbooks("ああ.xls").Worksheets(Workbooks("ああ.xls").Sheets.Count)
　　　　　　　　End If
　　　　　　Next i
　　　　Else
　　　　　　MsgBox "検索条件を満たすファイルはありません。"
　　　　End If
　　End With
　 Set myFs = Nothing
End Sub


後、アドバイスですが、FileSearch のような外部メソッドやワークシートメソッドは、繰り返して実験を重ね、確信を得なければ、プロパティの省略はしてはいけません。また、人に教えるときは、特に省略型は使えません。今回の方法は、以前、FileSearch が壊れたときに使った書き方です。

それから、
 "A?07??????.CSV"

本来、こういう厳密なワイルドカードはあまり関心しません。普段は、A?07*.CSV などでよいと思います。出来る限りは、他の方法を求められるのがよいと思います。今回のワイルドカードは、Like演算子のためのものです。間違わないでください。

nicotinism · Answer

http://oshiete1.goo.ne.jp/qa2728987.html
↑でも述べましたが、Application.FileSearch に良い思い出は有りません。
上記リンクの私の回答をアレンジすれば目的は達成できると思います。
（サブフォルダまで検索しています）

さらに、2007では現役引退の様子です。
Hidden なので引っ張り出すことも出来るかもしれませんけど・・・
http://msdn2.microsoft.com/en-us/library/bb242669.aspx

Kasouken · Answer

FileSearchをやめて
DirとかFileSystemObjectを使用されては如何でしょう。
理由はWendy02さんと同じです。

Wendy02 · Answer

こんにちは。Wendy02です。

結局、この前のものは解決しないままでしたのですか？私は、どうしても、自分のスタイルに持ち込みたくなってしまいます。ご自身のコードの中で解決したいのですね。分かりました、考え方を変えます。すみませんでした。

ただ、あまり、FileSearch には、深入りしないほうがよいです。その理由は、どこにも、きちんとした仕様も書かれていませんし、不安定だからです。VBAをある程度経験した人たちは、みな同じ意見だと思います。

>１、ワイルドカードの記述が、おかしいでしょうか？
FileSearch は、基本的に、ワイルドカードの仕様が、一般的なファイル検索などの仕様と違います。隠れた仕様があります。当然、MS-DOSのワイルドカードの仕様とも違うことがありますし、また、バージョンによって仕様が違うことがあることがあります。

.Filename = "A?07??????.CSV" 

たとえば、どんなファイル名をヒットさせようとしていますか？
'AB070302aa.csv' とか？

もし、ヒットしにくいようでしたら、デスクトップでしたら、数が少ないはずですから、
*.CSV で検索しておいて、

For i = 1 To .FoundFiles.Count

この場所で、
If .FoundFiles(i) Like "A?07??????.CSV" Then 
としてもよいと思います。

>２、フォルダ名は、漢字等はやめて、半角英数字にしたほうがよいのでしょうか？
Win XPなら、直接の問題はないはずです。

>３、このような、現象は、よくあることでしょうか？
FileSearch は、うまくいかないことのほうが多いのではないかと思います。これは、前に説明したかもしれませんが。

phoenix343 · Answer

う～ん単純に考えると
A?07??????.CSVの'?'は任意の一文字だから
A007000000.CSVはヒットするけど
A00700000.CSVはヒットしない。

DOS窓を開いて、プロンプトで
＞ cd C:\Documents and Settings\Owner\デスクトップ\ああ
＞ dir A?07??????.CSV
とやってファイルが見つかりますか？

ワイルドカードの記述が、原因でしょうか？

こんばんは。

この回答への補足

こんばんは。

この回答への補足

こんにちは。

FileSearchをやめて

こんにちは。

この回答への補足

う～ん単純に考えると

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング