Excel VBA質問箱 IV

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

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


38960 / 76732 ←次へ | 前へ→

【42893】Re:検索のファイル指定
発言  かみちゃん  - 06/9/24(日) 19:10 -

引用なし
パスワード
   こんにちは。かみちゃん です。

> これは上司から作ってくれといわれているんですが、まだそのコピーするファイ
> ルのリストが届いてないんです。で、多分そのリストが届いたらそこにフォルダ
> 名も書いてあると思うんです。
> だから多分検索場所を少しは絞り込めるとは思うんですが・・・。
>
>↓は僕なりに色々と考えて作ったんです。
>シートのA列にコピーするファイルをすべて入力する予定です。

それであれば、私だったら、以下のようなコードにします。
ファイル検索の部分は、ほとんど変えていません。
★の部分をよーく確認してください。前回とまったく変えていません。

Sub aaa2()
 Dim strCopyPath As String
 Dim c As Range
 Dim LastCell As Range
 
 On Err GoTo エラー
 Application.Cursor = xlWait
 
 strCopyPath = "c:\コピー先"
 MkDir strCopyPath
 
 Set LastCell = Cells(Rows.Count, 1).End(xlUp)
 For Each c In Range("A1", LastCell)
  With Application.FileSearch
   .NewSearch
   .LookIn = "C:\"
   .SearchSubFolders = True
   .Filename = c.Value
   .FileType = msoFileTypeAllFiles '★
   If .Execute() > 0 Then
    For i = 1 To .FoundFiles.Count
     FileCopy .FoundFiles(i), strCopyPath & "\" + ActiveCell
    Next i
   Else
    MsgBox "ファイルがありません。(" & c.Value & ")"
   End If
  End With
 Next
 Application.Cursor = xlDefault
 Exit Sub
エラー:
 MsgBox "エラーが発生しました"
End Sub

ただし!届く予定になっているリストがフォルダ名からのフルパスが書かれている
のであれば、このような回りくどいことをしなくてもいいですよ。
今回のサンプルは、あくまで、ファイル名だけ書かれていて、そのパスをひとつず
つ検索するパターンです。
ただし、C:\のサブフォルダに同じファイル名があれば、後から見つかったファイ
ルを上書きしますし、そもそも、C:\からサブフォルダまでひとつずつ繰り返して
検索するのか、想像以上に時間がかかると思います。

何がしたいのか、未だにさっぱりわかりませんが、処理の見直しをおすすめします。

0 hits

【42852】検索のファイル指定 hitosi 06/9/23(土) 12:28 質問
【42854】Re:検索のファイル指定 かみちゃん 06/9/23(土) 12:37 発言
【42856】Re:検索のファイル指定 hitosi 06/9/23(土) 12:58 発言
【42858】Re:検索のファイル指定 かみちゃん 06/9/23(土) 13:14 発言
【42874】Re:検索のファイル指定 hitosi 06/9/24(日) 8:30 質問
【42875】Re:検索のファイル指定 かみちゃん 06/9/24(日) 8:53 発言
【42877】Re:検索のファイル指定 hitosi 06/9/24(日) 16:01 質問
【42879】Re:検索のファイル指定 ぱっせんじゃー 06/9/24(日) 16:38 発言
【42880】Re:検索のファイル指定 hitosi 06/9/24(日) 16:53 発言
【42881】Re:検索のファイル指定 ぱっせんじゃー 06/9/24(日) 17:14 発言
【42884】Re:検索のファイル指定 hitosi 06/9/24(日) 17:32 質問
【42885】Re:検索のファイル指定 かみちゃん 06/9/24(日) 17:40 発言
【42886】Re:検索のファイル指定 ぱっせんじゃー 06/9/24(日) 17:42 発言
【42889】Re:検索のファイル指定 hitosi 06/9/24(日) 18:33 発言
【42890】Re:検索のファイル指定 かみちゃん 06/9/24(日) 18:43 発言
【42891】Re:検索のファイル指定 ぱっせんじゃー 06/9/24(日) 18:43 発言
【42894】Re:検索のファイル指定 かみちゃん 06/9/24(日) 19:14 発言
【42893】Re:検索のファイル指定 かみちゃん 06/9/24(日) 19:10 発言

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