General run error - Printable Version

General run error - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: VB Scripting/Descriptive Programming (https://www.learnqtp.com/forums/Forum-VB-Scripting-Descriptive-Programming)
+--- Thread: General run error (/Thread-General-run-error--3006)

General run error - vijay44 - 01-22-2010

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

RE: General run error - sreekanth chilam - 01-22-2010

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"

RE: General run error - vijay44 - 01-22-2010

Hi,
I am still getting the same problem.

still shows generall error.
Regards;
vijay

RE: General run error - Saket - 01-25-2010

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

RE: General run error - Ajit.2k6 - 02-09-2010

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