Exportar a excel

Creo que nuestro contacto debe ser para solucionar problemas que sean más técnicos como problemas de cálculos, funcionamiento del programa, uso de funciones y no basados en sutilezas que son propias del usuario al querer dejar sus informes agradables a la vista, pero, ya que estoy enganchado contigo te voy a responder para que ahorres ese tiempo que gastas formateando una planilla. Mi solución es una macro o programa en Excel y tienes que hacer lo siguiente:
1°.- Abrir Excel
2°.- Presiona las teclas Alt+F11 para ir al ambiente de Visual Basic
3°.- Arriba a la izquierda hay un cuadro que se llama Proyecto-VBAProject. Ahí tienes que buscar uno que se llama VBAProject(Personal) y hacer clic sobre él.
4°.- En el menú haz clic en Insertar y luego en Módulo.
5°.- Sin cerrar esta pantalla trasládate a donde tengas el texto con los programas que te envié.
6°.- Selecciona y copia el texto con los programas, trasládate al módulo de Visual Basic y ahí pega.
7°.- Presiona las teclas Alt+F11 para que vuelvas a la pantalla de Excel.
8°.- Presiona las teclas Alt+F8, selecciona la macro "Icono" y haz clic en Ejecutar (esto creará el botón con el que ejecutarás la macro que formateará todas las planillas que exportes desde Access)
9°.- El botón debería haber aparecido en alguna de las Barras de Herramientas.
10°.- Ahora, para que el botón ejecute la macro que formateará tus planillas, debes hacer lo siguiente:
a)Haz clic en Ver-Barras de herramientas-Personalizar
b)Clic con el botón derecho del ratón sobre el ícono creado en la barra de herramientas
c)Clic en la opción "Asignar macro..."
d)Clic en la Macro "FormArchExp"
e)Clic en Aceptar
f)Por último, clic en Cerrar
11°.- Ahora, si abres tu archivo y haces clic en el botón creado (cara amarilla), tu archivo quedará presentable.
¡Nos vemos!
Este es el texto de los programas:
Sub FormArchExp()
'Macro que formatea archivo exportado
Selection.CurrentRegion.Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Font
.Name = "Tahoma"
.Size = 11
End With
'Si quieres cambiar el tamaño de la
'letra, debes modificar en Size, el
'11 por otro número
Columns("A:C").Select
Columns("A:C").EntireColumn.AutoFit
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Font.Bold = True
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
ActiveCell.Select
End Sub
Sub icono()
Application.CommandBars("Standard").Controls.Add Type:=msoControlButton, ID _
:=2950, Before:=15
End Sub