Extracting Data from Excel Cells

[bfakruddin]

Code:

Function excel()
dim xl

set xl=createobject("excel.application")
xl.visible=true
xl.workbooks.open "path of file .xls"
xl.sheets("sheetid").select

excel=xl.cells(row,column).value
print excel

xl.activeworkbook.save
xl.quit
set xl=nothing
End Function

Call excel()
msgbox excel

Function TextFile(excel)
dim fso,fs

set fso=createobject("scripting.filesystemobject")
set fs=fso.createtextfile("path of file.txt",true)

fs.writeline excel

fs.close

set fs=nothing
set fso=nothing
End Function

print excel
Call TextFile(excel)