51Testing软件测试论坛

标题: 如何在 QuickTest Professional 测试中使用 Excel 对象 [打印本页]

作者: netsky_lt 时间: 2006-12-5 10:34
标题: 如何在 QuickTest Professional 测试中使用 Excel 对象
产品：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 文档中的单元格）

作者: walker1020 时间: 2006-12-17 15:54
谢谢楼主提供了这些关于Excel方面的资料！

作者: htot05 时间: 2006-12-18 10:08
非常感谢~~~~!!!!

作者: zhyb_2008 时间: 2006-12-19 10:29
感谢！sdlkfj3

作者: jutlin 时间: 2007-5-1 11:51
感謝分享

作者: 刘洪鹏 时间: 2007-7-3 11:48
谢谢哦

作者: Benqqq 时间: 2007-7-3 14:19
ding

作者: 紫慕 时间: 2007-7-5 14:46
往上顶

作者: 飞天侠 时间: 2007-8-5 16:08
好东西呀

作者: sunshines 时间: 2009-6-20 10:53
vb 还不太懂啊！

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)