엑셀 매크로 이동 파일 (수정 코드)

Question

는이 코드가 있습니다

Sub MoveFiles() 
Dim d As String, ext, x 
Dim srcPath As String, destPath As String, srcFile As String 
srcPath = "C:\test\" 
destPath = "C:\test2\" 
ext = Array("*.csv", "*.xls") 
For Each x In ext 
d = Dir(srcPath & x) 
    Do While d <> "" 
     srcFile = srcPath & d 
     FileCopy srcFile, destPath & d 
     Kill srcFile 
     d = Dir 
    Loop 
Next 
End Sub 

을하지만 srcPath의 모든 하나의 파일을 삭제합니다. 나는 액티브 워크 북을 삭제하기 만하면된다. ive는 좋은 시간 동안이 코드에 대해 생각하고 그것을 반복하지 않고 어떻게해야 하는지를 이해할 수 없습니다. 그냥 다음 특정 파일을 죽일 이유는 반복의 모든 파일을 죽이는 루프를 사용하려면

내가이

Answer 1

에 어떤 도움을 주셔서 감사합니다?

특정 파일을 죽이고 싶어 경우 여전히 루프는 당신은 같은 "만약"절 뭔가 추가해야합니다

if srcFile = activewindow.name then 
    kill 
else 
    do nothing 
end if 

을 아니면 내가 당신이 잘못 했습니까?