Not able to avoid warning message

[renatoab]

Hi

I'm running a macro that gets a file from the internet. My code is like this: (i got it recording the macro)

With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;https:// here my url..." _
        , Destination:=Sheets("mysheet").Range("$A$1"))


        .Name = "the name here"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileOtherDelimiter = "},{"
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
        
    End With

It works most of the time, but sometimes seems that the file is not available, and I get a warning message, and the macro stops. I want to treat this and avoid warning message, but nothing works.

I tried
Application.DisplayAlerts = False
also
On Error Resume Next
On Error goto somewhere


but it always show the warning message that the file was not found, and my macro stops.

Is there anything else to do in order to avoid the message?

Thank you

 

[wigi]

With On Error Resume Next, I can suppress the message (as it should do):

Sub test()

    On Error Resume Next
    
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;https:// here my url..." _
        , Destination:=Sheets("mysheet").Range("$A$1"))




        .Name = "the name here"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileOtherDelimiter = "},{"
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
        
    End With


End Sub

 

[renatoab]

That would probably happen. Because the error would be probably other.
But, as I said, my code is like this, but not exactly this. There is a url and a name field.
I`ve tried some solutions, like testing if url exists before that command. It seems to help, but I`m not sure yet.
I`d appreciate other solutions.

 

[wigi]

But, as I said, my code is like this, but not exactly this.

Then why don't you post the actual code ?

It seems to help, but I`m not sure yet.

Don't you see if it works or not (after extensive testing)?