Runtime Error 1004

Question

Ciao a tutti,

ho da poco migrato il mio office aziendale dal 2007 al 2016.

Ho una routine Excel che ora non funziona più.

Il frammento di codice è:

objXL.Sheets.Add.Name = "RIEPILOGO"

With objXL.ActiveSheet.QueryTables.Add(Connection:="URL;http://www.amvendors.com/vendors/ASN/Default.aspx", Destination:=objXL.ActiveSheet.Range("$A$1"))

    .Name = "TTT"           '"q?s=goog_2"

    .FieldNames = False

    .RowNumbers = True

    .FillAdjacentFormulas = False

    .PreserveFormatting = True

    .RefreshOnFileOpen = False

    .BackgroundQuery = True

    .RefreshStyle = xlInsertDeleteCells

    .SavePassword = False

    .SaveData = True

    .AdjustColumnWidth = True

    .RefreshPeriod = 0

    .WebSelectionType = xlSpecifiedTables

    .WebFormatting = xlWebFormattingNone

    .WebTables = "1,2"

    .WebPreFormattedTextToColumns = True

    .WebConsecutiveDelimitersAsOne = True

    .WebSingleBlockTextImport = False

    .WebDisableDateRecognition = False

    .WebDisableRedirections = False

    .Refresh BackgroundQuery:=True

End With

Il messaggio di errore che ricevo è:

Errore di run-time '1004':

Non è possibile aprire http://www.amvendors.com/vendors/ASN/Default.aspx. Collegamento ipertestuale interrotto.

Qualcuno potrebbe aiutarmi?

Grazie mille.

Answer 1

Ciao Giuseppe,

ho ancora il problema descritto sopra, qualcuno potrebbe suggerirmi una strada per risolverlo?

Credo sia qualche impostazione di excel ma non riesco a capire quale.

Come ti ho detto, a me il tuo codice funziona senza problema ma, per perseguire ulteriormente la ricerca di una risoluzione del tuo problema, ti chiederei gentilmente di rispondere alle seguente domande: 

• Quando riscontri il problema, quale riga di codice viene evidenziata in giallo?
• Avviando Excel come amministratore e quindi eseguendo la tua macro, riscontri sempre lo stesso problema?

===

Regards,

Norman

Answer 2

Ciao Giuseppe,

per il problema che stai riscontrando, ti posso consigliare di chiedere direttamente al forum di MSDNche, essendo un portale per sviluppatori, si occupa anche di Macro e potrebbero darti una mano.

Nel contempo ho trovato questo articolocon lo stesso errore che stai riscontrando, prova a dare un'occhiata e vedere se può essere d'aiuto.

Un saluto,

Ambra

Answer 3

Ciao,

ho ancora il problema descritto sopra, qualcuno potrebbe suggerirmi una strada per risolverlo?

Credo sia qualche impostazione di excel ma non riesco a capire quale.

Grazie.

Answer 4

Ciao,

ho già provato e il sito aperto da un browser funziona correttamente.

Il mio codice funzionava fino a quando ho utilizzato Excel 2007.

Dopo la migrazione al 2016 ha cominciato a darmi questo errore.

Answer 5

Ciao Giuseppe,

ho da poco migrato il mio office aziendale dal 2007 al 2016.

Ho una routine Excel che ora non funziona più.

Il frammento di codice è:

objXL.Sheets.Add.Name = "RIEPILOGO"

With objXL.ActiveSheet.QueryTables.Add(Connection:="URL;http://www.amvendors.com/vendors/ASN/Default.aspx", Destination:=objXL.ActiveSheet.Range("$A$1"))

Il messaggio di errore che ricevo è:

[cut]

Errore di run-time '1004':

Non è possibile aprire http://www.amvendors.com/vendors/ASN/Default.aspx. Collegamento ipertestuale interrotto.

Qualcuno potrebbe aiutarmi?

A me il codice funziona nel modo previsto e arrivo al log-ln:

Forse, al momento che hai eseguito il codice il sito non era disponible (down). Se riprovi, riscontri sempre lo stesso problema?

===

Regards,

Norman