¿como puedo abrir una carpeta y maximizarla?

No sé si te refieres a esto:

Application.Dialogs(xlDialogOpen).Show


"Pol3" escribió en el mensaje
news:

Hola a todos, necesito el código de VBA para introducir al final de mi

macro

para que abra una carpeta y se quede abierta y maximizada, sin abrir los
documentos que en ella pudieran haber...
Gracias..

magnus itineribus wrote:

No sé si te refieres a esto:

Application.Dialogs(xlDialogOpen).Show

No creo, Esto muestra el diálogo integrado en excel, que aparece en el comando
Archivo->Abrir

Yo creo que lo que el Pol3 desea es abrir el explorer maximizado. Para ello usas
el método shell de VBA, el cual permite ejecutar un comando, el siguiente
ejemplo abre la carpeta cuyo nombre se le pasa por parámetro y deja el explorer
maximizado con foco


Sub abrirfolder(strFolder as String)
Shell "explorer " & strFolder, vbMaximizedFocus
End Sub

Perfecto, me funciona utilizando la línea Shell "explorer " & strFolder,
vbMaximizedFocus
y asigno a la variable el path de la carpeta que quiero abrir.
Mil Millones de gracias por vuestra ayuda.



"OECII" escribió en el mensaje
news:%234w7Z%

magnus itineribus wrote:

> No sé si te refieres a esto:
>
> Application.Dialogs(xlDialogOpen).Show
>
>
>
No creo, Esto muestra el diálogo integrado en excel, que aparece en el

comando

Archivo->Abrir

Yo creo que lo que el Pol3 desea es abrir el explorer maximizado. Para

ello usas

el método shell de VBA, el cual permite ejecutar un comando, el siguiente
ejemplo abre la carpeta cuyo nombre se le pasa por parámetro y deja el

explorer

maximizado con foco


Sub abrirfolder(strFolder as String)
Shell "explorer " & strFolder, vbMaximizedFocus
End Sub