Application.EnableEvents not working

[miketastic]

Hello,

I was using the following code successfully to disable the popup box asking if the user would like to overwrite the file of the same name. However, when I changed the Path to a location on a network drive (not only does the macro run painfully slow), the application.enableevents stopped working. It doesn't disable anything and I changed nothing about the code other than the path from "P:" to "\\10.1.555.555\stuff"

I'm still pretty new at this stuff, I'm sure it's something I'm doing wrong. Thanks for you help!

Dim MyPath As String
Dim MyFileName As String
MyPath = "P:"
MyFileName = "CSVUPLOAD"
If Not Right(MyPath, 1) = "\" Then MyPath = MyPath & "\"
If Not Right(MyFileName, 4) = ".csv" Then MyFileName = MyFileName & ".csv"
Sheets("CSV UPLOAD").Copy
Application.EnableEvents = FalseWith ActiveWorkbook
    .SaveAs Filename:=MyPath & MyFileName, FileFormat:=xlCSV, CreateBackup:=False
    .Close False
End With
Application.EnableEvents = True

 

[JoeMo]

Hello,

I was using the following code successfully to disable the popup box asking if the user would like to overwrite the file of the same name. However, when I changed the Path to a location on a network drive (not only does the macro run painfully slow), the application.enableevents stopped working. It doesn't disable anything and I changed nothing about the code other than the path from "P:" to "\\10.1.555.555\stuff"

I'm still pretty new at this stuff, I'm sure it's something I'm doing wrong. Thanks for you help!

Dim MyPath As String
Dim MyFileName As String
MyPath = "P:"
MyFileName = "CSVUPLOAD"
If Not Right(MyPath, 1) = "\" Then MyPath = MyPath & "\"
If Not Right(MyFileName, 4) = ".csv" Then MyFileName = MyFileName & ".csv"
Sheets("CSV UPLOAD").Copy
[COLOR="#FF0000"]Application.EnableEvents = FalseWith ActiveWorkbook[/COLOR]
    .SaveAs Filename:=MyPath & MyFileName, FileFormat:=xlCSV, CreateBackup:=False
    .Close False
End With
Application.EnableEvents = True

The line highlighted in red will prevent enableevents from working. If that's really the way it appears in your code put a line break before "With".

 

[miketastic]

No, I pasted it wrong. The line break is correct in my code.

 

[RickXL]

Hi,

What can happen with EnableEvents is that they can be disabled and the macro can fail before the re-enabling takes place. I usually keep a macro the just re-enables the events handy while I am debugging a macro so that I can re-enable them if that happens.

Also, it may be worthwhile adding an ON ERROR statement that skips to the re-enable command in case of an error.

Sub myMacro()

    On Error GoTo ReEnable
    Application.EnableEvents = False

    '
    ' More code goes here
    '

ReEnable:
    Application.EnableEvents = True
    
End Sub