esempio: ciclo che contolla la colonna A se ci sono valori
Do While Workbooks("file").Sheets("scheda").Range("A" & riga) <> ""

riga = riga +1

• .Open Filename
• Workbooks.Open Filename:="C:\...\...xls" apre un file Excel
• Workbooks.Open Filename:="C:\...\...xls", ReadOnly:=True apre un file Excel in solo lettura


• Workbooks.Open Filename:="C:\...\...xls", WriteResPassword:="password" apre un file Excel protetto da password in lettura


• Workbooks.Open Filename:="C:\...\...xls", UpdateLinks:=False apre un file Excel disattivando l'aggiornamento dei link
per disattivare la fiestra inserire anche Application.AskToUpdateLinks


• Workbooks.Open Filename:=ActiveWorkbook.Path & "\...xls" apre un file Excel nella stessa directory




• .Add crea un nuovo file




• .Close chiude un file
Workbooks("nome file.xls").Close SaveChanges:=False chiude senza salvataggio del file
da errore se il file non é aperto




• .ChangeFileAccess Mode:=... cambia lo stato del file aperto
(vedi comandi - file - modifica accesso file)
da errore se il file non é aperto

• salva
• .Save salva il file senza chiedere nulla


• .Saved = True in chiusura del file non salva il file anche se ci sono state modifiche
questo serve nella macro di chiusura del file se si vuole non far salvare il file



• .SaveAs Filename:=nomefile.xlsx salva il file con il nome nella setssa directory(metti sempre l'estensione)
• .SaveAs Filename:=path\nomefile.xlsx salva il file con il nome nella directroy specificata (metti sempre l'estensione)


• .SaveAs Filename:=nomefile.xlsx, fileformat:=XX salva il file con il nome indicando inoltre il tipo di file

fileformat: (elenco completo)

• 51 → .xlsx (XML senza macro)
• 52 → .xlsm (XML con macro)
• 50 → .xlsb (binario con macro)
• 56 → .xls (formato Excel 97 - 2003)
• 6 → .csv (file CSV con , come separatore)
• 21 → .txt (file txt MSDOS)


se il file esiste già allora comparirà la finestra di allert di Excel che chiede conferma se sovrascrivere o no il file
per rimuovere questa finestra occorre disabilitare l'alert

Application.DisplayAlerts = False




• .Close chiude il file (per chiudere Excel vedi Application Quit)

scherzo da fare: chiude il file al cambio della selezione ma attendi qualche secondo
Private Sub Worksheet_SelectionChange(ByVal target As Range) macro che si attiva variando la selezione nel foglio
Dim Fine, Start dichiaro le variabili
Fine = 5 scelgo quanti secondi prima della ciusura forzata
Start = Timer imposto alla variabile start l'ora di inizio
Do While Timer < Start + Fine inizia il cilo del conto alla rovescia

DoEvents lascio usare Excel durante il ciclo

Loop fine del ciclo
ActiveWorkbook.Saved = True non salvare per non perdere tempo
ActiveWorkbook.Close autochiusura
End Sub

esempio: controlla se il file test.xlsx é aperto ed in caso lo chiude
On Error Resume Next
If Not Workbooks("test.xlsx") Is Nothing Then Workbooks("test.xlsx").Close
On Error Goto 0

macro bomber: chiude il file se oggi é maggiore di una certa data
occorre passare prima per una variabile dichiarata data
Dim scadenza As Date
scadenza = "20/01/2015"
If Date > scadenza Then ActiveWorkbook.Close data formato corretto





• .FullName restituisce il nome del file completo della path
• .Name restituisce solo il nome del file
Range("A1") = ActiveWorkbook.Name scrive il nome del file nella cella A1

non ho trovato una funzione specifica per estrarre l'estesione del file
si usa Mid() e InStrRev
Mid(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, "."), 100)




• .Path restituisce la path del file
• .PathSeparator restituisce il carattere usato dal sistema come separatore di directory

esempio: indico il nome del file con la path
ActiveWorkbook.Path & Application.PathSeparator & "nomefile.xls"

e come scrivere un Windows ActiveWorkbook.Path & "/nomefile.xls" ma così fuziona in tutti i sistemi





• .ReadOnly restituisce lo status del file se in lettura o meno (vedi metodi di blocco / protezione / stato)
true → file in solo lettura
false → file modificabile




• Len() restituisce la dimensione del file
vedi comandi stringa - cerca

esempio: salva il file se più piccolo di 10 MB
If Len(ActiveWorkbook.FullName) < 10000000 Then

ActiveWorkbook.Save

End If




• .ChangeFileAccess Mode:=... cambia lo stato del file aperto
(vedi comandi - file - modifica accesso file)
da errore se il file non é aperto




• .Count restuisce quanti file sono aperti nella sessione
tieni presente che Personal.xlsb si apre in automatico quindi sono sempre +1




• .RefreshAll aggiorna tutte le tabelle del file Excel
ActiveWorkbook.RefreshAll file attivo