My code line close Excel App

[drom]

Hi and thanks in advance!

I am having problems with the following code and I do not anderstand why
'wFxN is a file (eg: Pl_Proyect_V06.xlsm) I am opening as read only and I would like to close, and them activate ThisWorkbook

Application.Wait Now + TimeValue("00:00:03")
ThisWorkbook.Activate   'Some times I am not able to activate ThisWorkbook unless I go step by step using F8
ThisWorkbook.Activate   'Does no t matter if I put 2 times, some times  ThisWorkbook is not the active book
Application.Wait Now + TimeValue("00:00:01")
Application.DisplayAlerts = False
If wFxN <> "" Then
Workbooks(wFxN).Close SaveChanges:=False             
  'HERE this line closes EXCEL app and reopens it
  'If I use F8 excel goes down, quits every book opened and the app is close
  'and a few seconds after Excel opens again a normal book, (book1)
End If

What am I missing ?

 

[rlv01]

I'm assuming wFxN is a string variable, but perhaps something like this.

    Dim WB As Workbook
   
    DoEvents
    ThisWorkbook.Activate   'Some times I am not able to activate ThisWorkbook unless I go step by step using F8
    DoEvents
   
    If ActiveWorkbook.Name <> ThisWorkbook.Name Then
        MsgBox "Error - cannot activate workbook '" & ThisWorkbook.Name & "'", vbCritical
        Exit Sub
    End If
   
    On Error Resume Next
    Set WB = Application.Workbooks(wFxN)
    On Error GoTo 0
   
   
    Application.DisplayAlerts = False
    If Not WB Is Nothing Then
        WB.Close SaveChanges:=False
    Else
        MsgBox "Error -  Workbook '" & wFxN & "' does not appear to be open", vbOKOnly Or vbCritical, Application.Name
        Exit Sub
    End If

 

[drom]

I'm assuming wFxN is a string variable, but perhaps something like this.

    Dim WB As Workbook
  
    DoEvents
    ThisWorkbook.Activate   'Some times I am not able to activate ThisWorkbook unless I go step by step using F8
    DoEvents
  
    If ActiveWorkbook.Name <> ThisWorkbook.Name Then
        MsgBox "Error - cannot activate workbook '" & ThisWorkbook.Name & "'", vbCritical
        Exit Sub
    End If
  
    On Error Resume Next
    Set WB = Application.Workbooks(wFxN)
    On Error GoTo 0
  
  
    Application.DisplayAlerts = False
    If Not WB Is Nothing Then
        WB.Close SaveChanges:=False
    Else
        MsgBox "Error -  Workbook '" & wFxN & "' does not appear to be open", vbOKOnly Or vbCritical, Application.Name
        Exit Sub
    End If

I am having the same problems (I am confused)
Anyway Thanks

 

[rlv01]

I am having the same problems

Did you try the code I posted? I ask because if you did have the same problems, you should get an error message.

Could you be more specific about what is not working and how it is not working?

 

[drom]

Did you try the code I posted? I ask because if you did have the same problems, you should get an error message.

View attachment 105253

Could you be more specific about what is not working and how it is not working?

The macro goes with any message box, (goes OK until):
WB.Close SaveChanges:=False
but here excel turned off and opens again

This is why I am so confused