2

tengo un codigo desarrollado, pero hasta ahora solo consigo abrir el explorador de W10 para seleccionar unos archivos, la cosa es que me da error y no se por qué... la cosa es que quiero que me devuelva el nombre de los archivos en un libro de excel. alguien me echa una mano please? aqui el codigo :

Sub OpenExplorerMultiselectFiles()

myfile = Application.GetOpenFilename("Image Files (*.jpg*;*.png;*), *jpg*;*.png*", , , , True)

If TypeName(myfile) = "Boolean" Then Exit Sub

    file = 11

For i = LBound(mylife) To UBound(mylife)

    Cells(file, 2) = myfile(i)

    file = file + 1

Next i

End Sub

2
  • Hola! Recuerda incluir el error completo que te da al correr el código
    – Alfabravo
    Commented el 9 ago. 2022 a las 14:15
  • Voto por cerrar la pregunta ya que es un error tipográfico.
    – Esei
    Commented el 9 ago. 2022 a las 19:52

1 respuesta 1

1

En el for estás nombrando mal tu array. Es "myfile" y tu pones "mylife", jajaja:

Sub OpenExplorerMultiselectFiles()

myfile = Application.GetOpenFilename("Image Files (*.jpg*;*.png;*), *jpg*;*.png*", , , , True)

If TypeName(myfile) = "Boolean" Then Exit Sub

    file = 11

For i = LBound(myfile) To UBound(myfile)

    Cells(file, 2) = myfile(i)

    file = file + 1

Next i

End Sub
1
  • 2
    Suena bon jovi
    – Alfabravo
    Commented el 9 ago. 2022 a las 14:15

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.