From: Qwerty Qwerty <q20105@...>
Date: 2007-07-24T20:52:02+09:00
Subject: Inputting part of array into Excel

Newby Excel question

I am trying to input data from a column, iterate through the column, do
some tests and then output the results into an adjacent column. For
example I have a basic script below, which reads in an array from excel
and takes the first row and first column and iterates through the rows:

The cells A1:A5 contain e.g. the following:

#www.google.com
#www.yahoo.com
#www.microsoft.com
#www.sun.com
#www.intel.com

As each of the links is loaded I do a basic assert and depending on the
result would like to put "Passed" or "Failed" into the adjacent column
B1:B5
Using "puts" I can get it to do this, but I cannot figure out how to put
the result into Excel?
Any help appreciated? Thanks in advance.



excel = WIN32OLE::new('excel.Application') #connect to Excel
excel['Visible'] = true
workbook =
excel.Workbooks.Open('C:\IterateThroughArrayAndPutResult.xls') #
spreadsheet name and location
worksheet = workbook.Worksheets(1) #get hold of the first worksheet
$x = worksheet.Range("A1:A5")['value']#['text']# read in a 2d array
(with 1 column and 5 rows)
$x.each do |$row| # Iterate through each of the rows in turn.
$test_site = $row[0] # use this to identify the column for the data in
$row.
ie = Watir::IE.new_process #Start a new process of IE
ie.goto($test_site) # goto the first row in the first column and grap
the URL, put this into the browser
if assert(ie.button(:name, "doit")) # a basic test to see if text exists
on each of these websites
puts "Test Passed: Button exits. Actual Results match Expected Results."
worksheet.Range("B1:B5") ['Value'] = ['Passed'] # Enter the following
text into the cell
else
puts "Test Failed: Button does not exists."
worksheet.Range("B1:B5") ['Value'] = ['Failed'] # Enter the following
text into the cell
end
-- 
Posted via http://www.ruby-forum.com/.