Visual Basic - Exportar una tabla a excel

Life is soft - evento anual de software empresarial
   
Vista:

Exportar una tabla a excel

Publicado por Mariano (51 intervenciones) el 31/07/2017 14:34:45
Exportar una tabla a excel pero que me deje elegir los campos en tiempo de ejecución

Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
-1
Responder

Exportar una tabla a excel

Publicado por Lenguajes de programación (1 intervención) el 11/08/2017 13:33:21
Imagino que tienes la tabla en un Recordset. el código sería algo parecido a esto:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
 
'Crear hoja de Excel
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add
 
 
'Añadir datos celda a celda
Set oSheet = oBook.Worksheets(1)
oSheet.Range("A1").Value = "Título A"
oSheet.Range("B1").Value = "Título B"
oSheet.Range("A1:B1").Font.Bold = True
 
oSheet.Range("A2").Value = Rs.Fields("campo1")
oSheet.Range("B2").Value = Rs.Fields("campo2")
 
'Guardar Excel en disco duro
oBook.SaveAs "C:\Excel1.xls"
oExcel.Quit

Espero que te sirva.
Si quieres saber más sobre los lenguajes de programación como Visual BAsic, puedes consultar mi web:
https://lenguajesdeprogramacion.net/visual-basic/
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad