커뮤니티 - 자유게시판

탐색기로 엑셀을 Open한 상태에서 비주얼베이직 프로그램에서 동명의 파일을 Open할때

아롱다롱
  • 작성일
    2024-05-27
  • 조회수
    603
엑셀파일(고객관리.xlsx)을 탐색기로 Open 상태에서 비주얼베이직에서  xlBookG = xlApp.Workbooks.Open(strGPath & "\고객관리.xlsx", UpdateLinks:=3) 로 Open할때   If xlBookJ.ReadOnly Then 이 True가 되는데 이때 탐색기로 Open한 파일을 종료하고 비주얼베이직에서 Open한 파일만 사용하려면 어떻게 하는가요탐색기에서 Open한 엑셀파일(고객관리.xlsx)을 종료하는 방법이 필요합니다. 예)       Try                        '20231101            xlBookG = xlApp.Workbooks("고객관리.xlsx")    '고객관리파일을 연다.        Catch ex As Exception            Try                xlBookG = xlApp.Workbooks.Open(strGPath & "\고객관리.xlsx", UpdateLinks:=3)    '            Catch ex1 As Exception                strGPath = "E:\공유폴더\SW1004"                xlBookG = xlApp.Workbooks.Open(strGPath & "\고객관리.xlsx", UpdateLinks:=3)    '            End Try        End Try         If xlBookG.ReadOnly Then                       If MsgBox("다른 사용자가 이미 고객관리.xlsx를 사용중입니다. 종료하시겠습니까?" , vbYesNo, "알람") = vbYes Then                xlBookG.Close(False) : xlBookG = NothingExit Sub            End If        End If

댓글 0

탐색기로 엑셀을 Open한 상태에서 비주얼베이직 프로그램에서 동명의 파일을 Open할때 : 창업정보 포털 오늘의창업