1
« en: Martes 26 de Noviembre de 2002, 09:55 »
El siguiente codigo es el que yo use y me fue bien, en el no se toman datos de la hoja de excel, pero si puedes acceder a una celda para escribir datos, puedes acceder para leerlos:
-----------------------------------------
Dim objxls As Object
' creo el objeto de Excel.Application
Set objxls = CreateObject "Excel.Application")
' añado una nueva hoja
objxls.Workbooks.Add
' para modificar el estilo de la letra
' tamaño de la fuente
objxls.ActiveCell(1, 1).Font.Size = 8
' negrita
objxls.ActiveCell(i, 1).Font.Bold = True
' cursiva
objxls.ActiveCell(i, 2).Font.Italic = True
' para insertar un valor
objxls.ActiveCell(i, 2).Value = "hola"
' guardo la hoja de excel
objxls.ActiveWorkbook.SaveAs (nombre)
objxls.Quit ' cierro el objeto
Set objxls = Nothing ' liberas el objeto
---------------------------------------------
pues nada, espero que te vaya bien, un abrazo
salu2...