82-84 Team Blog #1

엑셀 VBA를 이용해서 파일이 존재하는지 여부를 확인하는 함수를 만드는 방법입니다.

VBA를 열어서 아래와 같은 코드를 입력해 놓으면,

=FileChk([파일명]) 을 이용해서 파일 여부를 확인할 수 있습니다.

------------------입력할 코드입니다. ------------------
Function FileChk(sFileName As String)
    Dim sChkFile As String
   
    sChkFile = Dir(sFileName)
    If (Len(sChkFile) > 0) Then
        FileChk = True
    Else
        FileChk = False
    End If
End Function
------------------------------------------------------

[파일명]에 해당되는 파일이 있을 경우에는 TRUE를 반환합니다.
(물론 없을 경우에는 FALSE)를 반환하지요.

IF문을 이용해서 다른 Text로 바꾸어 출력할 수도 있어요 ^^
=IF( FileChk([파일명]), "있음!", "없네요!")

아... 그리고 그냥 파일명만을 넣으면, 저장된 엑셀 파일과 같은 위치에 있는 파일만 체크합니다.
만약 다른 폴더에 있는 것을 검사하고 싶으시면,

C:\Text.txt 처럼 경로명까지 붙여주시면 됩니다.