51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 8512|回复: 9
打印 上一主题 下一主题

[资料] 如何在 QuickTest Professional 测试中使用 Excel 对象

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2006-12-5 10:34:51 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
产品:Mercury QuickTest Professional 5.x 和 Mercury QuickTest Professional 6.x      

问题:如何在 QuickTest Professional 测试中使用 Excel 对象

解决方案:参阅 Microsoft 的 MSDN 库以了解 Excel Object 方法和属性的完整列表

您可以参阅“Microsoft Excel 2000 Visual Basic for Applications object model”(Microsoft Excel 2000 Visual Basic for Applications 对象模型)以了解在 QuickTest Professional (QTP) 脚本内可使用的 Excel 方法和属性完整列表。 您可以在 QTP 脚本内使用这些 Excel 脚本方法创建工作簿,创建新表单,输入数据等。

有关 Excel 对象方法和属性的完整列表,请参阅 MSDN L库 - Microsoft Excel 对象模型 (http://msdn.microsoft.com/librar ... delApplication.asp)

下面是使用 Excel 对象模型方法从词典对象将数据输出到 Excel 文件的子过程。 随附的是使用下面子过程的 QuickTest Professional 测试工作示例。 示例将从网页检索信息,并使用 ReportInformation 子过程将它输出到 Excel 文件 (info.xls)。

为运行测试,请将附件解压缩到临时文件夹,并启动载有 web 支持的 QTP:

CPT31467.zip

示例:

Sub ReportInformation(dictionary, filename)
' create the Excel object
Set ExcelObj = CreateObject("Excel.Application")

' add a new Workbooks and a new Sheet
ExcelObj.Workbooks.Add

Set NewSheet = ExcelObj.Sheets.Item(1)
NewSheet.Name = "Page Information"

' loop through all the information in the Dictionary object
' and report it to the Excel sheet
row = 1

For Each key In dictionary.keys
NewSheet.Cells(row,1) = key
NewSheet.Cells(row,2) = dictionary(key)

         row = row + 1

      Next

      ' customize the Sheet layout

NewSheet.Columns("A:A").ColumnWidth = 20
NewSheet.Columns("A:A").Font.Bold = True
NewSheet.Columns("B:B").ColumnWidth = 60
NewSheet.Columns("B:B").HorizontalAlignment = -4108 ' xlCenter

      ' save the Excel file

      ExcelObj.ActiveWorkbook.SaveAs filename

      ' close the application and clean the object

      ExcelObj.Quit

      Set ExcelObj = Nothing

   End Sub

备注:

Excel 的对象方法不是 QuickTest Professional 的一部分,因此,不保证它们能起作用,并且 Mercury Technical Support 不支持它们。 Microsoft 可能对这些方法所做的任何更改与 Mercury 无关。

登录到 Mercury 客户支持以访问这些相关文章:

Problem ID 34574 - How to add cells, rows, or columns to an Excel document(问题 ID 34574 - 如何添加单元格、行或列到 Excel 文档)

Problem ID 28214 - How to get data from an Excel file without importing the data to the data table(问题 ID 28214 - 如何从 Excel 文件获得数据而不将数据导入数据表)

Problem ID 41551 - How to run an Excel macro from QuickTest Professional(问题 ID 41551 - 如何从 QuickTest Professional 运行 Excel 宏)

Problem ID 28332 - How to write data to an Excel file without importing the data to the data table(问题 ID 28332 - 如何将数据写入 Excel 文件而不将数据导入数据表)

Problem ID 44128 - How to set the number format of cells in an Excel file(问题 ID - 如何在 Excel 文件中设置单元格的数字格式)

Problem ID 43591 - How to hide/display columns or rows in an Excel document(问题 ID 43591 - 如何隐藏/显示 Excel 文档中列或行)

Problem ID 43589 - How to change the font and cell color in an Excel document(问题 ID 43589 - 如何更改 Excel 文档中的字体和单元格颜色)

Problem ID 43645 - How to add formatting to the cell in an Excel document(问题 ID 43645 - 如何添加格式化到 Excel 文档中的单元格)
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

  • TA的每日心情
    开心
    2016-2-27 08:48
  • 签到天数: 2 天

    连续签到: 1 天

    [LV.1]测试小兵

    2#
    发表于 2006-12-17 15:54:58 | 只看该作者
    谢谢楼主提供了这些关于Excel方面的资料!
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    3#
    发表于 2006-12-18 10:08:19 | 只看该作者
    非常感谢~~~~!!!!
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    4#
    发表于 2006-12-19 10:29:45 | 只看该作者
    感谢!sdlkfj3
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
    发表于 2007-5-1 11:51:52 | 只看该作者
    感謝分享
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    6#
    发表于 2007-7-3 11:48:32 | 只看该作者
    谢谢哦
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    7#
    发表于 2007-7-3 14:19:44 | 只看该作者
    ding
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    8#
    发表于 2007-7-5 14:46:01 | 只看该作者
    往上顶
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    9#
    发表于 2007-8-5 16:08:43 | 只看该作者
    好东西呀
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    10#
    发表于 2009-6-20 10:53:55 | 只看该作者
    vb 还不太懂啊!
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-15 02:16 , Processed in 0.093836 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表