exportar a archivo de texto

[GREMA90]

Tengo poca idea de macros, me gustaria generar un archivo txt desde una tabla que ya existe, es decir ejecutar una macro que simplemente genere ese txt con todos los datos de la tabla tal como...

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í

 

[Adrian]

Hola Grema!
Mi respuesta es rápida y poco meditada, pero pruebála.
Selecciona la hoja con la BD, la copias a un nuevo libro (una copia) si esa hoja tiene solamente la BD, procede agrabar la macro...

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í

 

[hansabel]

Modificando esto te puede servir, saludos
Sub grabar()
Dim a(100)
Open "c:\hans.txt" For Append As 1
For i = 1 To 10
a(i) = Cells(i, 1)
Next i
Write #1, a(1), a(2), a(3), a(4), a(5)...

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í

 

[GREMA90]

Gracias a los dos, la solucion de adrian se ajusta a lo que quiero, pero a partir de determinada linea se meten unas comillas en el fichero de texto que quiero exportar a otra aplicacion y...

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í

 

[hansabel]

Bueno la idea era que modifiques el codigo de acuerdo a lo que necesitas, y no tiene virus el archivo, bueno de todas formas hice algunos cambios al codigo, te lo envio, saludos

 

[GREMA90]

gracias hansabel, es casi lo que quiero. Podriamos quitar las " (comillas) que nos aparecen al principio y final de cada linea (contaplus no me deja importar). El archivo debe sobreescribir el...

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í

 

[inocampo]

Hola,
El problema que tienes es que dentro de la linea tienes esta palabra con una coma, si la cambias por un punto se resolverá el problema.

Error: Edivers Multimedia, S : Tiene una coma
Bien...

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í

 

[hansabel]

Para que sobreescriba el antiguo tienes que cambiar a lo siguiente:
Private Sub CommandButton2_Click()
i = 1
Do Until Cells(i, 1) = ""
If i = 1 Then
Open "c:\libro1.txt" For Output As 1...

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í