01-22-2010, 06:19 PM
Try as given below.
Code:
Set oShell = CreateObject("WScript.Shell")
sCurrDir=oShell.CurrentDirectory
sCurrentPath=""
pCurrpath=Split(sCurrDir,"\")
For i=0 to ubound(pCurrpath)-2
sCurrentPath=sCurrentPath&pCurrpath(i)&"\"
Next
InputXls=sCurrentPath &"Data\ICentral.xls"
Datatable.AddSheet("ICentral")
Datatable.ImportSheet InputXls,"ICentral","ICentral"