none
Macro Excel - Split en VBA RRS feed

  • Pregunta

  • Buenos Días

    Actualmente estoy desarrollando una macro en excel y realmente mis conocimientos en desarrollos son basicos y necesito hacer un Split de una variable.... Tengo el siguiente código

    PathBases = InputBox("Digite la ruta donde desea guardar el archivo" + vbCrLf + vbCrLf + "Ejemplo: C:\Mis Documentos\Bases.xlsx", "Nuevo Archivo Base")

    File() = Split(PathBases, "\")

    El usuario ingresara uan ruta algo similar a esta C:\Mis Documentos\Bases.xlsx y ese se almacena en la variable PathBases y necesito hacerle un Split por "\" a esa variable con el fin de poder obtener solo el nombre del archivo.

    Agradezco la ayuda que me puedan dar


    Juan David Puerta

    miércoles, 17 de diciembre de 2014 13:27

Respuestas

  • En realidad no hace falta hacer split para sacar el nombre el archivo. Puedes usar FileSytemObject para facilitarte la tarea. Por ejemplo el siguiente código muestra "Inside RavenDB 3.0.pdf" en un cuadro de mensaje:

    Dim fs As Object
    Dim f As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile("C:\Users\jesus.lopez.IN2007\Documents\Libros\Inside RavenDB 3.0.pdf")
    MsgBox f.Name



    Jesús López


    EntityLite a lightweight, database first, micro orm

    • Marcado como respuesta JUPUERTA miércoles, 17 de diciembre de 2014 14:33
    miércoles, 17 de diciembre de 2014 13:49

Todas las respuestas

  • En realidad no hace falta hacer split para sacar el nombre el archivo. Puedes usar FileSytemObject para facilitarte la tarea. Por ejemplo el siguiente código muestra "Inside RavenDB 3.0.pdf" en un cuadro de mensaje:

    Dim fs As Object
    Dim f As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile("C:\Users\jesus.lopez.IN2007\Documents\Libros\Inside RavenDB 3.0.pdf")
    MsgBox f.Name



    Jesús López


    EntityLite a lightweight, database first, micro orm

    • Marcado como respuesta JUPUERTA miércoles, 17 de diciembre de 2014 14:33
    miércoles, 17 de diciembre de 2014 13:49
  • Muchas gracias por la ayuda.... me funciono perfectamente

    Juan David Puerta

    miércoles, 17 de diciembre de 2014 14:33