cerrar cualquier archivo ".txt"

[quarenta]

Hola a todos, tengo una consulta:

trabajo con archivos txt que bajo del sistema y copio, mediante macros, la información que necesito en un archivo excel.

De acuerdo a mi necesidad puedo bajar...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

... mi consulta es si se puede crear una macro que cierre el archivo txt ...

Y mi pregunta es: ¿Por qué el txt tendría que estar abierto?

Espero que -certeramente-...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[quarenta]

Hola Cacho y disculpa la demora.

El txt es un archivo de cualquier mes que yo escogí mediante una macro (el sistema me permite generar estos reportes sólo en archivos txt).

Luego la macro copia...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Sigues sin mostrar como es que abres el archivo de texto...

 

[quarenta]

Hola Cacho, adjunto archivo con los datos requeridos.

Gracias por tu ayuda.

Saludos

 

[Cacho R]

Hola Cacho, adjunto archivo con los datos requeridos.

Gracias por tu ayuda.

Saludos

¡¡¡ Ahora sí !!!... Intenta con:

Sub Abrir()
Dim archivo As Variant
archivo =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[quarenta]

Acabo de probarlo y está excelente!!

Cacho, sólo una pregunta adicional:

Qué función cumple [a1] en la macro, éste cierra el txt?

Disculpa la ignorancia.

Saludos

 

[Cacho R]

¿[a1]?...
Desde el punto de vista práctico es EXACTAMENTE lo mismo que Range("A1").

Otro ejemplo:
[a1:b50] <====> Range("a1:b50")

[a1].Resize(2,3) <====> Range("a1").Resize(2,3) <====>...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[quarenta]

Bien Cacho, gracias por la explicación.

Saludos

 

[Cacho R]

Al contrario: ¡Fue un gusto!