현재 워크북 휴지통으로 집어넣기

지난번 했던 열려있는 워크북 지우기 관련하여 API 부분과 연동해서 소스를 고쳤습니다

Sub KillActiveWorkbook2()    '//활성화된 파일 삭제하기
    Dim strFile As String
    Dim intResult As Integer
    On Error GoTo kkk
    strFile = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
   
    intResult = MsgBox(ActiveWorkbook.Name & " 항목을 휴지통에 버리시겠습니까?", vbYesNo, "파일 삭제 확인")
    If intResult = vbNo Then Exit Sub
   
    ActiveWorkbook.Close savechanges:=False
    Recycle (strFile)                 '파일을 휴지통으로 보내는 API관련 프로시져를 호출합니다.
kkk:
    If Err <> 0 Then MsgBox Err.Description, , "에러가 발생했습니다. 시도했던 작업을 확인해주십시오."
    'Err = 0
End Sub

간단하죠? ^^

이걸 실행시키기 위해서는

2009/08/12 - [VBA] - 파일을 휴지통에 넣기(API이용)

의 프로시져가 포함되어 있어야 합니다.