Exportar a txt desde access

[wani]

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.