Aprire file (o cartelle di Excel) .XLS        (24/06/03)  

Aggiornamento 09/10/03  :  Aprire tutti i files .xls contenuti in una cartella.

Aggiornamento 02/06/05  :  Controllare se un  files .xls è già aperto. (e/o creare elenco nomi cartelle .xls aperte)

Sul sito esistono già suggerimenti per l'apertura di file .xls, anche nella sezione "le vs domande", ma visto che continuano ad arrivare richieste specifiche, dedichiamo una pagina all'argomento.

L'istruzione che serve all'uopo, è molto semplice:

Workbooks.Open Filename:="percorso e nome file", ReadOnly:=False

dove in "percorso e nome file" dovrete indicare in sequenza: l'unità, la cartella (directory), eventuali sottocartelle, nome del file completo di estensione, ed inserito come una stringa, tra doppi apici, ad esempio: "C:\Documenti\Ufficio\Clienti.xls"

Come si nota, il percorso che mira al file è inserito direttamente nell'istruzione e consente di aprire sempre e soltanto quel file. Come fare allora quando vogliamo cambiare il  file da aprire ? Imposteremo una variabile che di volta in volta rappresenti il nome di un file, e  richiameremo la variabile nell'istruzione vista sopra.

Per assegnare il nome del file da aprire alla variabile, potremo usare vari sistemi, vediamone alcuni, i più semplici:

• usare una cella del foglio di lavoro dove scrivere il SOLO nome (senza estensione, che sarà già presente nell'istruzione, dato che vorremo aprire solo file .xls). In questo modo, cambiando il nome, si aprirà quel file.

• usare una InputBox nella quale digitare il nome del file da aprire.

• creare una tabella con i nomi dei file che ci interessa aprire, assegnare al ListFillRange di una ComboBox i riferimenti alle celle che delimitano la tabella, ed assegnarle una cella di destinazione (LinkedCell) che restituisce di volta in volta il nome selezionato nella ComboBox (sto riferendomi alla ComboBox ActiveX presa NON da Moduli ma da Strumenti di controllo o Casella degli strumenti). La LinkedCell sarà assegnata alla variabile.

Vediamo gli esempi:

• Sub apritisesamo()
  Dim X As String
  X = "C:\Documenti\" & Range("A1").Value & ".xls"
  Workbooks.Open Filename:=X, ReadOnly:=False
  End Sub
  Commenti: dichiariamo la variabile X come stringa (testo), poi assegniamo alla X (tra doppi apici, rossi) il percorso del file, dove il solo nome del file viene "preso" dal valore contenuto in una cella (nell'esempio la A1) usando il concatenamento di stringa, cioè doppio apice(" verde), spazio, e commerciale(&), spazio, riferimento alla cella come valore, spazio, e commerciale (&), spazio, doppio apice(" verde). A questo punto, dopo .Open FileName:=  si scrive il nome della variabile X senza doppi apici, in quanto X è già comprensiva di doppi apici. Questo esempio è valido sia per il primo che per il terzo punto sopra citati. Ora vediamo con l'InputBox :

• Sub apritifile()
  Dim X As String
  nome = InputBox("Scrivi il nome del file da aprire")
  If nome = "" Then Exit Sub
  X = "C:\Excelweb\" & nome & ".xls"
  Workbooks.Open Filename:=X, ReadOnly:=False
  End Sub

• Commenti: in questo caso usiamo due variabili, la X di cui dichiariamo il Tipo, e "nome", che senza dimensionamento viene assunta come variabile di tipo Variant, e che serve a reperire il nome del file che scriveremo nella inputbox. Le altre cose che cambiano sono: l'aggiunta di una riga con la condizione che se non scriviamo niente nella inputbox, si esca senza generare errori, e la concatenazione della variabile "nome" al posto del riferimento ad una cella.
   

Queste istruzioni servono nel caso che i vari file a cui vogliamo accedere, siano tutti all'interno di una stessa cartella. Se dovessimo aprire file che possono essere su cartelle diverse, dovremo creare una variabile anche per il nome della cartella, con lo stesso sistema in modo da poter variare sia il nome cartella sia il nome file, e quindi, con l'uso di due celle, per reperire nome cartella (A1) e nome file (B1), diventa:

• Sub apritisesamo2()
  Dim X As String
  X = "C:\" & Range("A1").Value & "\" & Range("B1").Value & ".xls"
  Workbooks.Open Filename:=X, ReadOnly:=False
  End Sub

o con le inputbox:

• Sub apritifile2()
  Dim X As String
  cartella = InputBox("Scrivi il nome della cartella")
  If cartella = "" Then Exit Sub
  nome = InputBox("Scrivi il nome del file da aprire")
  If nome = "" Then Exit Sub
  X = "C:\" & cartella & "\" & nome & ".xls"
  Workbooks.Open Filename:=X, ReadOnly:=False
  End Sub