Interested to Buy Any Domain ? << Click Here >> for more details...
Dim ExcelSheet
Set ExcelSheet = CreateObject("Excel.Application")
excelsheet.application.visible = true
ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column
A, row 1"
' Save the sheet.
ExcelSheet.SaveAs "C:\DOCS\TEST.XLS"
' Close Excel with the Quit method on the Application
object.
ExcelSheet.Application.Quit
after run this script i am getting error"The test cannot
continue due to unrecoverable error"
- 3 Answers
- 27851 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / nani
Hi try this one:
Set ExcelObj=CreateObject ("Excel.Application")
ExcelObj.WorkBooks.Add
Set NewSheet=ExcelObj.Sheets.Item(1)
NewSheet.Name="Nagendar"
ExcelObj.Cells(1, 1).Value = "Number1"
ExcelObj.Cells(1, 2).Value = "Number2"
ExcelObj.Cells(2, 1).Value = "23"
ExcelObj.Cells(2, 2).Value = "53"
ExcelObj.Cells(3, 1).Value = "63"
ExcelObj.Cells(3, 2).Value = "33"
ExcelObj.ActiveWorkbook.SaveAs "c:\test1.xls"
ExcelObj.Quit
Set ExcelObj = Nothing
| Is This Answer Correct ? | 9 Yes | 2 No |
Answer / dipti
Dim ExcelSheet, excelobj
Set ExcelObj = CreateObject("Excel.Application")
excelObj.visible = true
ExcelObj.Workbooks.Add
Set ExcelSheet = ExcelObj.Sheets.Item(1)
ExcelSheet.Cells(1,1).Value = "This is column A, row 1"
' Save the sheet.
ExcelObj.ActiveWorkBook.SaveAs "C:\TEST.XLS"
' Close Excel with the Quit method on the Application
' object.
ExcelObj.Quit
Set excelobj = nothing
| Is This Answer Correct ? | 8 Yes | 1 No |
Answer / abhishek
hi friends
Try this code. it must work.
setexcel=createobject("excel.application")
setexcelsheet=createobject("excel.sheet")
excelsheet.application.visible=true
excel.activesheet.cells(1,1).value=1111
excel.activesheet.cells(1,2).value=2222
excel.activesheet.cells(2,1).value=1111
excel.activesheet.cells(2,2).value="aaaa"
excelsheet.saveas "c:\xyz.xls"
| Is This Answer Correct ? | 4 Yes | 6 No |
actuall wat my doubt is:while doin regression testin we enter all +ve & -ve data....system has to accept +ve and reject -ve data.in such case we get a popup window sayin that wrong entry...now i wan to overcome this popup window..how do i go further....plz explain.i tried thru rec.scenario but of no use.
How to take screen shot of desktop by using vb script code or is there any method?
why text area checkpoints cannot used for web applications
What are the types of properties that quick test learns while recording?
waht is the diff b/w Environment variable and Global variable in qtp?? explain types of variable in qtp??
Client is able to provide budget..he want you to choose the automation tool for the web application? which one you will select ? QTP or Selenium ? what are the reasons?
tell me exact differenceb bw qtp and selenium?(could not tell open soure and licennce? difference in usage and technical difference?
I have a string "Redfort is in Delhi" how do u write vbscript for " Delhi in is Redfort"
How to automate a script in mainframes environment? I have the terminal emulator Add in. Describe in detail.
.mtr ( modular test repository or mercury test repository) plz give correct answer??
how to click on object? (with out knowing the object details) for ex: in a webpage one link is available.i want to click that link by using one menthod through qtp?
In Descriptive programing if i use this below code will it work for login window or flight Res Window. Shud i add the properties like attached text=login and text=Agent Name in the object repository and define a new object first. Pls tell me the procedure in clear inorder to execute this script. Dialog("title:=Login").WinEdit("attached text:=Agent Name:").set"agent123" Dialog("title:=Login").WinEdit("attached text:=Password:").set"mercury" Dialog("attached text:=Login").winbutton("text:=OK").click
WinRunner 
