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