SoloCodigo
		Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: ManPro en Martes 24 de Junio de 2003, 19:28
		
			
			- 
				:)
 Hola como estan, a todos, los conosco por el foro de visual basic.
 nose si me podrian ayudar como programar en visual basic para que salgan
 reportes en excel, utilizando como base de datos Access.
 Quiero que los resultados o los reportes se generen como archivos en
 excel.
 Uso ADO o DAO, serian muy amigables si me pasaran una pequeña aplicacion sobre esto.
 
 Espero que me ayuden.... gracias:comp:
- 
				Hola:
 intenta con este codigo:
 
 Dim xlApp As Excel.Application
 Dim xlBook As Excel.Workbook
 Dim xlSheet As Excel.Worksheet
 
 Set xlApp = New Excel.Application
 Set xlBook = xlApp.Workbooks.Add
 Set xlSheet = xlBook.Worksheets.Add
 Set rsREPORTE = New Recordset
 
 xlSheet.Cells(i, 1).Value = "DemoTitulo"
 xlSheet.Cells(i, 2).Value = "InsertaValores1"
 xlSheet.Cells(i, 3).Value = "InsertaValores2"
 
 
 xlSheet.SaveAs "c:INV.xls"
 xlBook.Close
 xlApp.Quit
 
 Set xlApp = Nothing
 Set xlBook = Nothing
 Set xlSheet = Nothing
 
 saludos;
- 
				hola majuhemo  
 probé el código que pusiste y me funcionó perfecto, tengo una pregunta, cómo se hace para abrir una hoja ya hecha en excel, me explico, una plantilla de documento que se pueda llenar con datos enviados desde vb e imprimir luego? :question:
 Si tienes alguna pista te agradeceré me lo comuniques :good:
 
 :gracias: kieck
- 
				Hola Kieck:
 yo lo hago de esta manera:
 
 Dim xlBook As Excel.Workbook
 Dim xlSheet As Excel.Worksheet
 
 Set xlBook = GetObject("C:DemoPlant.xlt")
 Set xlSheet = xlBook.Worksheets(1)
 
 xlSheet.Cells(1, 1).Value = "Imprimir 1"
 xlSheet.Cells(2, 1).Value = "Imprimir 2"
 
 xlSheet.PrintOut
 
 Set xlBook = Nothing
 Set xlSheet = Nothing
 
 saludos;
- 
				ok ok
 Muchas gracias Majuhemo por el codigo, antes no me salia, pero al fin encontre la solucion por lo que estaba utilizando componentes no actuales.
 :think:Pero a ver si me ayudas con esto: Si sabes las lineas de codigo para pasar no solamente texto o numeros al excel, sino tambien imagenes bmp ...ah! y tambien como enviar los valores pero con otro tipo de fuente(negrita,colores, tipo del letra y todo eso).
 Las imagenes las tengo en una carpeta..no en una base de datos...
 
 gracias anticipadas.:comp: