i nomi eliminati in un file Wbk esistono ancora e fanno riferimento a percorsi inesistenti, lento Excel

Question

Nella Guida VBA per la proprietà RefersTo, forniscono questo esempio di elencazione di tutti i nomi in un Wkb (formattato in modo da poterlo eseguire com'è)

Sub showNames()'from VBA Help for "RefersTo" 
    Dim newSheet As Worksheet 
    Set newSheet = Worksheets.Add 
    Dim i As Long, nm As Name 
    i = 1 
    For Each nm In ActiveWorkbook.Names 
    newSheet.Cells(i, 1).Value = nm.Name 
    newSheet.Cells(i, 2).Value = "'" & nm.RefersTo 
    i = i + 1 
    Next 
    newSheet.Columns("A:B").AutoFit 
End Sub 

Quando lo eseguo nel mio progetto corrente, vengono visualizzati molti nomi che pensavo fossero lontani. Ma qui sono ancora in giro e si riferiscono a luoghi che non esistono più. Penso che questo sia ciò che sta rallentando il mio sistema e mi piacerebbe sbarazzarmi di quei Nomi, ma non appaiono nella finestra Define Name quindi dove li trovo?

modifica: Significa che l'elemento Collegamenti è disattivato per questo WBK.

Answer 1

- Risposta Aggiornato -

Dal momento che si conosce il i nomi degli intervalli non validi ma non possono visualizzarli in Gestione nomi, è possibile provare a eliminarli manualmente dalla finestra Immediata VBA. Il nome assegnato GrPix!patternListRange indica un nome di foglio di lavoro così si dovrebbe essere in grado di eliminarla digitando

ActiveWorkbook.Names("GrPix!patternListRange").Delete 

o

Sheets("GrPix").Names("patternListRange").Delete 

nella finestra immediata

---

risposta originale

Have yo hai provato a cancellare i nomi non validi tramite codice? vale a dire

For Each nm In ActiveWorkbook.Names 
    If InStr(nm.RefersTo, "OldFileName.xls") > 0 Then 
     nm.Delete 
    End If 
Next nm 

Answer 2

Update

opzione 1
Un manual method per cancellare i nomi corrotti utilizzando R1C1 (posso ricordare JKP affermando su un altro forum doveva codice per fare questo, ma lui non era disposta a fornire gratuitamente)

1. Selezionare Strumenti, Opzioni e fare clic sulla scheda Generale.
2. Fare clic sulla casella di controllo accanto a "Stile di riferimento R1C1", in modo da modificare l'impostazione corrente.
3. Premere OK.
4. Excel ti chiederà di cambiare il nome di qualsiasi nome (in tutte le cartelle di lavoro aperte!) Che contiene caratteri non validi.
5. Selezionare Inserisci, nome, definire per eliminare i nomi appena rinominati.
6. Imposta lo stile di riferimento R1C1 come preferisci usando Strumenti, Opzioni, Generale.

opzione 2
Chris Neilsen postato in Any chance to delete programatically corrupt ranged names (with spaces) in Excel (2007/2010)

Ma, ecco una possibile alternativa: SaveAs la cartella di lavoro come un .xlsm Si dovrebbe ottenere una finestra lamentano nomi non validi, con un'opzione da rinominare e un pulsante Ok a tutti. Una volta salvato, chiudi e riapri il file , Salva con nome.xls e si dovrebbe essere pronti per partire

Initial Post
Scarica Name Manager che è il componente aggiuntivo distinguersi da Jan Karel Pieterse e Charles Williams per la gestione dei nomi

Sarà gestire nomi che

• ora errore fuori come gli intervalli sono stati cancellati (il tuo problema),
• link ad altre cartelle di lavoro,
• ora sono corrotti

Plus convertirà nomi globali per i nomi dei fogli locali, e viceversa, e così via

Answer 3

Qui ci sono due soluzioni che possono funzionare per gli altri alla ricerca su questo argomento, ma questi ancora non risolvono il mio particolare cartella di lavoro.

Sto ancora cercando.

Si tratta di Aaron Sangue e mostra il metodo R1C1 citato da brettdj:

Sub RemoveDemonLinks() 
    Dim wbBook As Workbook 
    Dim nName As Name 
    Dim i  As Long 

    Set wbBook = ActiveWorkbook 

    i = 0 
    If wbBook.Names.Count > 0 Then 
     With Application 
     .ReferenceStyle = xlR1C1 
     .ReferenceStyle = xlA1 
     End With 

    For Each nName In wbBook.Name 
     If InStr(nName.RefersTo, "#REF!") > 0 Then nName.Delete 
     i = i + 1 
    Next nName 

    If i > 0 Then MsgBox i & " corrupted names was deleted from " & wbBook.Name 
    End If 
End Sub 

Questo è da MS Help

' Module to remove all hidden names on active workbook 
    Sub Remove_Hidden_Names() 

    ' Dimension variables. 
    Dim xName As Variant 
    Dim Result As Variant 
    Dim Vis As Variant 

    ' Loop once for each name in the workbook. 
    For Each xName In ActiveWorkbook.Names 

     'If a name is not visible (it is hidden)... 
     If xName.Visible = True Then 
      Vis = "Visible" 
     Else 
      Vis = "Hidden" 
     End If 

     ' ...ask whether or not to delete the name. 
     Result = MsgBox(prompt:="Delete " & Vis & " Name " & _ 
      Chr(10) & xName.Name & "?" & Chr(10) & _ 
      "Which refers to: " & Chr(10) & xName.RefersTo, _ 
      Buttons:=vbYesNo) 

     ' If the result is true, then delete the name. 
     If Result = vbYes Then xName.Delete 

     ' Loop to the next name. 
    Next xName 
End Sub