Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

error '53' en tiempo de ejecucion

30/03/2006 - 22:35 por Jonathan Milla | Informe spam
Ayuda Hacer una pregunta
Como puedo solucionar este error, tengo las variables declaradas,
le doy un msgbox y me lee el dato, tengo este codigo
'=Sub Expac()

Dim Contenido As String
Dim Columna As Long
Dim Fila As Long
Dim txt As String
Dim Anadir As String
Fila = 1
Columna = 1
For Fila = 2 To 42
For Columna = 1 To 2
With Worksheets("Exp").Cells(Fila, Columna)
If Columna = 2 Then
Contenido = Contenido & .Value & vbNewLine
Else
Contenido = Contenido & .Value & vbTab
End If
End With
Next Columna
Next Fila
'MsgBox Contenido 'muestra lo que se grabara
Dim Ruta As String
Sheets("Setup").Select
'Ruta = Worksheets("Setup").Range("B10").Value 'Este es el archivo
Ruta = Range("B10").Value 'Este es el archivo
Range("B10").Select
Anadir = Contenido
Open Ruta For Input As #1
txt = Input$(LOF(1), 1)
Close #1
Open Ruta For Output As #1
Print #1, Anadir
Print #1, txt
Close #1
End Sub

Gracias
email Siga el debateRespuesta 12 respuestasRespuesta Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Zoraida
31/03/2006 - 04:49 | Informe spam
hola Jonathan,

no es muy claro un error, te sugiero que pongas puntos de interrupción
en varios puntos del código, así puedes hacer un seguimiento y ver
exactamente donde está el error
Respuesta Responder a este mensaje
#2 Héctor Miguel
31/03/2006 - 05:16 | Informe spam
hola, Jonathan !

Como puedo solucionar este error, tengo las variables declaradas, le doy un msgbox y me lee el dato, tengo este codigo
'== [...]
Dim Ruta As String
Sheets("Setup").Select
Ruta = Range("B10").Value 'Este es el archivo
Range("B10").Select
Anadir = Contenido
Open Ruta For Input As #1 [...]



1) el error 53 significa que 'el archivo' no se encuentra [al menos... donde se busca] -?-
2) es posible que 'entre' el dato de donde se toma el nombre [de la celda 'B10' de la hoja 'Setup']...
y el lugar donde el codigo 'trata' de abrirlo [Open Ruta For Input As #1]...
a) la celda 'B10' NO contenga la ruta 'completa' incluyendo wl nombre y la extension del archivo -?-
b) la instruccion 'Open' este buscando en el directorio 'activo' [ya sea el de por omision o el del ultimo archivo abierto] -?-

comentas [si hubiera] algun detalle mas... 'significativo' ?
saludos,
hector.
Respuesta Responder a este mensaje
#3 Jonathan Milla
31/03/2006 - 06:00 | Informe spam
Realmente si tiene la ruta junto con el nombre del archivo y funcionaba
pero en unos dias que lo deje de usar, tanto este error como el de
que no pegaba de tipo especial, le reiinstale el vb6 y los otros empezaron
a trabajar, pero este no, la verdad estoy un poco desesperado por saber
que esta pasando, es mas, a veces en la aplicacion de VBA, en la parte
de inmediato, no me mostraba nada, no se si esto te sirve.


"Héctor Miguel" escribió en el mensaje
news:
hola, Jonathan !

Como puedo solucionar este error, tengo las variables declaradas, le doy
un msgbox y me lee el dato, tengo este codigo
'== [...]
Dim Ruta As String
Sheets("Setup").Select
Ruta = Range("B10").Value 'Este es el archivo
Range("B10").Select
Anadir = Contenido
Open Ruta For Input As #1 [...]



1) el error 53 significa que 'el archivo' no se encuentra [al menos...
donde se busca] -?-
2) es posible que 'entre' el dato de donde se toma el nombre [de la celda
'B10' de la hoja 'Setup']...
y el lugar donde el codigo 'trata' de abrirlo [Open Ruta For Input As
#1]...
a) la celda 'B10' NO contenga la ruta 'completa' incluyendo wl nombre y
la extension del archivo -?-
b) la instruccion 'Open' este buscando en el directorio 'activo' [ya
sea el de por omision o el del ultimo archivo abierto] -?-

comentas [si hubiera] algun detalle mas... 'significativo' ?
saludos,
hector.


Respuesta Responder a este mensaje
#4 Héctor Miguel
31/03/2006 - 06:18 | Informe spam
hola, Jonathan !

... si tiene la ruta junto con el nombre del archivo y funcionaba pero en unos dias que lo deje de usar
... este error como el de que no pegaba de tipo especial
... reiinstale el vb6 y los otros empezaron a trabajar, pero este no... desesperado por saber que esta pasando
... a veces en la aplicacion de VBA, en la parte de inmediato, no me mostraba nada, no se si esto te sirve.



por lo que comentas [me suena a que]... existe la posibilidad de librerias perdidas o archivos corruptos -?-
1) revisa en el editor de vba [con ese libro activo] en menu herramientas / referencias...
si aparece alguna que dida MISSING: o... FALTA:
2) borrar los archivos del [o los] directorio/s de archivos temporales
3) descartar la posibilidad de virus en el sistema
4) descartar la posibilidad de que el archivo este corrupto [o 'a punto de estarlo']
5) [con excel cerrado] ejecuta el comando: -> excel /regserver [desde el boton inicio / ejecutar...]
6) eliminar el archivo que guarda la configuracion de las barras de menus y herramientas [excel??.XLB]
[el nombre dependera de tu version de excel y su ubicacion dependera de tu version de windows]
-> toma nota de que perderias toda personalizacion que hubieras efectuado a tus barras de menus y comandos :-((
7) ejecutar una re/instalacion de excel con la opcion de 'detectar y reparar errores en la instalacion' [desde la ayuda de excel]
8) [de plano]... des/re/instalar office/excel [desde el panel de control de windows -> agregar o quitar programas]
[tendrias que volver a instalar las actualizaciones que ya hubieran sido instaladas 'antes de...'] :-((

comentas 'como vamos' ?
saludos,
hector.
Respuesta Responder a este mensaje
#5 Jonathan Milla
01/04/2006 - 04:13 | Informe spam
Al parecer no crea el archivo.txt en el cual quiero pegar los datos,
como le puedo hacer miguel, para que genere el archivo si no existe
y claro como aqui que si existe, pegue los datos al principio.


"Héctor Miguel" escribió en el mensaje
news:
hola, Jonathan !

... si tiene la ruta junto con el nombre del archivo y funcionaba pero en
unos dias que lo deje de usar
... este error como el de que no pegaba de tipo especial
... reiinstale el vb6 y los otros empezaron a trabajar, pero este no...
desesperado por saber que esta pasando
... a veces en la aplicacion de VBA, en la parte de inmediato, no me
mostraba nada, no se si esto te sirve.



por lo que comentas [me suena a que]... existe la posibilidad de librerias
perdidas o archivos corruptos -?-
1) revisa en el editor de vba [con ese libro activo] en menu herramientas
/ referencias...
si aparece alguna que dida MISSING: o... FALTA:
2) borrar los archivos del [o los] directorio/s de archivos temporales
3) descartar la posibilidad de virus en el sistema
4) descartar la posibilidad de que el archivo este corrupto [o 'a punto de
estarlo']
5) [con excel cerrado] ejecuta el comando: -> excel /regserver [desde
el boton inicio / ejecutar...]
6) eliminar el archivo que guarda la configuracion de las barras de menus
y herramientas [excel??.XLB]
[el nombre dependera de tu version de excel y su ubicacion dependera de
tu version de windows]
-> toma nota de que perderias toda personalizacion que hubieras
efectuado a tus barras de menus y comandos :-((
7) ejecutar una re/instalacion de excel con la opcion de 'detectar y
reparar errores en la instalacion' [desde la ayuda de excel]
8) [de plano]... des/re/instalar office/excel [desde el panel de
control de windows -> agregar o quitar programas]
[tendrias que volver a instalar las actualizaciones que ya hubieran
sido instaladas 'antes de...'] :-((

comentas 'como vamos' ?
saludos,
hector.


Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida