Excel y Visual Basic 6.0

[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