Programación General > VBA

 Separacion De Ruta

(1/1)

LUKER:
:(  Mi problema es el siguiente, en mi programa yo localizo un dato tipo PRN y lo abro en excel, al archivo o hoja le pongo el mismo nombre que tenia el PRN, al final de la aplicacion salvo el archivo, pero ocupo que se encuentre en la misma direccion
Con este codigo yo encuentro el archivo
   miarchivo = ""
   Application.ScreenUpdating = False
   miarchivo = Application.GetOpenFilename("Archivo de Datos,*.prn")
   
En la variable miarchivo se almacena la direcion y el nombre del archivo
Les pregunto como hago para tomar solo la parte de la direccion sin el nombre del archivo es decir si mi archivo era "C:\Documents and Settings\jocata\Mis documentos\" & Nombre & ".xls",  de esto solo tengo que almacenar lo siguiente "C:\Documents and Settings\jocata\Mis documentos\",  
para que una vez a la hora de guardar pueda poder la antigua direccion pero con un nombre nuevo. Algo como esto :    

Nombre = UCase$(InputBox$("Digite nombre con el que desea guardar el   archivo", "Guardando resultados"))
    ActiveWorkbook.SaveAs Filename:= _
    "Antigua direccion + nuevo nombre.xls & ", FileFormat:= _
    xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
    , CreateBackup:=False

Si tienen alguna idea por favor.

RadicalEd:
A VER TAL VES NO ENTIENDO MUCHO TU PREGUNTA, PERO TE DARE UNA SOLUCION PUEDES HACER ESTO,

--- Código: Text --- ActiveWorkbook.SaveAs Filename:= App.Path + "\" + Nombre + ".xls" & ", FileFormat:= _xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _, CreateBackup:=False  SI NO TE SIRVE ASI ENTONCES DE PRONTO NO ESTOY ENTENDIENDO TU PREGUNTA[/COLOR]

LUKER:
:rolleyes:  Si esta bien tu codigo, pero no es cierto que el path verifica o toma  mas bien la direccion donde esta el programa.

RadicalEd:
POR FIN FINALLY PUEDO ESCRIBIR LLEVO 22 MINUTOS SIN PODER POSTEAR UN CHINGO MENSAJE, AQUI TE VA UNA RESPUESTA A TU PREGUNTA SI LO QUE QUIERES VER ES EL DIRECTORIO DONDE ESTA TU ARCHIVO GUARDALO EN UNA VARIABLE CON LA SIGUIENTE ORDEN


--- Código: Text --- Dim zhzh = Application.Path   
ESTO TE GUARDA EN LA VARIABLE zh EL VALOR DEL DIRECTORIO DONDE SE ESTA EJECUTANDO TU ARCHIVO

Navegación

[0] Índice de Mensajes