Error 1004 Workbook Open VBA EXCEL

[rodrigo_m_almeida]

Good afternoon people
Could anyone help me with this?
I'm trying to do if you try to open worbooook that doesn't exist
jump to the next, using my on error goto

On Error GoTo PULAR
Workbooks.Open Filename:=xPathName & xFileName
...
...
...
PULAR: 
End Sub

Does not work
Continues to display error message
And I can't solve it
ERROR 1004 , EXCEL

 

[6StringJazzer]

Please show all your code. What line of code is highlighted in debug mode when the error occurs?

 

[Joe4]

Does your "xPathName" variable have a slash at the end of it?

If not, you may need to use:

Workbooks.Open Filename:=xPathName & "\" & xFileName

 

[rodrigo_m_almeida]

Please show all your code. What line of code is highlighted in debug mode when the error occurs?

My code is too big
I want to handle this error
This line marked

 

[rodrigo_m_almeida]

Does your "xPathName" variable have a slash at the end of it?

If not, you may need to use:

Workbooks.Open Filename:=xPathName & "\" & xFileName

Yes, there is
The File That Doesn't Exist
On purpose
...
I want to handle this error
Sending to another line I have
to keep running

 

[Joe4]

If you want to ignore the error, just put this line of code before it:

On Error Resume Next

Just be sure to add this line of code back after it to set it back so you don't accidentally suppress other errors:

On Error GoTo 0

 

[rodrigo_m_almeida]

If you want to ignore the error, just put this line of code before it:

On Error Resume Next

Just be sure to add this line of code back after it to set it back so you don't accidentally suppress other errors:

On Error GoTo 0

I tried to do this
But the error message still persists
is being displayed

Private Sub TESTE()
    ' Optimize
        xApplicationOptimize True
    ' Browse Folder 02
        Set FileDialog = Application.FileDialog(msoFileDialogFolderPicker)
        FileDialog.Title = "Selecione a pasta: FINAL"
        If FileDialog.Show = -1 Then xPathName = FileDialog.SelectedItems(1) Else Exit Sub
        If Right(xPathName, 1) <> "\" Then xPathName = xPathName + "\"
    ' Browse File 01
        With Application.FileDialog(msoFileDialogFilePicker)
            .AllowMultiSelect = False
            .Title = "Selecione o arquivo: BASE_J"
            .InitialFileName = "*.xlsx"
    '  Search File 01
            If .Show() Then xFileName = .SelectedItems(1) Else Exit Sub
        End With
    ' Open File 01
        Workbooks.Open Filename:=xFileName
        Set xOldWB = ActiveWorkbook
        Application.WindowState = xlMinimized
    ' ?
        xL = 2
        Do While Not IsEmpty(xOldWB.Sheets(1).Cells(xL, 1))
NOVAMENTE:
    ' Variables
        xFalse = xOldWB.Sheets(1).Cells(xL, 2)
        xTrue = xOldWB.Sheets(1).Cells(xL, 3)
        xLine = xOldWB.Sheets(1).Cells(xL, 4)
    ' Check_01
        If xTrue = "" Then
            xL = xL + 1
            GoTo PULAR
        End If
        If xOldWB.Sheets(1).Cells(xL, 1) = xOldWB.Sheets(1).Cells(xL - 1, 1) And xTrue <> "" Then GoTo CONTINUA
    ' Search Files 02
        xFileName = "FINAL_" & Format(xOldWB.Sheets(1).Cells(xL, 1), "YYYY_MM_DD") & ".xlsx"
    ' Open File 02
        On Error GoTo PULAR '  DONT WORK <<<
        Workbooks.Open Filename:=xPathName & xFileName ' MY PROBLEM <<< WHEN THE FILE DOES NOT EXIST
        Set xNewWB = ActiveWorkbook
        Application.WindowState = xlMinimized
    ' Change
CONTINUA:
        With ActiveSheet
            .Rows(1).Insert
            .AutoFilte1rMode = False
                With Range("A1", Range("O" & Rows.Count).End(xlUp))
                    .AutoFilter Field:=2, Criteria1:=xFalse
                    .AutoFilter Field:=4, Criteria1:=xLine
                     Range("B1", Range("B" & Rows.Count).End(xlUp)) = xTrue
                End With
    ' Disregard
            .AutoFilterMode = False
                With Range("B1", Range("B" & Rows.Count).End(xlUp))
                    .AutoFilter 1, "N/A"
                    .Offset(1).SpecialCells(12).EntireRow.Delete
                End With
            .AutoFilterMode = False
            .Rows(1).Delete
        End With
    ' Next file
        xL = xL + 1
    ' Check_02
        If xOldWB.Sheets(1).Cells(xL, 1) = xOldWB.Sheets(1).Cells(xL - 1, 1) And xTrue <> "" Then GoTo NOVAMENTE
    ' Save File 02
        xNewWB.Save
    ' Close File 02
        xNewWB.Close
PULAR:
        Loop
    ' Save File 01
        'xOldWB.Save
    ' Close File 01
        xOldWB.Close
    ' Optimize
        xApplicationOptimize False
End Sub

This is my full code

 

[Joe4]

I tried to do this
But the error message still persists
is being displayed

Works fine for me when I added those lines, but then I don't know what the rest of your code is doing.
Without seeing the rest of your code, I am afraid it is going to be very difficult to help you.

 

[rodrigo_m_almeida]

Works fine for me when I added those lines, but then I don't know what the rest of your code is doing.
Without seeing the rest of your code, I am afraid it is going to be very difficult to help you.

it worked that way
That said,
Problem is that I was debugging on f8... haha

It just didn't solve
Why can't I let the code continue to run
needed to jump to another line,
when it gives error (use the 'GoTo')