please try to read the contents of this page, and tell if it helps you.
http://www.rlmueller.net/Programs/XLRead.txt
or try this simpler one:
http://www.rlmueller.net/Programs/XLRead.txt
or try this simpler one:
Code:
Set objXL = CreateObject("Excel.Application")
Set objWB = objXL.WorkBooks.Open("C:\Scripts\test1.xls")
Set objWS = objXL.ActiveWorkBook.WorkSheets("test1")
objWS.cells(i,j).value = YourVariable // i,j defines the cell you wish to put the data in.
objWB.Close
objXL.Quit