재 질문 입니다 (현재 파일 상태를 알아보는 코드 : 이미 오빠두 님이 답변 주신 내용인데...)

VBA
작성자
밍장군
작성일
2020-11-06 17:23
조회
60
Sub 매크로1()
'
' 매크로1 매크로
'

'
If IsFileOpen("D:\Test\2020-11-04.xls") Then
MsgBox "파일사용중입니다"
Else: MsgBox "파일 미사용"
End If
End Sub
Function IsFileOpen(filePath As String) As Variant

'파일이 실행중인지 확인합니다.
'사용예제: IsFileOpen("C\오빠두엑셀\테스트xlsx")
'파일이 실행중일 시 TRUE를 반환합니다.
'https://www.oppadu.com

Dim i As Long: Dim err As Long

On Error Resume Next
i = FreeFile()

Open filePath For Input Lock Read As #i: Close i
err = err: On Error GoTo 0

Select Case err
Case 0: IsFileOpen = False
Case 70: IsFileOpen = True
Case Else: IsFileOpen = err
End Select

End Function

이렇게 하고 저기 대상파일을 닫고 실행하면 정상적으로 false 가 나오는데

대상파일을 오픈하고 실행해도 false 가 나오네요

단순히 무슨 문제 일까요?
밍장군
회원등급 : 가지2단계
포인트 : 585 EP
총질문 : 31 개 (마감율 : 26%)
채택답변 : 0 개
전체 4

  • 2020-11-06 18:11
    채택된 답변

    안녕하세요? 🙂

    이전 게시물에 적어드린 명령문에 변수가 누락되어 있었네요 ^^; 죄송합니다.

    수정된 코드를 다시 적어드렸으니 확인해보시겠어요?

    https://www.oppadu.com/question/?mod=document&uid=7691

    감사합니다.


    • 2020-11-09 10:06

      답변 감사 드립니다

      그런데 왜 이게 동작 하는지 궁금하네요

      Dim i As Long: Dim err As Long

      On Error Resume Next
      i = FreeFile() '---------------------------------------- 배열 변수 입력

      Open filePath For Input Lock Read As #i: Close i '--------------- 의미가?
      err = err: On Error GoTo 0 '------------ err 발생 시 첫 구문으로? 맞나요?

      Select Case ierr '------------------- 이건 어떻게 이해를 해야할지
      Case 0: IsFileOpen = False
      Case 70: IsFileOpen = True
      Case Else: IsFileOpen = err
      End Select

      End Function

      답변 주시면 감사하겠씁니다


전체 1,639
번호 카테고리 제목 작성자 작성일 추천 조회
1634 함수/공식
New 데이터 검색 ? 첨부파일 (2)
에메랄드 | 2020.12.05 | 추천 0 | 조회 21
에메랄드 2020.12.05 0 21
1633 함수/공식
New 조건부 서식에서 countif 문자포함 나타내는법좀 알려주세요 첨부파일 (1)
블랑블랑 | 2020.12.05 | 추천 0 | 조회 27
블랑블랑 2020.12.05 0 27
1632 기능/도구
New 혹시 특정음영을 제외하고 필터를 거는기능도 VBA로 가능한가요??
Mindcare | 2020.12.05 | 추천 0 | 조회 13
Mindcare 2020.12.05 0 13
1631 함수/공식
New 중복값 끌어오기 질문 첨부파일 (1)
di**** | 2020.12.05 | 추천 0 | 조회 26
di**** 2020.12.05 0 26
1630 함수/공식
New [함수] COUNT 함수 사용시 에러 발생 / 이미지불러오기 첨부파일
임이사 | 2020.12.05 | 추천 0 | 조회 20
임이사 2020.12.05 0 20
1629 함수/공식
New 유효성검사 입력시 오류 체크 사용자지정 방법 첨부파일
승재빠 | 2020.12.05 | 추천 0 | 조회 23
승재빠 2020.12.05 0 23
1628 VBA
New VBA 배열에 있는 값을 화면에 출력하는 방법 첨부파일 (2)
바늘과실 | 2020.12.05 | 추천 0 | 조회 24
바늘과실 2020.12.05 0 24
1627 함수/공식
New Index, Mach 함수 사용 첨부파일 (2) 답변완료
zzanginb**** | 2020.12.05 | 추천 0 | 조회 37
zzanginb**** 2020.12.05 0 37
1626 피벗테이블
New 고객 입금 관리 구현(피벗테이블 자동 업데이트) 첨부파일 (2)
왜사는건지 | 2020.12.04 | 추천 0 | 조회 36
왜사는건지 2020.12.04 0 36
1625 피벗테이블
New 피벗테이블 값에 텍스트 삽입 (4)
호두사랑 | 2020.12.04 | 추천 0 | 조회 28
호두사랑 2020.12.04 0 28
1624 문서서식
New 안녕하세요 질문이 있습니다. (1)
몽소이 | 2020.12.04 | 추천 0 | 조회 23
몽소이 2020.12.04 0 23
1623 함수/공식
New SUMIF 함수 사용 시 지정 셀(숫자)가 포함된 조건으로 합계를 구하고 싶어요. (1)
dal255 | 2020.12.04 | 추천 0 | 조회 35
dal255 2020.12.04 0 35
1622 기능/도구
New 고급필터 기능을 이용해서 얻은 값을 요약하는 방법을 질문드리고싶습니다
Lundi | 2020.12.04 | 추천 0 | 조회 26
Lundi 2020.12.04 0 26
1621 파워쿼리/피벗
New 파워쿼리 작업 후 표로 불러들이고 새 열에 입력한 값이 랜덤으로 틀어짐 (2)
악순환의 굴레 | 2020.12.04 | 추천 0 | 조회 24
악순환의 굴레 2020.12.04 0 24
1620 VBA
New 영어 이외의 언어 검사 방법 도와주세요 ㅠㅠ (1)
고래킹 | 2020.12.04 | 추천 0 | 조회 21
고래킹 2020.12.04 0 21
1619 VBA
New 재고관리 VBA 코드 관련 문의건2 (1)
finebyme | 2020.12.04 | 추천 0 | 조회 31
finebyme 2020.12.04 0 31
1618 함수/공식
New Index / Mach 함수 사용 (4)
zzanginb**** | 2020.12.03 | 추천 0 | 조회 53
zzanginb**** 2020.12.03 0 53
1617 함수/공식
New IF함수로 해결이 될 문제인지 봐주실 수 있을까요? 첨부파일 (1)
naver_5fc8b5b4c9002 | 2020.12.03 | 추천 0 | 조회 40
naver_5fc8b5b4c9002 2020.12.03 0 40
1616 함수/공식
New 필터 적용 후 데이터 합계! subtotal 썼더니필터 바꾸면 값이 바뀌어요. 첨부파일 (2) 답변완료
NANA | 2020.12.03 | 추천 0 | 조회 48
NANA 2020.12.03 0 48
1615 피벗테이블
New 동적범위 설정과 련된된 질문입니다. (2) 답변완료
미네시마 | 2020.12.03 | 추천 0 | 조회 26
미네시마 2020.12.03 0 26
1614 함수/공식
New [함수] 규칙적으로 변하는 함수, 조건부 서식(아이콘), 다른 시트 내용 불러오기 첨부파일 (11) 답변완료
임이사 | 2020.12.03 | 추천 0 | 조회 37
임이사 2020.12.03 0 37
1613 VBA
New 재고관리파일 VBA CODE 관련 문의건 (2)
finebyme | 2020.12.03 | 추천 0 | 조회 41
finebyme 2020.12.03 0 41
1612 VBA
New VBA 조건 내에서 서로 다른 Sheet로 값 복사하는 방법 첨부파일 (3)
fire6**** | 2020.12.03 | 추천 0 | 조회 30
fire6**** 2020.12.03 0 30
1611 함수/공식
New 대량의 데이터 분석에 사용되는 함수/공식을 알고 싶어요. 첨부파일 (1)
ma**** | 2020.12.03 | 추천 0 | 조회 24
ma**** 2020.12.03 0 24
1610 파워쿼리/피벗
New 쿼리 파일 오픈 시 자동 업데이트 방법 요청 건 (1)
해봐 | 2020.12.03 | 추천 0 | 조회 27
해봐 2020.12.03 0 27
1609 VBA
New 한 개의 셀에 개수가 변하는 여러 개의 값 입력하기 첨부파일 (4) 답변완료
만수산드렁칡 | 2020.12.03 | 추천 0 | 조회 34
만수산드렁칡 2020.12.03 0 34
1608 피벗테이블
New 피벗테이블과 시트보호 관련문의 (2)
H.B | 2020.12.03 | 추천 1 | 조회 25
H.B 2020.12.03 1 25
1607 함수/공식
New 시간 계산 관련 문의 (1)
엘라임 | 2020.12.03 | 추천 0 | 조회 32
엘라임 2020.12.03 0 32
1606 기능/도구
New 회원자료 다운이 안되는 이유에 대해서 여쭤봅니다.. (1)
자유시간 | 2020.12.03 | 추천 0 | 조회 38
자유시간 2020.12.03 0 38
1605 함수/공식
Index / Mach 함수 조합의 사용 (3)
zzanginb**** | 2020.12.02 | 추천 0 | 조회 54
zzanginb**** 2020.12.02 0 54