SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: javiergarciaperez en Sábado 16 de Agosto de 2008, 12:36

Título: OLE con tabla de excel modificada en tiempo real
Publicado por: javiergarciaperez en Sábado 16 de Agosto de 2008, 12:36

Hola.
Estoy haciendo un programa en el que meto una serie de números en unos textbox y quiero que pulsando un commandbutton esos números aparezcan en unas celda determinadas de una tabla de excel contenida en un OLE. Después, como esa tabla de Excel tiene unas funciones, que con esos datos que se han introducido se realicen las operaciones fijadas en la tabla de excel y aparezca el resultado en una celda, y que ese resultado aparezca en otro textbox.
Esto lo se hacer si me refiero a una hoja de excel que tenga en el ordenador, pero no si está contenida en un OLE, y necesito que esté en un OLE para que se vea la tabla sin necesidad de abrir el Excel y que todo vaya automático para que el usuario no tenga que tocar la tabla de excel, solo introducir los datos en los textbox y ver el resultado final en el otro textbox.
¿Esto se puede hacer? ¿Me podéis redponder?
Gracias.
Os mando el código con el que lo se hacer sin el OLE, es decir haciendo que se abra la tabla de excel:

Código: Text

1. Private objExcel As Object
2.  
3. Private xLibro As Object
4.  
5. Private Sub Timer1_Timer()
6. text1.text = cells(1, 2)
7. End Sub
8.  
9. Private Sub Command1_Click()
10. Dim Col As Integer, Fila As Integer
11. Set objExcel = New Excel.Application
12. Set xLibro = objExcel.Workbooks.Open("C:hoja.xls")
13. objExcel.Visible = True
14.     With xLibro
15.         With .Sheets(1)
16.         text1.text = cells(1, 2)
17.         cells(2, 2) = Text2.Text
18.         End With
19.     End With
20. End Sub  
21.