如何控制字体颜色

peutetre

QTP在写一个Excel文件时，想把某些固定的文字写成特殊的颜色，例如“通过”或“失败”写成字体为红色，如何实现？

lantianwei

我也需要 大家一起研究啊

danmy

QTP中调用vba,或者预先把写测试结果的列设置条件格式

jmy_1981

如题。

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

不错，比较强，QTP还能调用EXCEL函数

peutetre

原帖由 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

vbs中提供了很多颜色的常数如: vbblack,vbblue
这样可读性比较高，不必用rgb函数

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