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