VBA에서는 VBA 코드를 사용하여 컴퓨터에있는 모든 파일을 삭제할 수 있으며 파일을 삭제하는 데 사용되는 코드를 Kill 명령이라고합니다. 파일을 삭제하는 방법은 먼저 파일의 경로를 제공합니다. 파일은 컴퓨터에 있으며 Kill 명령을 사용하여 파일을 삭제합니다.
VBA 코드를 사용하여 파일을 삭제하는 방법?
VBA는 처음에는 힘든 일이지만 VBA에 더 많은 시간을 할애하면 나처럼 사랑하기 시작할 것입니다. 컴퓨터의 다른 폴더에서 파일을 열고 작업 할 수 있으며 이제 VBA 코딩을 사용하여 파일도 삭제할 수 있습니다. 이 기사에서는 특정 폴더에서 VBA 코드를 사용하여 파일을 삭제하는 방법을 보여줍니다.
대규모 프로젝트로 작업 할 때 일반적으로 프로세스를 지원하기 위해 많은 중간 파일을 만듭니다. 모든 작업이 완료되면 향후 혼동을 피하기 위해 해당 파일을 삭제해야합니다.
한 가지 시나리오는 보통 이메일을 수신하여 정규 작업을 위해 첨부 파일을 저장하거나 해당 시점에 대한 보고서를보고 싶고 나중에 해당 파일을 삭제해야하는 경우입니다.
이러한 파일을 수동으로 삭제하면 시간이 걸리거나 저장하는 것을 잊고 컴퓨터의 공간을 차지하게됩니다. 간단한 VBA 코드로 해당 파일을 삭제하는 방법을 보여줍니다.
VBA 코드를 사용하여 폴더의 파일을 삭제하는 Kill 메서드
간단한 KILL 기능은 폴더, 특정 파일, 모든 엑셀 파일 등을 삭제합니다. VBA에서 KILL 메소드의 구문을 살펴보십시오. Kill 메서드는 읽기 전용 파일을 삭제할 수 없습니다.
경로 이름 : 경로 이름은 파일을 삭제할 컴퓨터의 폴더 경로입니다.
참고 : 경로 이름에는 와일드 카드 문자도 포함될 수 있습니다. Excel에서는 별표 (*)와 물음표 (?)를 와일드 카드 문자로 사용할 수 있습니다.
별표 (*)는 길이가 0 인 문자열과 일치하는 데 유용합니다.
물음표 (?)는 단일 문자 만 일치시키는 데 유용합니다.
특정 파일 이름 삭제
예를 들어 아래와 같은 폴더가 있습니다.
이 폴더에서 "File 5"라는 이름의 파일을 삭제하고 싶습니다. KILL 기능으로 코드를 시작하십시오.
암호:
Sub Delete_Files () Kill (PathName) End Sub
폴더 경로를 복사하여 붙여 넣으십시오.
그리고 큰 따옴표로 붙여 넣습니다.
"E : \ Excel Files"종료
이제 백 슬래시 (\)를 하나 더 넣고 확장자가있는 파일 이름을 입력하십시오.
"E : \ Excel Files \ File5.xlsx"종료
이 코드를 실행하면 언급 된 폴더 경로에 "File 5.xlsx"라는 이름의 파일이 삭제됩니다.
모든 Excel 파일 삭제
VBA를 사용하여 폴더의 모든 Excel 파일을 삭제하려면 KILL 기능과 함께 와일드 카드 문자를 사용해야합니다. 폴더 경로를 언급 한 후 파일을 "* .xl *"로 언급해야합니다.
암호:
"E : \ Excel Files \ *. xl *"종료
이 코드를 실행하면 폴더의 모든 Excel 파일이 삭제됩니다.
우리는 단일 엑셀 파일과 모든 엑셀 파일을 어떻게 삭제할 수 있는지 보았습니다. 그러나 폴더의 모든 파일을 삭제하려면 어떻게 삭제할 수 있습니까? Excel VBA를 사용하고 있으므로 다른 파일을 삭제할 수 있습니까?
대답은 예 !!! 아래 코드를 사용하여 폴더의 모든 파일을 삭제하십시오.
암호:
"E : \ Excel Files \ *. *"종료
전체 폴더 만 삭제
전체 폴더 자체를 삭제할 수 있습니까?
예, 가능합니다.
이렇게하려면 먼저 KILL 함수를 사용하여 폴더의 모든 파일을 삭제하고 폴더를 삭제하려면 RmDir 이라는 함수를 하나 더 사용해야 합니다 .
암호:
RmDir "E : \ Excel Files \"
여기서 RmDir 는 빈 폴더 만 삭제하며 하위 폴더가 있으면 삭제할 수 없습니다.
폴더의 모든 텍스트 파일 삭제
폴더의 모든 텍스트 파일을 삭제하려면 아래 코드를 사용하십시오.
암호:
"E : \ Excel Files \ *. txt"종료
읽기 전용 파일 삭제
내가 말했듯이 KILL 기능은 폴더의 "읽기 전용"파일을 삭제할 수 없습니다. 이러한 경우 시나리오에서는 "Dir $"및 "SetAttr"함수의 다른 두 함수를 사용해야합니다. 다음은 읽기 전용 파일도 삭제하는 예제 코드입니다.
암호:
Sub Delete_Files1 () Dim DeleteFile As String DeleteFile = "E : \ Excel Files \"If Len (Dir $ (DeleteFile))> 0 Then SetAttr DeleteFile, vbNormal Kill DeleteFile End If End Sub
여기에서이 VBA 파일 삭제 Excel 템플릿을 다운로드 할 수 있습니다 – VBA 파일 삭제 Excel 템플릿