DoEvents

Application.

• Application.Run "nome applicazione" esegue una applicazione esterna
utilizzato per esempio per eseguire le macro di altri file Excel aperti



• Application.Quit chiude Excel del tutto, non solo il file (vedi ActiveWorkbook per la gestione del salvataggio del file)



• Application.PrintOut stampa i file in uso



• Application.ScreenUpdating = True/False abilita o disattiva l'aggiornamento della schermata durante l'esecuzione di una macro



• Application.CutCopyMode = True/False abilita o disattiva modalita copia/incolla (per eliminare il tratteggio della cella copiata)



• Application.DisplayAlerts = True/False abilita o disattiva le finestre di allerta (per esempio tipo quella che chiede di cancellare una scheda)



• Application.EnableEvents = True/False abilita o disattiva le macro



• Application.AskToUpdateLinks = True/False abilita o disattiva la finestra che chiede l'aggiornamento dei link all'appertura del file
False → disattiva la finestra e aggiorna automaticamente i link
per evitare l'aggiornamento dei link va inserita l'opzione UpdateLinks:=False nel comando di apertura Workbooks.Open



• Application.Caption= "TESTO" personalizza la barra del titolo del file



• Application.Goto Reference:=Worksheets("").Range(""), scroll:=True ti fa andare nella scheda alla cella, setta anche lo scroll (attivo o disattivo)



• Application.Calculation = imposta il metodo di calcolo delle formule
diverso da .EnableCalculation che riguarda solo la scheda corrente o indicata


• Application.Calculation = xlAutomatic automatico (default): valore -4105



• Application.Calculation = xlManual manuale (occorre premere F9 per attivare il calcolo delle formule): valore -4135

se settato su manuale é possibile attivare o disattivare il cacolo automatico delle formule prima del salvataggio
• Application.CalculateBeforeSave = True/False




interrogazione stato
se si interroga il valore é possibile determianre lo status del foglio per il calcolo delle formule:

• -4105 automatico (default)
• -4135 manuale

esempio:
status = Application.Calculation
If status = -4105 Then MsgBox "automatico", Bottone + Icona, "Titolo"
If status = -4135 Then MsgBox "manuale", Bottone + Icona, "Titolo"




forzare calcolo delle formule
se il file é impostato in manuale é possibile eseguire il calcolo dei valori in alcuni punti del codice (é come premere F9 in Excel)
senza dover attivare il calcolo per tutto il file



• ricalcolo tutto il file
Application.Calculate
Calculate basta anche scrivere Calculate


• ricalcolo solo scheda inidcata
Worksheets("nome scheda").Calculate calcolo solo della scheda specifica





• Application.file Search
• .NewSearch utilizzato per ripristinare i criteri di ricerca predefiniti prima di iniziare una nuova ricerca.
• .LookIn = "X:\XXXX" indicare il percorso della cartella in cui cercare
• .SearchSubFolders = True istruzione per cercare in tutte le sottocartelle
• .file name = "*.*" per indicare il nome o estensione del file dacercare (si possono usare i caratteri Jolly)
• .file Type = indicare il tipo di file
• .Foundfile s.Count restituisce il numero dei file s trovati nel percorso scelto.
• .Foundfile s(NUMERO) restituisce il file trovato NUMERO



esempio: comando per aprire contemporaneamente più file Excel contenute in una determinata directory dell'hard-disk
Sub ApriTuttifile ()

With Application.file Search usiamo with per inglobare tutto nello stesso comando

.LookIn = "C:\Temp" percorso della cartella in cui cercare
.file name = "*.xls" se si sceglie di usare file Name per cercare file Excel
.file Type = msofile TypeExcelWorkbooks se si sceglie di usare la costante

If .Execute() > 0 Then se la ricerca dei file é superiore al numero zero si fornisce un messaggio con il numero dei file s trovati nel percorso scelto

MsgBox "Trovati " & .Foundfile s.Count & " file (s) xls."
For i = 1 To .Foundfile s.Count si inizia un ciclo For Next che partire dal primo file trovato e fino all'ultimo, (file contati con .Foundfile s.Count)

Workbooks.Open.Foundfile s(i) si aprono di seguito tutte le cartelle trovate, usando Workbooks.Open

Next i

Else MsgBox "Non ci sono file .xls" altrimenti si avvisa col messaggio che non ci sono i files richiesti
End If


End With

End Sub




• Application.FileDialog()
gestione finestra per la ricerca di file e directory, con apertura e salvataggi file



• Application.UserName
restituisce il nome del utente Excel (diverso dal nome utente Widnows - vedi variabili d'ambiente)