error '53' en tiempo de ejecucion

hola, Jonathan !

... ahora me marca... Se ha producido el error '75' en tiempo de ejecucion Error de acceso a la ruta o el archivo.
... aunque pusiste el nombre del archivo en la misma hoja de "Exp", le hice un link a B10 de la hoja "Setup"
... que crees que este pasando?
Voy a instalar de nuevo el office y te comento igual...

1) no es lo mas 'recomendable' andar des/re/instalando las aplicaciones ;)
en el 'peor de los casos'... la secuencia [generalmente] 'recomendada' son los pasos sugeridos en el segundo mensaje :))

2) ANTES de 'llegar' a los pasos anteriores... una revision de los procesos/codigos/... en uso es lo 'ideal' ;)
[como en este caso]... a mi se me ofusco la sugerencia entre pruebas y la puesta del mensaje :-(

3) el error 75 'se debe' a que NO se encuentra la variable 'Archivo' por que ???
porque se me quedo [en el codigo de la propuesta] la funcion Dir 'pegada' a la asignacion de la variable :-( [perdon]
dice: -> Archivo = Dir(.Range("b10"))
debio ser: -> Archivo = .Range("b10")
[aunque] considerando que el nombre del archivo 'se toma' del rango 'B10' PERO... de la hoja 'Setup'...
prueba con el codigo [espero que ahora si 'funcional'] al final del presente ;)

si cualquier duda... comentas ?
saludos,
hector.
=Sub Expac()
Dim Archivo As String, EnProceso As Integer, Existe As Boolean, _
Anterior As Variant, Nuevo As String, Fila As Byte
Archivo = Worksheets("setup").Range("b10")
Existe = Dir(Archivo) <> ""
With Worksheets("exp")
For Fila = 2 To 42
Nuevo = Nuevo & .Range("a" & Fila) & vbTab & .Range("b" & Fila) & vbNewLine
Next
End With
If Not Existe Then GoTo Agregar
EnProceso = FreeFile
Open Archivo For Input As #EnProceso
Anterior = Input(LOF(EnProceso), #EnProceso)
Close #EnProceso
Agregar:
EnProceso = FreeFile
Open Archivo For Output As #EnProceso
Print #EnProceso, Nuevo
If Existe Then Print #EnProceso, Anterior
Close #EnProceso
End Sub

Una disculpa Hector por no avisarte
Si el codigo funciono, aunque creo haber omitido y me parece
que debo comentarlo.
Tengo una funcion que crea el directorio en base a una celda entonces cuando
genero el primer error fue porque borre los directorios y en este
caso el que habia creado con los datos que tenian las celdas que
lo generaban, pero como ya los habia generado, no los volvia a
crear ya que lo hace con el enter y es por eso que le mandaba
a generar un historial (Exp) y me mostraba ese error, una disculpa de
nuevo.
Gracias.


"Héctor Miguel" escribió en el mensaje
news:%

hola, Jonathan !

... ahora me marca... Se ha producido el error '75' en tiempo de
ejecucion Error de acceso a la ruta o el archivo.
... aunque pusiste el nombre del archivo en la misma hoja de "Exp", le
hice un link a B10 de la hoja "Setup"
... que crees que este pasando?
Voy a instalar de nuevo el office y te comento igual...

1) no es lo mas 'recomendable' andar des/re/instalando las aplicaciones
;)
en el 'peor de los casos'... la secuencia [generalmente] 'recomendada'
son los pasos sugeridos en el segundo mensaje :))

2) ANTES de 'llegar' a los pasos anteriores... una revision de los
procesos/codigos/... en uso es lo 'ideal' ;)
[como en este caso]... a mi se me ofusco la sugerencia entre pruebas y
la puesta del mensaje :-(

3) el error 75 'se debe' a que NO se encuentra la variable 'Archivo'
por que ???
porque se me quedo [en el codigo de la propuesta] la funcion Dir
'pegada' a la asignacion de la variable :-( [perdon]
dice: -> Archivo = Dir(.Range("b10"))
debio ser: -> Archivo = .Range("b10")
[aunque] considerando que el nombre del archivo 'se toma' del rango
'B10' PERO... de la hoja 'Setup'...
prueba con el codigo [espero que ahora si 'funcional'] al final del
presente ;)

si cualquier duda... comentas ?
saludos,
hector.
=> Sub Expac()
Dim Archivo As String, EnProceso As Integer, Existe As Boolean, _
Anterior As Variant, Nuevo As String, Fila As Byte
Archivo = Worksheets("setup").Range("b10")
Existe = Dir(Archivo) <> ""
With Worksheets("exp")
For Fila = 2 To 42
Nuevo = Nuevo & .Range("a" & Fila) & vbTab & .Range("b" & Fila) &
vbNewLine
Next
End With
If Not Existe Then GoTo Agregar
EnProceso = FreeFile
Open Archivo For Input As #EnProceso
Anterior = Input(LOF(EnProceso), #EnProceso)
Close #EnProceso
Agregar:
EnProceso = FreeFile
Open Archivo For Output As #EnProceso
Print #EnProceso, Nuevo
If Existe Then Print #EnProceso, Anterior
Close #EnProceso
End Sub