Excelの列リストに基づくテキストファイルのコピー

Question

これを展開して、列内のファイル名リストに基づいてファイルをコピーするにはどうすればよいですか？ファイル名が列Aにある場合は、コピー先にコピーします。

Dim fso As Object 
Set fso = VBA.CreateObject("Scripting.FileSystemObject") 

Call fso.CopyFile(source, destination[, overwrite]) 

これは私がこれまでに見つけたものですが、1つのファイルをコピーして消滅したようです。

Sub ConditionalFileCopy() 

SearchDirectoryPath = ThisWorkbook.Path & "\DP_From\" 
TargetDirectoryPath = ThisWorkbook.Path & "\DP_To\" 

    Dim nameValue As String 

    'start at cell A1 
    Range("a1").Select 
    Do Until Trim(ActiveCell) = "" 

     nameValue = ActiveCell 

     file = Dir(SearchDirectoryPath) 
     While (file <> "") 

       'file matches the name, copy file 
       FileCopy SearchDirectoryPath & file, TargetDirectoryPath & file 
       GoTo NEXT_NAME 
      file = Dir 
     Wend 
NEXT_NAME: 
     ActiveCell.Offset(1).Select 
    Loop 

End Sub 

Answer 1

GoTo NEXT_NAME 

これは、残りのファイルがコピーされる前に、あなたのループが終了する原因となっている行を削除します。

F8を使用してコードをステップ実行すると、実際に何が起こっているかがわかります。