Foros del Web » Soporte técnico » Ofimática »

Exportar a txt desde access

Estas en el tema de Exportar a txt desde access en el foro de Ofimática en Foros del Web. Hola a todos. Tengo que crear un archivo de texto a partir de datos contenidos en access, el problema gordo lo tengo en el lugar ...
  #1 (permalink)  
Antiguo 11/04/2010, 08:49
 
Fecha de Ingreso: noviembre-2006
Mensajes: 30
Antigüedad: 17 años, 5 meses
Puntos: 0
Exportar a txt desde access

Hola a todos.

Tengo que crear un archivo de texto a partir de datos contenidos en access, el problema gordo lo tengo en el lugar que debe ocupar cada dato en e archivo de texto.

Gracias por la ayuda
  #2 (permalink)  
Antiguo 11/04/2010, 10:24
 
Fecha de Ingreso: julio-2006
Ubicación: Madrid
Mensajes: 943
Antigüedad: 17 años, 8 meses
Puntos: 56
Respuesta: Exportar a txt desde access

Hola,
Pues como no des más pistas....

En un principio es tan sencillo como pinchar con el botón derecho del ratón sobre la tabla o consulta a exportar y elegir el nombre y tipo de archivo.

Saludos.
  #3 (permalink)  
Antiguo 11/04/2010, 11:19
 
Fecha de Ingreso: agosto-2009
Mensajes: 45
Antigüedad: 14 años, 8 meses
Puntos: 0
Respuesta: Exportar a txt desde access

Si quieres exportar datos a un txt y que tenga formato, lo mejor es que lo pases a excel(programando en vba) le das el formato que quieras y una vez que lo tengas en excel lo guardas como archivo txt con formato. Sabes algo de visual?

Private Sub exportar_Click()
Dim xls As Object
Set xls = CreateObject("excel.application")
xls.Visible = True
xls.Workbooks.Add
xls.worksheets("Hoja1").Activate
xls.cells(1, 1) = "Lo que sea"



'ESTILOS
xls.cells(13, 3).Font.Size = 17
xls.cells(14, 3).Font.Size = 17
xls.cells(15, 3).Font.Size = 17
xls.cells(16, 3).Font.Size = 17
xls.cells(17, 3).Font.Size = 17
xls.cells(14, 5).Font.Size = 17
xls.cells(15, 5).Font.Size = 17
xls.cells(16, 5).Font.Size = 17
'xls.cells(23, 3).Font.Size = 17
xls.cells(3, 2).Font.Bold = True
xls.cells(4, 2).Font.Bold = True
xls.cells(5, 2).Font.Bold = True
xls.cells(6, 2).Font.Bold = True
xls.cells(7, 2).Font.Bold = True
xls.cells(8, 2).Font.Bold = True
xls.cells(9, 2).Font.Bold = True
xls.cells(10, 2).Font.Bold = True
xls.cells(11, 2).Font.Bold = True
xls.cells(12, 2).Font.Bold = True
xls.cells(13, 2).Font.Bold = True
xls.cells(14, 2).Font.Bold = True
xls.cells(1, 6).Font.Bold = True
xls.cells(2, 6).Font.Bold = True
xls.cells(3, 6).Font.Bold = True
xls.cells(4, 6).Font.Bold = True
xls.cells(14, 2).Font.Bold = True
xls.cells(15, 2).Font.Bold = True
xls.cells(16, 2).Font.Bold = True
xls.cells(18, 2).Font.Bold = True
xls.cells(1, 6) = "lalalalalalalalal."
xls.cells(2, 6) = "ejemplo"
end sub





de esta forma le indicas exactamente en que celdas y con que formato lo quieres. Espero que te sirva de ayuda.
  #4 (permalink)  
Antiguo 14/04/2010, 00:04
 
Fecha de Ingreso: noviembre-2006
Mensajes: 30
Antigüedad: 17 años, 5 meses
Puntos: 0
Respuesta: Exportar a txt desde access

Gracias por vuestras ayudas y perdón por no contestar antes, al final lo he hecho exportando datos a archivo de txt plano, en las opciones avanzada te permite controlar el número de espacios que debe ocupar cada columna, lo cierto que bastante sencillo y como e permite guardar los pasos de exportación, pues nada no hay que repetirlo cada vez.

Gracias de nuevo por vuestro interés

Etiquetas: access, txt
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 18:00.