Hi Guys, No one has any solution?
On Aug 6, 2:53 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
