¿Cómo coloco la dirección de un archivo PDF en la celda B1?
¿Cómo están?
Les consulto esta vez como hacer después de elegir desde un combobox un archivo PDF para que en la celda B1 aparezca la dirección donde se encuentra alojado el archivo. En la celda A1 aparece el nombre con la extensión.
La macro con la que estoy trabajando es:
Private Sub UserForm_Initialize()
On Error Resume Next
DisplayAlerts = True
Application.ScreenUpdating = True
Dim Path As String
Dim fila As Integer
fila = 2
'Se crea FileSystemObject que da acceso al sistema de archivos del sistema
Set fso = CreateObject("Scripting.FileSystemObject")
'Indicamos la ruta de donde vamos a obtener
Ruta = "C:\Users\Downloads\"
Path = CreateObject("shell.application").browseforfolder(0, "Seleccione Carpeta", &H100, Ruta).Items.Item.Path
If Path = "" Then
'MsgBox "No has seleccionado ningún directorio, selecciona un directorio .", , "AVISO"
Exit Sub
End If
'Definimos variables para determinar nombre de archivos y subcarpetas
Set carpeta = fso.getfolder(Path)
Set ficheros = carpeta.Files
'Archivos
For Each ficheros In ficheros
b = ficheros.Name
documento = ficheros.Path
extension = UCase(fso.getextensionname(documento))
If extension = "PDF" Then ComboBox1.AddItem b
Next ficheros
DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
1 respuesta
Respuesta de Sebas Torres
1
Agregando esta pequeña línea en tu if te captura la ruta
x = Path & "\" & b
Te quedaria asi
If extension = "PDF" Then ComboBox1.AddItem b: x = Path & "\" & b
Cuando ingreses el item en A1, ingresa "x" en B1
Espero haberte ayudado compañero
No olvides valorar la respuesta si te fue útil
Hola, hice tal cual me indicaste y no sucede ningún cambio en B1, sigue en blanco.
Podrás fijarte nuevamente.
Gracias.
Claro no está ingresando está capturando en "x" pensé que usabas un botón para pasarlo a la hoja
Cambia la "x" por "range("b1") si quieres que lo ingrese de una
