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.
