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
