マクロを実行すると、エラーにならずに、じりじり音がしてしまう

質問

EXCEL2002です。（セキュリティは低です）
いままで、問題なく実行できてたんですが、このような現象は始めてです。
他のマクロは問題なく、実行できておりますが、このマクロだけがおかしいんです。

問題内容の経緯
１、　最初の　1回　の実行時、下記の線で挟まれた部分だけが、エラーで反転された。
２、　次に、VBの画面だけを閉じて、再度実行しましたら、今度はエラーにならずに、その後は何度実行しても、「　じりじり音　」　がしてしまうだけで、休止してるような状態です。（フリーズはしません）
３、　休止して動かないが、マウスは動きますので、EXCELを閉じますと、
　　　「　このプログラムに応答はありません　」　の画面表示されますので、「　すぐに終了　」　ボタンで、終了した。
４、　PCを再起動して、何度再実行しましたが、エラーにはならずに「２～３」の繰り返しで、全く変わらない状態です。

自身で気が付くことは、最近、マイドキュメントに、PDFファイル等を100Mぐらい、保存したぐらいですが。
他には、フリーソフト等を試しにインストールし使用しました。

以上　よろしくお願い致します。

For i = 1 To .FoundFiles.Count
'見つかった　「　*.csvファイル　」　を一つずつ開く
-----------------------
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

回答No.2

Wendy02

こんにちは。

まず、どこまでコードが通っているか、調べてみてください。ブレイク・ポイントを置けば分かるはずです。

全体が書かれていないのではっきりしない部分がありますが、FileSearch オブジェクトは、NewSearch コマンドは入っていますか？

私としては、以下のどこに問題があるか、それだははっきりしたいと思います。

For i = 1 To .FoundFiles.Count
Workbooks.OpenText Filename:=.FoundFiles(i), _

ちゃんと、.FoundFiles.Count の数は取れていますか？
ここの　.FoundFiles(i)　ファイル名はちゃんと取れているか、調べてみてください。

記録マクロからのようですが、
TextQualifier:=xlDoubleQuote, _
の行を削除してみるか、

または、正しい書き方に戻してみるとか。
TextQualifier:= xlTextQualifierDoubleQuote

ただ、もしも、トラブルがコードの中にないようでしたら、最終的には、このコード自体を、あきらめたほうがよいです。もともと、TextOpenメソッドは、CSVの特殊なものに使う書き方ですから、コードを見ている限り、特殊な部分はないように思います。

それから、そのコード自体は、外部ツールを使っているので、そのツール自体の依存性(Dependency)が壊れていると、そのままの状態では、容易には修復は難しいかもしれません。いろんなソフトを入れていますと、しょうがないのです。別に特別にOSとかOffice が壊れたようなことではなくて、VBAを専門に扱う人は、私を含めて、みんな、一度は経験する話のようです。だから、この手の質問の回答では、手抜き（＝初級のコード）をしなければ、別のコードを書くのですね。

補足

こんにちは、お世話になります。
実行できてた当事の実行結果は、自身の判断では、全く問題ないと思います。
その後の経緯
１、　デスクトップ上の他のソフト、IE、を全て終了してから実行したが、変わらず。
　　　その後、少し時間を置いてから実行しましたら、実行できました。
２、　翌日、ソフト２つが起動してる状態で、実行しましたら、エラーになる。
　　　「エラー番号1004、*.csvがありません。ファイル名及びファイルの保存場所が正しいかどうか確認してください。」
デバッグで、当初質問と同じ　「　線で挟まれた6行だけ　」　が反転されました。
３、　閉じて、再度、実行しましたが、２、と同じでした。
４、　そこで、２、と同じ環境で、試しに、当コードの*.CSV　→　*.csv　にして、実行しましたら、実行できました。

下記が全コードです。
１、　「*.csv」　を一端、開かないと、データを書き込むことはできないものなんですか？
ご確認の上、おかしな箇所がありましたら、ご教示願います。
----
Private Sub TEST()
Dim myFS As FileSearch
Dim mySvWb As Workbook
Dim i As Long

ChDir "C:\DATA"
Set myFS = Application.FileSearch
With myFS
.LookIn = "C:\\Documents and Settings\Owner\デスクトップ\ファイルフォルダ"
.SearchSubFolders = True 'サブフォルダも参照する
.Filename = "*.CSV" 　　　'→*.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
'初期設定のシートを削除
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Else
'検索結果が０なら
MsgBox "検索条件を満たすファイルはありません。"
End If
End With
End Sub