개체가 닫힐 때 작업이 허용되지 않습니다. VBA

Question

다음 코드의 네 번째 줄에 도달하면 위의 오류로 인해 내 코드가 실패합니다. 내 프로그램에서 이전에이 형식을 사용해 왔지만 제대로 작동합니다. 오류를 해결하기 위해 더 많은 코드가 필요한 경우 게시 해 드리겠습니다. 감사.

With rsTIP19 
.ActiveConnection = cnTIP 
.Open "exec usp_Service_Data_Query_QA" 
ThisWorkbook.Sheets("Service_Data").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).CopyFromRecordset rsTIP19 
.Close 
End With 

Answer 1

간부의 목적은 무엇인가? .BOF 또는 .EOF으로 테스트해야합니다.

With rsTIP19 

    .ActiveConnection = cnTIP 
    .Open "usp_Service_Data_Query_QA" 
    If Not .BOF or .EOF then 
     ThisWorkbook.Sheets("Service_Data").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).CopyFromRecordset rsTIP19 
    End If 

    .Close 

End With