excel이 word-vba의 편집 모드에 있는지 알아보십시오

Question

excel이 편집 모드인지 확인하려면이 thread을보고 수정하려고 시도했지만 Excel이 있으면 작동하지 않습니다

'********************************************************* 
'********* define if we need to close excel after sub is done 
'*********************************************************** 
Public Function setExcelObject(ByRef oXLApp As Object) As Boolean 
    On Error Resume Next 

    Set oXLApp = GetObject(, "Excel.Application") 
    If oXLApp Is Nothing Then 
     Set oXLApp = CreateObject("Excel.Application") 
    End If 

    setExcelObject = IsInEditMode(oXLApp) 

End Function 


Public Function IsInEditMode(ByRef exapp As Object) As Boolean 
     If exapp.Interactive = False Then 
      IsInEditMode = False 
     Else 
      On Error GoTo terminate 
       exapp.Interactive = False 
       exapp.Interactive = True 

       IsInEditMode = False 

     End If 
     Exit Function 

terminate: 
     IsInEditMode = True 
     Exit Function 

    End Function 

참고 : 그것은 또한에 있음을 알아 내기 위해 끔찍한 긴 (15 초)을 소요 편집 모드에서 다음을 실행 한 후 종료 편집 모드는 여전히 편집 모드 말한다 다시 실행 편집 모드 ...

Answer 1

다음은 작동 코드입니다.

나는 다음과 같은 몇 가지 절차에서 호출 16,

'********************************************************************** 
'********* See if we can open excel, true is Yes we can work with excel 
'********************************************************************** 
Public Function setExcelObject(ByRef oXLApp As Object) As Boolean 
    On Error Resume Next 

    Set oXLApp = GetObject(, "Excel.Application") 
    If oXLApp Is Nothing Then 
     Set oXLApp = CreateObject("Excel.Application") 
    End If 

    setExcelObject = Not IsInEditMode(oXLApp) 

    If setExcelObject = False Then Set oXLApp = Nothing 

End Function 

' ***************************************************************** 
' **************** Check if excel is in edit mode **************** 
'***************************************************************** 
Public Function IsInEditMode(ByRef exapp As Object) As Boolean 
      On Error GoTo terminate 
       exapp.Interactive = False 
       exapp.Interactive = True 

       IsInEditMode = False 

     Exit Function 
terminate: 
     IsInEditMode = True 
     Exit Function 

    End Function 

' ************************************************************* 
' *************** Check if excel is open, true, means we should not close excel after we are done..... 
'***************************************************************** 
Function ExcelOpen() As Boolean 
    ExcelOpen = FindWindow("XLMAIN", vbNullString) 
End Function 

위의 코드 :

' Get excel object 
If Not FileHandling.setExcelObject(oXLApp) Then 
    failMessage = "You are editing a cell in excel, stop doing that!" 
    GoTo terminate 
End If 

' check if we need to close after 
closeExcelMy = FileHandling.ExcelOpen 

'See if we can open workbook 
If Not FileHandling.GetWorkbook(wbName, oXLApp, xlApp) Then 
    failMessage = "Failed to open workbook" 
    GoTo terminate 
End If 

oXLApp.Visible = True