Visual Basic - exportar datos a una hoja de excel

Life is soft - evento anual de software empresarial
 
Vista:

exportar datos a una hoja de excel

Publicado por Cesar (20 intervenciones) el 23/09/2005 02:25:30
Hola que tal, me gustaria pudieran ayudarme, tengo una base de datos en access y en visual basic esta la interfaz de usuario, el punto es que quiero generar un reporte y que lo mande o que se llene en una hoja de excel para poder mandar el reporte en disco y pueda leido por cualquier usuario de la organizacion, pero no tengo la menor idea de como abrir una hoja de excel y guardar la informacion. Espero se entienda lo que quiero hacer y saludos. Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:exportar datos a una hoja de excel

Publicado por Gustavo (181 intervenciones) el 26/09/2005 18:26:18
el codigo para abrir qui esta solo marca los textos u objetos q utilices para mandarlos a la hoja de excel bueno aqui va SUERTE =)
'no olvides hacer la referencia a excel en menu Proyecto/Referencias
'a Microsoft Excel object Library 9.0
'declaramos las variables q vamos a usar
Dim MiExcel As Excel.Application
Dim MiLibro As Excel.Workbook
Dim MiHoja As Excel.Worksheet

'vamos a direccionar nuestras variables
Set MiExcel = New Excel.Application 'un nuevo objeto excel
' nombre de variable es una nueva aplicacion de excel
Set MiLibro = Excel.Workbooks.Add 'un nuevo libro
'nombre de variable es un nuevo libro
'si deseas abrir un libro existente solo usa lo siguiente
'Set MiLibro = Excel.Workbooks.Open(ruta as string)
Set MiHoja = Excel.Worksheets("Hoja1") 'una nueva hoja
'Le dices en q hoja vas a escribir por ejemplo si quieres escribir en la hoja 2
'Set MiHoja = Excel.Worksheets("Hoja2")
' y si le quieres cabiar el nombre
'MiHoja.Name = "Gustavo"

MiHoja.Activate 'activamos la hoja para escribir enm ella
'ojo si vas a esv}cribir en otra hoja se debe activar primero si no se sobreescribe
MiHoja.Range("A1:B4") = "Gustavo" 'escribimos en un rango
MiHoja.Cells(7, 1) = "Garcia" 'escribimos en una celda especifica
' fila , columna
MiExcel.Visible = True 'lo hacemos visible
MiHoja.SaveAs ("C:\Prueva.xls")
'seteamos las variables para q no haya problemas
Set MiExcel = Nothing
Set MiHoja = Nothing
Set MiLibro = Nothing
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