[Excel] Workbooks.Open 메서드를 이용한 엑셀파일 열기

Workbooks.Open 메서드를 이용한 엑셀파일 열기

 

SampleFile = "C:\workspace\Blog\Excel\Sample.xlsx Workbooks.Open Filename:=SampleFile

열고자 하는 엑셀파일이 존재하지 않을 경우, 오류가 발생합니다.

미존재 파일 Open시 오류창

 

파일이 존재하는지 확인

미존재 파일의 오류처리를 위해 Open전 해당 파일이 존재하는지 체크를 합니다.

SampleFile = "C:\workspace\Blog\Excel\Sample.xlsx"          ' 파일이 존재하지 않으면 오류메시지를 출력하고 종료한다.     If Dir(SampleFile) = "" Then         MsgBox "파일 미존재"         Exit Sub     End If

파일이 존재하지 않으면, 오류메시지박스를 출력하고, 매크로를 종료합니다.

열려고 하는 파일과 동일한 이름의 파일이 이미 열려 있으면 파일은 열리지 않습니다.

 

전체 소스

열려고 하는 파일이 있는지 확인하고,

해당 파일이 없으면 "오류 메시지박스"를 출력하고

파일이 있으면 파일을 Open합니다.

Sub 파일열기()     SampleFile = "E:\workspace\Blog\Excel\Sample.xlsx"          ' 파일이 존재하지 않으면 오류메시지를 출력하고 종료한다.     If Dir(SampleFile) = "" Then         MsgBox "파일 미존재"         Exit Sub     End If          Workbooks.Open Filename:=SampleFile End Sub

 

끝.