Hi Uday:
Thanks for the help. It worked like a charm!!!
Actually in my code there is no comma after the ImportSheet; when I typed
in here I might have typed the comma by mistake. Good catch though.
Thank you for taking your time to go through the code and posting a
solution. ReadAll did the trick...
Thanks again,
SunCat
On Saturday, May 24, 2014 2:10:01 AM UTC-5, udayanem wrote:
>
>
> Please find the correct code below:
> tdata = fnGetExcelData("mData") ' I am hoping this is your
> column name in Excel Sheet
> Browser().Page().WebEdit().set tdata
>
> Function fnGetExcelData(ColumnName)
> workbookPath="C:\Test\TestData.xls"
> sSheetName= Environment.Value("TestName") ' Make sure your test name
> matches with the sheet name here
> dim sColValue
> fnGetExcelData = "empty"
> DataTable.AddSheet("dtDataSheet")
> DataTable.ImportSheet*,* workbookPath,sSheetName,"dtDataSheet" (It
> errors out here) ' I see problem here in your code. You have give ",",
> but give space after ImportSheet
> The syntax is: DataTable.ImportSheet
> FileName,SourceFileName/Index,DestinationSheetName/Index
> DataTable.SetCurrentRow 1
> sColValue = DataTable.Value(ColumnName, "dtDataSheet")
> fnGetExcelData = sColValue
> DataTable.DeleteSheet("dtDataSheet")
>
> End Function
>
>
> For your second approach, see below code:
>
> fileloc = "C:\Test\TestData\hData.txt"
> Set ofso = CreateObject("Scripting.FileSystemObject")
> Set ofile= ofso.OpenTextFile(fileloc, 1)
> tdata = ofile.ReadAll 'It reads the entire content of the File
> Browser().Page().WebEdit().set tdata
>
> Please let me know if it didnt solve your problem.
>
> Thanks,
> Uday
> QTP / UFT Videos <https://www.youtube.com/user/AnemUday/videos>
>
>
>
>
> On Friday, 23 May 2014 23:39:10 UTC+5:30, SunCat wrote:
>>
>> I need to copy the content of a text file and paste it to a text area. I
>> tried the following methods:
>>
>> 1. Using Excel
>> Saving the text file as a parameter in one cell of an excel sheet and
>> copying it to the data table at run time and pasting it to the text field.
>> Then it comes with the error message "DataTable.ImportSheet operation
>> failed. Invalid file"
>>
>> Following is the code I tried for this method.
>>
>> Test file.
>>
>> tdata = fnGetExcelData("mData")
>> Browser().Page().WebEdit().set tdata
>>
>> Function fnGetExcelData(ColumnName)
>> workbookPath="C:\Test\TestData.xls"
>> sSheetName= Environment.Value("TestName")
>> dim sColValue
>> fnGetExcelData = "empty"
>> DataTable.AddSheet("dtDataSheet")
>> DataTable.ImportSheet,workbookPath,sSheetName,"dtDataSheet" (It
>> errors out here)
>> DataTable.SetCurrentRow 1
>> sColValue = DataTable.Value(ColumnName, "dtDataSheet")
>> fnGetExcelData = sColValue
>> DataTable.DeleteSheet("dtDataSheet")
>>
>> End Function
>>
>> 2. Using Filesystem
>>
>> Test file
>>
>> fileloc = "C:\Test\TestData\hData.txt"
>> Set ofso = CreateObject("Scripting.FileSystemObject")
>> Set ofile= ofso.OpenTextFile(fileloc, 1)
>> Do while ofile.AtEndofStream <> True
>> tdata = ofile.ReadLine()
>> Browser().Page().WebEdit().set tdata
>> Loop
>>
>> In this case the data gets overwritten by the next line and at the end
>> only the last line of the file is there in the text area.
>>
>> So how do I go about this to get the whole text file to get copied to the
>> text area in the web page.
>>
>> Thanks,
>> SunCat
>>
>
--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
---
You received this message because you are subscribed to the Google Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
