커뮤니티 - 자유게시판
탐색기로 엑셀을 Open한 상태에서 비주얼베이직 프로그램에서 동명의 파일을 Open할때
아롱다롱
-
- 작성일
- 2024-05-27
-
- 조회수
- 603
-
4
엑셀파일(고객관리.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
탐색기로 엑셀을 Open한 상태에서 비주얼베이직 프로그램에서 동명의 파일을 Open할때 : 창업정보 포털 오늘의창업
댓글 0