General run error

[vijay44]

hi,
I am using the below code

Code:

Set oShell = CreateObject("WScript.Shell") sCurrDir=oShell.CurrentDirectory 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"

I am getting general run error at

Code:

InputXls=sCurrentPath &"\Data\ICentral.xls"

Any help will be really appreciated.
Regards;
Vijay

[sreekanth chilam]

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"

[vijay44]

Hi,
I am still getting the same problem.

still shows generall error.
Regards;
vijay

[Saket]

It should work with the correction suggested by Sreekanth.
Check your xls path and sheetname again.

[Ajit.2k6]

May be you are getting string value instead of integer. Check your DIMs