|
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
希望有帮助。 |
|