sin utilizar celdas de excel

Hola Fredy,

El siguiente codigo (igual que la formula) solo funcionara si el libro
activo se ha guardado al menos una vez:

Sub Test()
MsgBox Evaluate( _
"=MID(CELL(""filename""),1,FIND(""["",CELL(""filename""))-1)")
End Sub

Saludos,
KL

"fredy" wrote in message
news:

benas tardes
quisiera saber si la formula
Range("A1").FormulaR1C1 = _
"=MID(CELL(""NOMBREARCHIVO""),1,FIND(""["",CELL(""NOMBREARCHIVO""))-1)"
que se utiliza para obtener la ruta donde se encuentra el archivo puede
ser
calculada en el codigo es decir sin utilizar ninguna celda de excel. como
seria entonces la formula?

muchas gracias

hola, fredy !

quisiera saber si la formula Range("A1").FormulaR1C1 = _

"=MID(CELL(""NOMBREARCHIVO""),1,FIND(""["",CELL(""NOMBREARCHIVO""))-1)"

... puede ser calculada en el codigo... sin utilizar ninguna celda de excel.

ThisWorkbook.Path & "\"
ActiveWorkbook.Path & "\"

saludos,
hector.

:-DD


"Héctor Miguel" wrote in message
news:

hola, fredy !

quisiera saber si la formula Range("A1").FormulaR1C1 = _

"=MID(CELL(""NOMBREARCHIVO""),1,FIND(""["",CELL(""NOMBREARCHIVO""))-1)"

... puede ser calculada en el codigo... sin utilizar ninguna celda de
excel.

ThisWorkbook.Path & "\"
ActiveWorkbook.Path & "\"

saludos,
hector.

Muchas Gracias!!!! KL Y Hector Miguel son muy buenas opciones
"KL" escribió:

:-DD


"Héctor Miguel" wrote in message
news:
> hola, fredy !
>
>> quisiera saber si la formula Range("A1").FormulaR1C1 = _
> "=MID(CELL(""NOMBREARCHIVO""),1,FIND(""["",CELL(""NOMBREARCHIVO""))-1)"
>> ... puede ser calculada en el codigo... sin utilizar ninguna celda de
>> excel.
>
> ThisWorkbook.Path & "\"
> ActiveWorkbook.Path & "\"
>
> saludos,
> hector.
>

Hola fredy,

La mia no es una opcion practica (o no deberia serlo) sino "pura teoria" -
solo era para demonstrar que se puede hacer lo que buscas siguiendo la
pregunta al pie de la letra. La funcion Evaluar() es muy util en muchos
casos cuando es preferible usar formulas en vez de comandos VBA, pero en
este caso
"fredy" wrote in message
news:

Muchas Gracias!!!! KL Y Hector Miguel son muy buenas opciones
"KL" escribio:

:-DD


"Hector Miguel" wrote in message
news:
> hola, fredy !
>
>> quisiera saber si la formula Range("A1").FormulaR1C1 = _
> "=MID(CELL(""NOMBREARCHIVO""),1,FIND(""["",CELL(""NOMBREARCHIVO""))-1)"
>> ... puede ser calculada en el codigo... sin utilizar ninguna celda de
>> excel.
>
> ThisWorkbook.Path & "\"
> ActiveWorkbook.Path & "\"
>
> saludos,
> hector.
>