Abrir Ventana Emergente y Copiar Ruta de Carpeta
Buenos Días. Quisiera que una macro abra una ventana emergente del explorador de Archivos de Windows y que se pueda navegar entre las carpetas
y que al celeccionar una carpeta cualquier
me ingrese la ruta de la carpeta celeccionada en la celda B3.
Ejemplo: si seleccione una carpeta de mi escritorio llamado "Ejemplo" que copie la direccion de la carpeta en la celda B3 = C:\Users\USER\ejemplo
(pero que sea la celeccionada)
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Sub InsertarCarpeta() 'Por.Dante Amor ruta = ThisWorkbook.Path Set fldr = Application.FileDialog(msoFileDialogFolderPicker) With fldr .Title = "Selecciona una carpeta" .AllowMultiSelect = False .InitialFileName = ruta If .Show <> -1 Then Exit Sub ruta = .SelectedItems(1) [B3] = ruta End With End Sub
Saludos.Dante Amor
