SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: LUKER en Sábado 23 de Octubre de 2004, 00:39

Título: Separacion De Ruta
Publicado por: LUKER en Sábado 23 de Octubre de 2004, 00:39
:(  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.
Título: Re: Separacion De Ruta
Publicado por: RadicalEd en Sábado 23 de Octubre de 2004, 00:59
A VER TAL VES NO ENTIENDO MUCHO TU PREGUNTA, PERO TE DARE UNA SOLUCION PUEDES HACER ESTO,
Código: Text
  1.  
  2. ActiveWorkbook.SaveAs Filename:= App.Path + "\" + Nombre + ".xls" & ", FileFormat:= _
  3. xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
  4. , CreateBackup:=False
  5.  
  6.  
SI NO TE SIRVE ASI ENTONCES DE PRONTO NO ESTOY ENTENDIENDO TU PREGUNTA[/COLOR]
Título: Re: Separacion De Ruta
Publicado por: LUKER en Sábado 23 de Octubre de 2004, 01:08
:rolleyes:  Si esta bien tu codigo, pero no es cierto que el path verifica o toma  mas bien la direccion donde esta el programa.
Título: Re: Separacion De Ruta
Publicado por: RadicalEd en Sábado 23 de Octubre de 2004, 02:40
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
  1.  
  2. Dim zh
  3. zh = Application.Path
  4.  
  5.  

ESTO TE GUARDA EN LA VARIABLE zh EL VALOR DEL DIRECTORIO DONDE SE ESTA EJECUTANDO TU ARCHIVO