Come liberarsi di "Copia di"

Anna Lea ha una cartella di lavoro di sola lettura che usa come modello per un rapporto quotidiano che crea. Il nome del file è piuttosto lungo, e termina in 20507xx. Quando doppio clic sulla cartella di lavoro, si apre e mostra che è di sola lettura. Fa i suoi cambiamenti, e quindi utilizza Salva con nome. Poiché Excel riconosce che il file è di sola lettura, suggerisce un nuovo nome di file che è costituito da quello vecchio con le parole "Copia di" come un prefisso. Anna vuole sbarazzarsi del "copia di" in modo che tutto quello che deve fare è modificare la parte "xx" del nome del file per creare relazione del giorno.

La "copia di" verbosità viene aggiunto automaticamente da Excel. Se si utilizza Salva con nome, non vi è alcun modo per modificare questo senza utilizzare una macro per controllare il processo di salvataggio. La seguente macro, salvata come parte dell'oggetto ThisWorkbook, mostra come questo può essere fatto.

Private Sub Workbook_BeforeSave (ByVal SaveAsUI _
Come booleano, Cancel As Boolean)
Dim sTemp As String
Dim Scheck As String
Scheck = "xx.xls"

Se SaveAsUI Poi
sTemp = ThisWorkbook.Name
Se Destro (sTemp, Len (Scheck)) = Scheck Poi
sTemp = Left (sTemp, Len (sTemp) - Len (Scheck))
sTemp = sTemp & Format (Ora, "dd") & ".xls"
sTemp = ThisWorkbook.Path & "/" & sTemp
ThisWorkbook.SaveAs Nome file: = sTemp, _
FileFormat: = xlNormal
Cancel = True
End If
End If
End Sub

I primi macro verifica se la finestra di dialogo Salva con nome sta per essere visualizzato. Se lo è, allora il nome della cartella di lavoro viene assegnato alla variabile sTemp. Questo nome viene controllato per verificare se gli ultimi sei personaggi sono "xx.xls" (dalla variabile Scheck). Se lo sono, allora la cartella di lavoro si presume essere quello in cui il nome deve essere cambiato.

Prima i caratteri "xx.xls" (o quello che avete assegnato a Scheck) vengono rimossi dalla fine del nome della cartella di lavoro. Poi la data di oggi (due cifre, per il giorno del mese) viene aggiunto al nome del file, seguito dal suffisso ".xls". Infine, la cartella di lavoro viene salvata con questo nome di file di nuova costruzione. La bandiera Annulla è impostata su true in modo che la finestra di dialogo Salva con nome non viene visualizzato.

Si noti che il nome non è mai controllato per la verbosità "Copia". Il motivo di ciò è semplice: La formulazione non viene aggiunto all'inizio del nome del file fino alla effettiva Salva Come si visualizza la finestra di dialogo. Prima di quel momento (quando questo gestore di eventi è in esecuzione) il nome della cartella di lavoro rimane invariato.

ExcelTips è la vostra fonte per la formazione Microsoft Excel conveniente. Questo suggerimento (3064) si applica a Microsoft Excel 97, 2000, 2002, e 2003.