Buscar una carpeta (browse for folder) con VBA Excel

Option Explicit
Sub x()
    Dim ShellApp As Object
    Dim s As String
    Set ShellApp = CreateObject(“Shell.Application”).BrowseForFolder(0, “Título”, 0, “c:\”)
    MsgBox (ShellApp.self.Path)
End Sub

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s