COMO ENVIO DATOS A EXCEL

SAM
03 de Enero del 2004
HOLA AMIGOS NO SE SI ME PUEDAN AYUDAR CON ESTO PERO AHI LES VA
ESQUE NECESITO PASAR TRES VALORES LOCALIZADOS EN UNOS TEXTBOX 1,2, 3 RESPECTIVAMENTE HACIA UN LIBRO QUE YA TENGO CREADO QUE SE LLAMA TOTALES EN LA HOJA ESTADO EN LA CELDA A2,A3,A4 RESPECTIVAMENTE
LES AGRADESCO MUCHO POR LA AYUDA ANTICIPADAMENTE GRACIAS A TODOS

Blinski
03 de Enero del 2004
Set Xls = CreateObject("Excel.Application")
Set XlsObj = Xls.Workbooks.Open(Ruta + "Totales.xls")
Set oSheet(1) = Worksheets(1)
Set oSheet(2) = Worksheets(2)
Set oSheet(3) = Worksheets(3)
1,2,3 son los las hojas de excel, creo que se pueden identificar por el nomre "hoja1" pero con los numeros consecutivos va seguro.
si tu hoja "estado" esta en la hoja 3 entonces solo necesitas
Set oSheet(3) = Worksheets(3)
para ingresar los valores:
oSheet(3).Cells(2, 1).Value=txtbox1.text
oSheet(3).Cells(3, 1).Value=txtbox2.text
oSheet(3).Cells(4, 1).Value=txtbox3.text
guardas:
XlsObj.save
cierras:
XlsObj.Close
y si no necesitas hacer mas cambios, vacias los objetos para matar el proceso de excel
Set XlsObj = Nothing
Set Xls = Nothing
Ah no te olvides de definir todos los objetos que crees de esta forma:
dim objeto as object

Saludos
Si alguien tiene una forma mas corta y funciona...esa es la solucion