Excel y Visual Basic 6.0

[javiergarciaperez]

Saludos. Estoy haciendo un programa que en un momento dado abre una hoja de Excel que tengo hecha al darle a un botón e introduce los datos de un textbox en una celda de dicha hoja. También he conseguido que los datos de otra celda de esa misma hoja de Excel aparezcan en un label del programa de Visual Basic, el problema que tengo es que solo aparecen si los datos estaban en la hoja de Excel antes de abrirla con el Visual Basic o guardo y vuelvo abrir la hoja con Visual Basic. Pues bien mi pregunta es ¿cómo puedo hacer para que una vez que se abre la hoja de Excel con Visual Basic y se introducen los datos del textbox, la hoja de Excel trabaje y el resultado que ha aparecido en la celda aparezca en el label de Visual Basic automáticamente, sin que tenga que guardar los cambios hechos en la hoja de Excel?
Respondedme por favor.
Gracias.

[David]

Puedes declarar el objeto Excel.Application con alcance de módulo, y trabajar con ella en un Timer, que vaya tomando los datos del objeto.

[javiergarciaperez]

¿Me puedes explicar cómo podría hacer eso? es que no llevo mucho tiempo en esto de Visual basic y no controlo todavía lo suficiente.
Gracias.

[David]

Bueno, para empezar se supone que estás llamando a Excel haciendo esto:

Código PHP:

  Set AppExcel = CreateObject("Excel.Application")  
   

Tal vez con alguna pequeña variación, pero usando el mismo principio.
Entonces, lo que tienes que hacer es definir AppExcel en las declaraciones del formulario (arriba de todo) poniendo:

Código PHP:

  Private AppExcel As Object  
   

Esto hace que no se pierda el objeto al salir de la función.
Luego, colocas un Timer con el Interval que quieras y en su evento Timer obtienes el valor. Por ejemplo:

Código PHP:

  Private Sub Timer1_Timer()
Label1.Caption = AppExcel.Worksheets("Hoja1").Range("A1")
End Sub  
   

[javiergarciaperez]

¿El código quedaría así? Es esto a lo que te refieres?
Gracias.

Private objExcel As Object
Private Sub Timer1_Timer()
Label1.Caption = objExcel.Worksheets("Hoja1").Range("A1")
End Sub
Private Sub Command1_Click()
Dim objExcel As Excel.Application
Dim xLibro As Excel.Workbook
Dim Col As Integer, Fila As Integer
Set objExcel = New Excel.Application
Set xLibro = objExcel.Workbooks.Open("C:\hoja.xls")
objExcel.Visible = True
With xLibro
With .Sheets(1)
Fila = 1
Label1.Caption = cells(Fila, 2)
Fila = 2
cells(Fila, 2) = Text1.Text
End With
End With
Set objExcel = Nothing
Set xLibro = Nothing
End Sub

[David]

Bueno, más o menos, en ese código también deberías incluir entre las declaraciones el libro. Algo como esto:

Código PHP:

  Private xLibro As Object  
   

Debes reemplazar esta línea (la puse mal):

Código PHP:

  Label1.Caption = objExcel.Worksheets("Hoja1").Range("A1")  
   

Por esta:

Código PHP:

  Label1.Caption = xLibro.Worksheets("Hoja1").Range("A1")  
   

Y, por último, eliminar estas líneas:

Código PHP:

  Set objExcel = Nothing
Set xLibro = Nothing  
   

Solo debes colocarla al cerrar la ventana, quizás en el evento Unload.

Me avisas si te funciona.

También debes quitar estas declaraciones dentro del evento Click, ya que están duplicadas:

Código PHP:

  Dim objExcel As Excel.Application
Dim xLibro As Excel.Workbook  
   

[javiergarciaperez]

He probado el código que me has dicho, lo que pasa es que en el texto del label no se pone el texto de la celda de excel si no guardo el archivo de excel y vuelvo a abrirlo, es decir no aparece en tiempo real o por lo menos de una manera rápida el texto de la celda del excel en el label.

[javiergarciaperez]

Ya he conseguido que funcione, pero he tenido que cambiar el código que tú me diste por este otro:

Private objExcel As Object
Private xLibro As Object
Private Sub Timer1_Timer()
Label1.Caption = cells(1, 2)
End Sub
Private Sub Command1_Click()
Dim Col As Integer, Fila As Integer
Set objExcel = New Excel.Application
Set xLibro = objExcel.Workbooks.Open("C:\hoja.xls")
objExcel.Visible = True
With xLibro
With .Sheets(1)
Fila = 1
Label1.Caption = cells(Fila, 2)
Fila = 2
cells(Fila, 2) = Text1.Text
End With
End With
End Sub

He cambiado "Label1.Caption = xLibro.Worksheets("Hoja1").Range("A1")" por: "Label1.Caption = cells(1, 2)", de esta manera sí me funciona.
Gracias.