오류 처리 파일

을 열 때 나는 다음과 같은 코드가 있습니다오류 처리 파일

서브 패치() 파일이 난 단지는 Cofe 따라서 이유는 다음 파일을 계속 할 찾을 수 없습니다

Dim r As Long, j As Long, c As Long 
Dim day As Long, month As Long, year As Long 


year = 2014 

    For month = 2 To 2 Step -1 

     For day = 12 To 1 Step -1 

      On Error GoTo nextday 
      Workbooks.Open ("G:\Manu\PVA\Pmo_Multiprogrammes\10-Process & Tools\00 GESTION DE CHANGEMENT\03 AMÉLIORER\20 Base de données\00 Mproduct\19-Suivi\Suivi du Cseries\rapport quotidien\Suivi Cseries_" & day & "_" & month & "_" & year & ".xlsm") 
      On Error GoTo 0 

      '## Do stuff 

      Workbooks("Suivi Cseries_" & day & "_" & month & "_" & year & ".xlsm").Close (False) 

nextday: 
     Next 'day 

    Next 'mont 

End Sub

을 나는 "다음 오류 하나 GoTo"를 넣었지만 작동하지 않습니다. 나는 여전히 팝업 파일을 찾을 수 없으며 디버그 팝업도 나타납니다. 내가 잃어버린 뭔가가있을거야.

출처

2014-02-17 user2385809

예 같은 일이 발생합니다. 그것은 여전히 단지 디버그합니다. 또한 설정 도구 -> 옵션 -> 일반 -> 처리되지 않은 오류에 대한 중단이 선택되었습니다. – user2385809

[this too] (http://stackoverflow.com/questions/10141292/error-handling-vba-when -no-errors) –

아 역시이 방법이 효과적이지만 다른 대답은 절반 정도입니다. 디버그 창을 팝업하지 않지만 파일을 찾을 수 없다는 Excel 팝업을 수행합니다. 누락 된 모든 파일에 대해 확인을 눌러야합니다. 이것도 막을 수 있습니까? – user2385809

사용이 패턴 :

Sub patch() 

    Dim r As Long, j As Long, c As Long 
    Dim myDay As Long, myMonth As Long, myYear As Long 
    Dim wb As Workbook 

    Application.DisplayAlerts = False  

    myYear = 2014 

    For myMonth = 2 To 2 Step -1  
     For myDay = 12 To 1 Step -1 

      On Error Resume Next 
      Set wb = Workbooks.Open("G:\Manu\PVA\Pmo_Multiprogrammes\10-Process & Tools\00 GESTION DE CHANGEMENT\03 AMÉLIORER\20 Base de données\00 Mproduct\19-Suivi\Suivi du Cseries\rapport quotidien\Suivi Cseries_" & myDay & "_" & myMonth & "_" & myYear & ".xlsm") 
      On Error GoTo 0 

      If Not wb Is Nothing Then 
       '## Do stuff 
       wb.Close False 
      End If 
     Next 'day 
    Next 'mont 

    Application.DisplayAlerts = True 
End Sub

BTW이 같은이 이름 (DAY(), MONTH(), YEAR())와 day, month,이 경우에 year sicne VBA 기능과 같은 특정 이름을 가진 변수를 사용하지 않는 작동하지 않습니다

출처

2014-02-17 22:26:04

이것은 반쪽으로 작동합니다. 디버그 창을 팝업하지 않지만 파일을 찾을 수 없다는 Excel 팝업을 수행합니다. 누락 된 모든 파일에 대해 확인을 눌러야합니다. 이것도 막을 수 있습니까? – user2385809

@ user2385809, 지금 시도하십시오. –

@ user2385809,'어떤 메시지도 표시되지 않지만 '파일을 찾을 수 없음'이라는 팝업창이 나타납니다. 질문에 포함시키지 않은 코드와 관련이 있다고 생각합니다. 현재 코드가 팝업 메시지를 트리거 할 수 없습니다. 전체 코드를 보여주세요 –

오류 처리 파일

답변

관련 문제