Corregir código de búsqueda de pdf
¿Hola Dan como estas?
Recurro a ud por lo siguiente. Tengo un código que busca pdf con un textbox y los muestra en un listview luego selecciono un pdf y se visualiza en el webbrowser.. Mi solicitud es como cambiar el código .. Ya que con el listview no corre el programa .. ¿se puede cambiar a listbox? Le dejo el código .. Por favor Dan
Saludos
Dim RUTA As String
Private Sub TextBox1_Change()
LV.ListItems.Clear
fName = Dir(RUTA)
Do While Len(fName) > 0
If UCase(fName) Like UCase("*" & TextBox1 & "*.pdf") Then Set SUBELEMENTO = LV.ListItems.Add(, , fName)
fName = Dir
Loop
End Sub
Private Sub UserForm_Initialize()
Dim fName As String
RUTA = "----------------"
LV.View = lvwReport
LV.ColumnHeaders.Clear
LV.ColumnHeaders.Add , , Text:="Hojas de datos de seguridad", Width:=150
LV.HideColumnHeaders = False
fName = Dir(RUTA)
Do While Len(fName) > 0
If fName Like "*" & ".pdf" Then Set SUBELEMENTO = LV.ListItems.Add(Text:=fName)
fName = Dir
Loop
End Sub
Private Sub LV_DblClick()
'On Error GoTo Errores
NOMBRE = LV.SelectedItem.Text
archivo = RUTA & NOMBRE
UserForm1.WEBB.Navigate archivo
Exit Sub
End Sub
1 Respuesta
Según esto, debes tener algo en la variable RUTA, pero en tu código tienes esto :
RUTA = "----------------"
Luego, en la variable NOMBRE, debes tener el nombre del archivo con todo y la extensión ".pdf"
En tu UserForm1 debes tener el control WebBrowser con el nombre WEBB
¿Dime qué datos tienes?
Qué mensaje de error te envía.
¿Cuál es el problema?
Porque ya lo probé con un Listview y un WebBrowser y sí me despliega el pdf en el userform.
Hola..
Si clara en ruta le puse eso ------ pero se que va la ruta de la carpeta..
Lo que pasa es que el listview no es reconocido. aparece "error de automatización error no especificado" y si quiero agregar un listview al userform aparece el mensje "argumento no valido"..
he buscado y hay que agregar una dll para ese control. pero si quiero ocupar otro computador mi pensar es que el listbox es reconocido ante el listview..
Por eso quería que fuese en un listbox en donde aparecen los pdf.
Saludos
Entra al menú de VBA, herramientas, referencias y Revisa que tengas estas:
Eso tengo en mi Excel..
Activa las que te hagan falta y vuelve a probar.
Si no lo encuentras o no te funciona, entonces elimina el listview de tu form y pon un listbox.
Quita todo el código que tenga que ver con el listview.
Entonces me envías tu nuevo código y me explicas paso a paso qué quieres hacer.
Dan no hay caso...
Lo que me gustaría que hiciera es que el listbox se llenase con los pdf de un carpeta x y con el textbox pueda buscar en el listbox y hacer oble clic en un pdfy luego se pued ver el pdf en el webbrowser..
Por favor Dan he buscado como solucionar el problema del listview y no puedo
Te anexo el código para cargar el listbox y al hacer doble click en un dato del listbox, entonces se despliegue el pdf en el webbrowser
Dim ruta ' Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) nombre = ListBox1.List(ListBox1.ListIndex) archivo = ruta & nombre UserForm10.WebBrowser1.Navigate archivo End Sub ' Private Sub UserForm_Initialize() ruta = "C:\trabajo\" arch = Dir(ruta & "*.pdf") Do While arch <> "" ListBox1.AddItem arch arch = Dir() Loop End Sub
Ejemplo:
Prueba con esa parte. Cambia la ruta por la carpeta donde tienes tus pdf.
Si también necesitas ayuda para lo del textbox, crea una nueva pregunta.
'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
Hola Dan.. pue los controles webbrowser , textbox y listbox y la ruta también pero al inicializar el userform queda en blanco no muestra nada
Hago doble click en el listbox y me muestra todos los pdf en el webbrowser
Que estaré haciendo mal?
En la ruta después de ff te falta la diagonal \
Ya lo arregle Dan faltaba el backslash al final ..
Muchas gracias por todo Dan ... luego hago la pregunta del textbox para filtrar el listbox..
Gracias
Saludos
[´. No olvides valorar
