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 質問
【60304】Re:ファイルを検索しシートに書くには neptune 09/2/9(月) 11:33 発言
【60306】Re:ファイルを検索しシートに書くには にぃ 09/2/9(月) 11:49 発言
【60308】Re:ファイルを検索しシートに書くには にしもり 09/2/9(月) 12:42 質問
【60309】Re:ファイルを検索しシートに書くには neptune 09/2/9(月) 13:06 回答
【60310】Re:ファイルを検索しシートに書くには にしもり 09/2/9(月) 13:09 質問
【60311】Re:ファイルを検索しシートに書くには neptune 09/2/9(月) 14:10 回答
【60313】Re:ファイルを検索しシートに書くには にぃ 09/2/9(月) 14:34 発言
【60318】Re:ファイルを検索しシートに書くには にしもり 09/2/9(月) 18:15 お礼

21819 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free