那个高手给小弟一个Robot调用Excel的完整例子啊

cscsu

我在IBM website 上看过但不是很明白,script总有error: ObjectValue is set to nothing.以及应该用那个头文件

ilovejolly

SQA basic里面?如果是就很简单,你在网上搜vb调excel组件,大把的文章

hhup

about rational robot datapool function:

there are two localizations on datapool, one is the max row is 256; the other is non-editable.

the suggestion way is to use excel file to replace the datapool.

SQABasicLanguage provide some APIs to conduct excel file which are similar with VB Language, this is example:

dim excel as Object

dim book as Object

dim worksheet as Object

'check the excel application is valid

Set excel = GetObject(,"excel.application")      ;         
    if(excel Is Nothing) then
        Set excel = CreateObject("excel.application")
        if(excel Is Nothing) then
             MsgBox "Couldn't find Excel!"
             Exit Sub
        End if
    End if

Set book = excel.Workbooks.Open(EXCEL_PATH)

Set worksheet = book.Worksheets(SHEET_NAME)

' then you can use variable worksheet to conduct sheet of excel file

' read the data in excel file

ccystring = worksheet.Cells(row,column).Value

' write the data in excel file

worksheet.Cells(row,column).Value = ccystring



the conclusion is:

excel itself can provide some calculation/string function, so it may be more effective than datapool, but till now i can only conduct excel cells with row and column number, so in the codes there will be too many number express cell location, which reduces maintainability of scripts. but it does be a way to do something ~~haha

ilovejolly

http://bbs.51testing.com ... ighlight=%2Bdjw1999

cscsu

我想用Yahoo上给的function(Excel.zip)不知你们看过没有

chijj

Sub Main
    Dim ExcelApp    As Object
    Dim ExcelBook   As Object
    Dim ExcelSheet As Object
    Dim intRows      As Integer
    Dim strName     As String
    Dim strPsd        As String

    '创建EXCEL对象
    Set ExcelApp = CreateObject("Excel.Application")
    Set ExcelBook = ExcelApp.Workbooks.Open("C:\data.xls")     
    Set ExcelSheet = ExcelBook.Worksheets("Sheet1")
    ExcelApp.Visible = False
   
    if (ExcelApp is nothing) or (ExcelBook is nothing) or (ExcelSheet is nothing)  then
        ......
    end if
   
    intRows = ExcelSheet.UsedRange.Rows.Count

    For intRows = 3 To intRows-1
        '获取单元格内数据，赋值给变量
        
        '从Excel读取数据，赋值给相应变量
        strName= ExcelSheet.Cells(intRows, 1).Value
        strPsd = ExcelSheet.Cells(intRows, 2).Value

        ......

        Doevents
    Next

    '释放ExcelApp对象
    ExcelBook.Close (True)
    ExcelApp.Quit
    Set ExcelApp = Nothing

End Sub