빈 EDOffice1 파일의 오류 메시지

Question

명령 단추를 클릭하여 회귀 분석을 계산하는 코드를 성공적으로 설계했습니다. 명령 코드는 VB로 가져온 엑셀 시트를 참조합니다. VB에서 데이터를 먼저 가져 오지 않고 계산 명령 단추를 누르는 경우 오류 메시지가 표시됩니다. 나는 함정으로 이런 짓을하지만 작동하지 않습니다

을 EDOffice1.ActiveDocument이

이 도와주세요 경우

있는 MsgBox "파일을 선택했다"

끝이 비어있는 경우.

Answer 1

데이터를 가져올 때까지

If EDOffice1.Documents.Count = 0 Then 
    MsgBox "No Files were selected" 
End If 

는 또한, 버튼을 사용하지 않는 것이보십시오.