Excel VBA質問箱 IV

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

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


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

21819 / 76734

←次へ　｜　前へ→


	【60303】ファイルを検索しシートに書くには

にしもり - 09/2/9(月) 11:08 -


	引用なし

	パスワード

こんにちは.

_cosmos_allというフォルダに多くある、COSMOSという文字を含むファイルを
シート"ファイル一覧"に書き出そうとおもっています。
が、<==ここでerr　という箇所で止まってしまいます。
どこが悪いでしょうか？
正直、教本のつぎはぎです。
宜しくお願いします。

'指定フォルダ内でサブフォルダも含めて指定した名前含むファイルを検索しファイル名を取得してシートに書く

Sub Test()
　
　　シート名 = "ファイル一覧"
　　親フォルダへのパス = "C:\_cosmos_all"
　　検索するファイル名 = "*COSMOS*" & ".*"
　　With Application.FileSearch
　　　　.NewSearch　　　　　　　　　　　　　　　'検索条件をリセット
　　　　.LookIn = 親フォルダへのパス　　　　　　'検索対象のフォルダ名
　　　　.Filename = 検索するファイル名　　　　　'検索するファイルの名前
　　　　.SearchSubFolders = True　　　　　　　　'サブフォルダも含める
　　　　.Execute　　　　　　　　　　　　　　　　'検索を開始する
　　　　For Each 各ファイルのフルパス In .FoundFiles
　　　　
'　　　　　MsgBox 各ファイルのフルパス

　　　　パス = ドライブ & ":\" & フォルダ & "\"
　　　　ファイル名 = Dir(パス & 検索するファイル名)　　 '指定された名前含むファイル名を取得 <==ここでerr
　　　　　　　　
　　　　　　Worksheets(シート名).Activate
　　　　　　Cells.Clear
　　
　　　　　　貼付行 = 0　　　　　　　　　　　　　　　　　'貼付行カウンタ
　　　　　　Do While ファイル名 <> ""　　　　　　　　　 '取り出したファイル名が""でなければ
　　　　　　貼付行 = 貼付行 + 1
　　　　　　Cells(貼付行, 1).Value = 各ファイルのフルパス　　 'セルにファイル名をセット
　　　　　　各ファイルのフルパス = Dir()
　　　　　　
　　　　　　Loop
　　　　Next
　　End With
End Sub

1 hits

▼

【60303】ファイルを検索しシートに書くには にしもり 09/2/9(月) 11:08

≪