여기에 VBA 코드에서 파일과 폴더를 사용할 수있는 몇 가지 예가 있습니다.

{비어 있음} 1. 활성 폴더 경로 얻기 현재 파일을 저장 한 활성 폴더 경로를 얻으려면 코드에이 코드 줄을 입력하십시오. – Msgbox “활성 폴더 이름 :”& CurDir 메시지 상자에이 결과가 표시됩니다. –

img1

{비어 있음} 2. 드라이브 변경 매크로를 통해 드라이브를 변경하려면 다음 코드 줄을 사용하여 수행 할 수 있습니다. – ChDrive “D” 현재 드라이브를 D로 변경하여 파일 저장 또는 파일 열기와 같은 추가 작업을 수행 할 수 있습니다. 등.이 드라이브가 컴퓨터 시스템에 존재하는지 확인하십시오. 그렇지 않은 경우이 코드 줄은 오류를 제공합니다.

{비어 있음} 3. 활성 폴더 변경 활성 폴더를 변경하려면 다음 코드 줄을 사용하십시오. ChDir“D : \ My Documents \ Files” 현재 / 활성 폴더를 위에서 언급 한 경로로 변경합니다. 그러나이 경로가 존재하지 않으면이 코드 줄에서 오류가 발생합니다. 따라서이 코드 줄을 사용하기 전에 경로가 있는지 확인하십시오.

{비어 있음} 4. 폴더에 파일이 있는지 확인 vba 코드에서 폴더에 파일이 있는지 확인하려면 코드에서 다른 작업을 진행하기 전에 다음 코드 줄을 사용할 수 있습니다. _If Dir (“D : \ My Documents \ File1.xlsx “) <>” “then ‘나머지 코드 _ 지정된 경로 (D : \ My Documents \ File1.xlsx)에”File1.xlsx “파일이 있으면 코드가 계속 실행됩니다. IF 루프 아래의 문. 경로가 존재하지 않으면 언급 된 경우 코드는 루프의 Else 부분 아래에서 명령문을 실행합니다.

{비어 있음} 5. 파일 삭제 코드를 통해 파일을 삭제하려면 vba 코드에 간단한 코드 줄을 사용해야합니다. 코드 줄은 – Kill“D : \ My Documents \ File1.xlsx” File1.xlsx라는 파일이 삭제됩니다. 폴더 또는 드라이브를 지정하지 않으면 Excel은 활성 폴더와 드라이브를 사용합니다.

{비어 있음} 6. 새 폴더 만들기 매크로에 새 폴더를 만들어 파일 또는 파일을 저장하려면 다음 코드 줄 중 하나를 사용할 수 있습니다. – MkDir “NewFolder” – 활성 폴더에 새 폴더를 만듭니다.

MkDir“D : \ My Documents \ NewFolder” – 주어진 기존 경로에 새 폴더를 생성합니다 – D : \ My Documents \ 7. 폴더 삭제 매크로를 통해서도 폴더를 삭제할 수 있습니다. 그러나 삭제하기 전에 폴더가 비어 있는지 확인해야합니다. 다음 코드 라인 중 하나를 사용할 수 있습니다. – RmDir “NewFolder” – 활성 폴더에서 “NewFolder”하위 폴더를 삭제합니다.

RmDir “D : \ My Documents \ NewFolder – 지정된 경로에서”NewFolder “하위 폴더를 삭제합니다 – D : \ My Documents \ 8. 파일 복사 매크로를 사용하여 하나 이상의 파일 복사본을 만들 수 있습니다. 동일한 폴더 (활성 폴더) 또는 다른 폴더에 파일의 복사본을 만들 수 있습니다. 그러나 복사 할 때 복사중인 파일이 닫혀 있는지 확인해야합니다.

FileCopy“File1.xlsx”,“File2.xlsx” – File1.xlsx라는 파일의 복사본을 만들어 활성 폴더에 File2.xlsx로 저장합니다.

FileCopy“File1.xlsx”,“D : \ My Documents \ Files \ File2.xlsx” – 활성 폴더에 File1.xlsx라는 파일의 복사본을 만들고 제공된 경로에 File2.xlsx로 저장합니다. – D : \ 내 문서 \ 파일 \.

  1. 파일 이동 보안 제약이있는 파일을 삭제할 수 없지만 한 위치에서 다른 위치로 파일을 이동할 수있는 경우 간단한 코드 줄을 사용하여 파일을 이동할 수 있습니다. 파일이 닫힌 경우에만 소스에서 대상으로 파일을 이동할 수 있습니다.

사용할 수있는 코드입니다. – OldFilePath =“D : \ OldFolder \ File1.xlsx” ‘소스 위치 NewFilePath =“D : \ NewFolder \ File1.xlsx”‘대상 위치 Name OldFilePath as NewFilePath ‘파일이 이동되었습니다. .