Function IsFileExist(파일 As Variant) As Boolean
IsFileExist = Dir(파일) <> ""
End Function
Function IsFileOpen(파일 As Variant) As Boolean
Dim 열린파일 As Workbook
On Error Resume Next
Set 열린파일 = Workbooks(Dir(파일))
IsFileOpen = Err.Number = 0
End Function
'엑셀 > 엑셀 VBA' 카테고리의 다른 글
| VBA Like 연산자 활용 (추가) (0) | 2024.05.17 |
|---|---|
| 숫자만 빼내기(추출하기) Like 연산자 활용, 함수, 자체함수 등등 (0) | 2024.05.17 |
| 엑셀파일 열기 GetOpenFilename (0) | 2024.05.15 |
| 파일(Workbook)이 열려있는지 확인하는 법 (0) | 2024.05.15 |
| 폴더 내에 있는 파일명들 불러오는 방법 (0) | 2024.05.15 |
