[VBA 엑셀매크로] 파일열기 .open /닫기 .close /삭제 Kill

Sub 매크로()

 '변수선언
   Dim Dir As String
   Filename = ActiveWorkbook.FullName '현재 파일 이름
   Dir = ActiveWorkbook.Path  '현재파일 경로
 
     '현재파일과 같은 폴더에 있는 다른 파일 열기
      Workbooks.Open Filename:=Dir & "\" & "파일이름" & ".csv"  

     '현재 사용중인 엑셀 닫기 
      ActiveWorkbook.Close

     '현재파일과 같은 폴더에 있는 다른 파일 삭제하기
      Kill Dir & "\" & "파일이름" & ".csv"
              
 End Sub