EXPORTAR A EXCEL

MARRYBEL
01 de Diciembre del 2005
COMO LE HAAGO APRA EXPORTAR YA SEA UNA CONSULTA O UNA TABLA ENTERA DE VISUAL EXCEL

violeta01
01 de Diciembre del 2005
con esto exportas todo el contenido de la tabla a una hoja de excel espero te sirba.

Private Sub EXPORT_Click()
Dim xlaplicacion As Excel.Application
Dim xllibro As Excel.Workbook
Dim xlHoja As Excel.Worksheet
Dim sql As String

\'abre conexion
Call conect2
sql = "SELECT * FROM temp1"

\'leer los datos
Set rtemp = New Recordset
Set rtemp = conexion2.Execute(sql)



\'crear objeto de aplicacion excel
Set xlaplicacion = CreateObject("Excel.Application")
xlaplicacion.Visible = True

\'crear objeto libro
Set xllibro = xlaplicacion.Workbooks.Add

\'hace referencia a la hoja 1 del libro
Set xlHoja = xllibro.Worksheets(1)

xlHoja.Range("a1").CopyFromRecordset rtemp

End Sub

Estrella Picasso
01 de Diciembre del 2005
y k referencias hay ke declarar en VB para ke agarre las librerias en la declaracion????

gopster
01 de Diciembre del 2005
Hola:

Hay una manera muy rapida que es convirtiendo tu resultado a un archivo CSV que tecnicamente es lo mismo que un archivo de texto, solo separas las columnas con una coma y las filas con saltas de linea.

Este archivo CSV es directamente leible por excel.

La otra es directamente el proveedor de BD Access y SQL Server tienen capacidad de exportar directamente a un excel.

La ultima y que en teoria deberia ser la mas sencilla es utilizar el componen de Excel para Visual Basic...
pero particularmente creo que es lo que se puede complicar mas, porque esta ligado con la version de office que tengas en la maquina.

Saludos.