Che significa questo errore?

[aggittoriu]

Ciao a tutti.

Fino a ieri funzionava tutto tranquillamente. Ora mi salta fuori questo errore
https://we.tl/t-aHVgyl5yJk
e mi si blocca excel. Dov'è il problema? Cliccando su debag, mi si seleziona in giallo a volte la riga Columns("AK:AN").ClearContents, altre volte la riga .Refresh BackgroundQuery:=False.

[m.paolo]

Il link non apre l'immagine

[aggittoriu]

Ciao Paolo. No. Ma la fa scaricare. Quel sito è cambiato. Volevo mettere l'immagine già visibile nel post, ma non so come si fa.

[m.paolo]

Clicca su Rispondi -> Invia allegato -> Scegli il file -> trova l'immagine -> Aggiungi file -> Invia.

[aggittoriu]

E dove si trova "Invia allegato"?

Mi sa che faccio prima a sciverlo qui direttamente.

La macro è questa

Codice: Seleziona tutto

Columns("AK:AN").ClearContents

   MyConn = "URL;" _
& Range("CI33")

With ActiveSheet.QueryTables.Add(Connection:=MyConn, _
Destination:=Range("AK1"))

.Name = "willy"
.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = False
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
'.WebTables = "1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20"
.WebSelectionType = xlEntirePage
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
'Columns(9).NumberFormat = "@"

Call Rimuovi_connessioni

Il messaggio d'errore invece è questo

Codice: Seleziona tutto

Errore di run-time '-2147417848 (80010108)':

Errore di automazione
L'oggetto invocato si è disconnesso dai client corrispondenti.

[Anthony47]

1004 e' l'errore piu' comune che si verifica col vba, difficile farsi un'idea
Come lanci la macro? Sei sicuro che in quel momento ci sia un foglio Attivo? (se usi un pulsante presente sul foglio dovresti essere sicuro)
Cosa c'e' dentro Call Rimuovi_connessioni? (vorrei essere sicuro che rimuove la connessione creata e non si accumulino)
Si puo' avere l'url di almeno 1 connessione con cui hai il problema?
Ma il problema e' sistematico oppure va e viene?
Col comando Menu /Formule /Gestione Nomi, quanti "Nomi" vedi presenti?

Comunque invece di Columns("AK:AN").ClearContents prova usando

Codice: Seleziona tutto

Range("AK:AN").ClearContents

[m.paolo]

E dove si trova "Invia allegato"?

[aggittoriu]

Sto provando col ripristino configurazione di sistema. Ne avrò per molto. Appena potrò usare il PC, risponderò a tutto.

[aggittoriu]

Ok. Sono riuscito a riaccendere il pc. Dopo aver provato col ripristino configurazione di sistema, il ripristino è fallito e non riuscivo più neanche ad avviare il sistema. Poi per farla breve, sono riuscito a rifare il ripristino configurazione di sistema, che mi ha riportato alla situazione prima del primo ripristino. E ora almeno riesco ad accendere il pc.

Per rispondere alle vostre domande:
- invia allegato non compare da nessuna parte
- La macro la lancio sia con un pulsante, sia da visul basic, ma non cambia niente.
- Call Rimuovi_connessioni l'ho sempre usato e ha sempre funzionato. Comunque c'è questo:

Codice: Seleziona tutto

Sub Rimuovi_connessioni()
   
    On Error Resume Next
     
  Const s As String = "willy"

  Dim nm As Name
 
  For Each nm In ActiveWorkbook.Names
    If nm.Name Like "*" & s & "*" Then nm.Delete
  Next
 
  Set nm = Nothing
 
Dim e As Integer

For e = ActiveWorkbook.Connections.Count To 1 Step -1
ActiveWorkbook.Connections(e).Delete
Next

End Sub

- un url: https://www.betexplorer.com/football/re ... =01&day=19
- Ormai il problema è sistematico.
- Vedo 5 nomi, che ci devono essere, perchè con quelli mi costruisco i grafici
- e mettendo Columns("AK:AN").ClearContents, non cambia niente.

Mi sa che è sempre la stessa storia. Il pc funziona regolarmente. Poi Excel comincia ad avere problemi. Io vengo qui a chiedere come mai excel ha problemi. Poi scopro che i problemi ce li ha il pc e non excel. E quindi vi ho fatto perdere tempo, perchè non potete aiutarmi.

Sorry

[m.paolo]

Poi scopro che i problemi ce li ha il pc e non excel. E quindi vi ho fatto perdere tempo, perchè non potete aiutarmi.

Apri un nuovo topic e specifica i problemi che ha il pc. Metti più informazioni possibili.

[aggittoriu]

Apri un nuovo topic e specifica i problemi che ha il pc. Metti più informazioni possibili.

Anche volendo... Non capirei niente di quello che mi verrebbe consigliato. Ora sono indeciso se andare all-in o no. Provare con un punto di ripristino antecedente a quello di ieri. Se mi va male però, ho paura che non riuscirò più ad accendere il PC.

[Anthony47]

Potrebbe essere piu' semplice disinstallare Office e reinstallarlo daccapo; che sia risolutivo non lo so...

[aggittoriu]

Office era ià installato nel pc quando l'ho comprato. Non ho nessun dischetto ne niente altro e non saprei come reinstallarlo.

Ho deciso. Vado all-in. Mo' mi metto il pc in camera e riprovo con il ripristino confiurazione di sistema. Se va, va. Speriamo!

[Anthony47]

Beh, se pero' non hai una licenza diventa difficile pensare che debba funzionare sempre...

[aggittoriu]

A me l'hanno venduto così il pc.

Comunque, il punto di ripristino antecedente non c'è più. Non mi resta che aspettare il prossimo aggiornamento di windows e sperare che tutto si risolva.

Nel frattempo, c'è un altro messaggio che mi rompe e compare ogni volta che attivo le macro.

Codice: Seleziona tutto

La cartella di lavoro contiene uno o più collegamenti che non possono essere aggiornati

Per modificare l'origine dei collegamenti o tentare nuovamente di aggiornare i valori, scegliere Modifica collegamenti.
Per mantenere invariati i collegamenti, scegliere Continua


Se io clicco su Modifica collegamenti, mi appare una finestra con nome di altri file e dove mi si dice

Codice: Seleziona tutto

Tipo--> Foglio di lavoro   Aggiorna--> A   Stato--> Errore: origine non trovata.

Di questo, come me ne libero?

[m.paolo]

Di solito, si ha modo di riportare il pc all'origine come appena acquistato cosi da resettarlo e partire senza errori. In questo caso meglio fare il backup dei dati personali.

[Anthony47]

Di questo, come me ne libero?

Oltre a "Modifica collegamenti" dovresti avere anche l'opzione "Interrompi collegamento", che congela i dati ai valori che vedi.
A proposito, quale versione di Office hai installata?

[aggittoriu]

Oh, finalmente! Non capivo il messaggio di avvertimento e non ci cliccavo.

Ho Office 2007