Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Private Sub Abrir() On error GoTo Fin With Dialogo .ShowOpen if Len(.Filename)=0 then exit sub 'Escriba aqui la utilidad que le va a hacer al archivo a abrir End With Fin: End Sub