Voleu oferir-vos a vosaltres mateixos o als vostres usuaris una manera ràpida de cercar i obrir un fitxer a Excel? Aquesta macro utilitza una tècnica senzilla que obre un quadre de diàleg amigable, que us permet buscar i obrir el fitxer Excel que trieu.
Com funciona la macro
Aquesta macro obre el quadre de diàleg que veieu aquí, permetent a l'usuari buscar i obrir un fitxer Excel.

El quadre de diàleg Obre activat per la macro.
Així és com funciona aquesta macro:
Sub macro1()
"Pas 1: defineix una variable de cadena
Dim FName com a variant
"Pas 2: el mètode GetOpenFilename activa el quadre de diàleg
FName = Application.GetOpenFilename (_
FileFilter:="Llibres de treball d'Excel,*.xl*", _
Títol:="Tria un llibre de treball per obrir", _
Selecció múltiple:=fals)
"Pas 3: si s'ha escollit un fitxer, obriu-lo!
Si FName <> False Aleshores
Workbooks.Open Filename:=FName
Acaba si
End Sub
Al pas 1, la macro declara una variable Variant que conté el nom de fitxer que tria l'usuari. FName és el nom de la vostra variable.
Al pas 2, feu servir el mètode GetOpenFilename per obrir un quadre de diàleg que us permetrà explorar i seleccionar el fitxer que necessiteu.
El mètode GetOpenFilename admet uns quants paràmetres personalitzables. El paràmetre FileFilter us permet especificar el tipus de fitxer que esteu cercant. El paràmetre Títol us permet canviar el títol que apareix a la part superior del quadre de diàleg. El paràmetre MultiSelect us permet limitar la selecció a un fitxer.
Si l'usuari selecciona un fitxer del quadre de diàleg, la variable FName s'omple amb el nom de fitxer escollit. Al pas 3, comproveu si hi ha una variable FName buida. Si la variable no està buida, utilitzeu el mètode Open de l'objecte Workbooks per obrir el fitxer.
Com utilitzar la macro
Per implementar aquesta macro, podeu copiar-la i enganxar-la en un mòdul estàndard:
Activeu Visual Basic Editor prement Alt+F11 al vostre teclat.
Feu clic amb el botó dret sobre el nom del projecte/llibre de treball a la finestra del projecte.
Seleccioneu Insereix → Mòdul.
Escriviu o enganxeu el codi al mòdul acabat de crear.
(Opcional) Assigna la macro a un botó.