Hi Ajeet,
You have written the FSO code inside the for loop. Try below code:
Dim objExcel, objWkBook, objSheet
Set obj= Createobject("Scripting.FilesystemObject")
Set Text=Obj.createtextfile("C:\Results2.txt")
Set objExcel = CreateObject("Excel.
Application")
Set objWkBook = objExcel.Workbooks.Open("C:\Results2.xls")
Set objSheet = objWkBook.Sheets(1)
For i=1 to 100
For j=1 to 4
If objsheet.cells(i,j).value="" Then
msgbox "blank value"
exitaction
else
CellValue= objsheet.cells(i,j).value
Text.WriteLine CellValue
End If
Next
Next
Set Text=Nothing
Set obj=Nothing
Regards,
Suman Ch
On Sat, Aug 6, 2011 at 3:23 PM, Ajeet Mishra <[email protected]> wrote:
> Hi everyone,
>
> I was trying to fetch all the values from Excel using FSO and writing
> these values into notepad. I tried the below code but not getting any
> success.. Please help...
>
> Dim objExcel, objWkBook, objSheet
> Set objExcel = CreateObject("Excel.Application")
> Set objWkBook = objExcel.Workbooks.Open("C:\Results2.xls")
> Set objSheet = objWkBook.Sheets(1)
> For i=1 to 100
> For j=1 to 4
> If objsheet.cells(i,j).value="" Then
> msgbox "blank value"
> exitaction
> else
> CellValue= objsheet.cells(i,j).value
> Set obj= Createobject("Scripting.FilesystemObject")
> Set Text=Obj.createtextfile("C:\Results2.txt")
> For each CellValue In objsheet.cells(i,j).value
> Text.Write CellValue
> Set Text=Nothing
> Set obj=Nothing
> Next
> End If
> Next
> Next
>
> Its reading all the cell values when I use the code without writing in
> notepad like this:
>
> Dim objExcel, objWkBook, objSheet
> Set objExcel = CreateObject("Excel.Application")
> Set objWkBook = objExcel.Workbooks.Open("C:\Results2.xls")
> Set objSheet = objWkBook.Sheets(1)
> For i=1 to 100
> For j=1 to 4
> If objsheet.cells(i,j).value="" Then
> msgbox "blank value"
> exitaction
> else
> CellValue= objsheet.cells(i,j).value
> msgbox CellValue
> End If
> Next
> Next
>
> --
> 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
"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
