<h1> Reading From Excel File Without Importing The File</h1>

path_of_file = "C:\test.xls" 
sheet_ex ="Sheet1"       
row=1                              
column1=1                         

Function valuexcell(epath,esheet,erow,ecolumn)

   Set excelobj = createobject("Excel.Application")
   excelobj.Workbooks.Open epath
   Set mysheet = excelobj.Sheets.Item(esheet)
   value = mysheet.cells(erow,ecolumn)
   excelobj.Application.Quit
   Set excelobj = Nothing
   valuexcell = value

End Function

msgbox valuexcell(path_of_file,sheet_ex,row,column1)