Excel desde VB consulta

[leophp]

Aqui ta , fijate en los comentarios que agregue al codigo

Dim Col As Integer, Fila As Integer
Dim objExcel As Excel.Application 'orden 1
Dim xLibro As Excel.Workbook 'oden 2
Set objExcel = New Excel.Application
Set xLibro = objExcel.Workbooks.Open("C:\archivo.xls")
Label1 = xLibro.Sheets(1).Cells(Val(Text1), Val(Text2))
xLibro.Close 'Si lo abres, debes cerrarlo
Set xLibro = Nothing 'Respetar orden 2
Set objExcel = Nothing 'Respetar orden 1