51Testing软件测试论坛

标题: 如何控制字体颜色 [打印本页]

作者: peutetre 时间: 2007-11-16 15:19
标题: 如何控制字体颜色
QTP在写一个Excel文件时，想把某些固定的文字写成特殊的颜色，例如“通过”或“失败”写成字体为红色，如何实现？

作者: lantianwei 时间: 2007-11-16 15:33
我也需要大家一起研究啊

作者: danmy 时间: 2007-11-16 16:29
QTP中调用vba,或者预先把写测试结果的列设置条件格式

作者: jmy_1981 时间: 2007-11-16 17:34
标题: lz可以试试看用QTP调用Excel的函数
如题。

Example:
// Create the Excel object
Set ExcelObj = CreateObject("Excel.Application")
ExcelObj.Visible = true

// Open up the Excel file which has the rows or columns to be hidden.
ExcelObj.Workbooks.Open "C:\temp\Book1.xls"

// Get the sheet
Set NewSheet = ExcelObj.Sheets.Item(1)

// Loop through the first 3 rows
for i = 1 to 3
// Capture the value in the cell
value = NewSheet.Cells(i,1)
msgbox value
// Change the font color
NewSheet.Cells(i,1).Font.Color = RGB(0, 255, 0) 'Font color
// Change the cell color
NewSheet.Cells(i,1).Interior.Color = RGB(0, 0, 0) 'Background color
Next

// Save the Excel file
ExcelObj.ActiveWorkbook.Save

' Close the application and clear the object reference
ExcelObj.Quit
Set ExcelObj = Nothing

希望有帮助。

作者: jimmyzhou 时间: 2007-11-16 17:41
不错，比较强，QTP还能调用EXCEL函数

作者: peutetre 时间: 2007-11-19 11:48

原帖由 jmy_1981 于 2007-11-16 17:34 发表
如题。

Example:
// Create the Excel object
Set ExcelObj = CreateObject("Excel.Application")
ExcelObj.Visible = true

// Open up the Excel file which has the rows or columns to be hidden.
Exce ...

已实现，多谢帮忙！

作者: rivermen 时间: 2007-11-19 18:05
vbs中提供了很多颜色的常数如: vbblack,vbblue
这样可读性比较高，不必用rgb函数

另外，很多类vb 语言都能够在excel中的宏命令中调通，不妨试试

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