怎样设定Excel表格的某一格（如A列1行）的底色？

[lza7]

怎样设定Excel表格的某一格的底色？
如将A列1行的底色设为红色。

[liangfang]

如将A列1行的底色设为红色。


Range("A1").Interior.Color = RGB(0, 255, 0)

[ukyoxh]

Dim exl As New Excel.Application
Dim book As Excel.Workbook
Dim sheet As Excel.Worksheet
'先使用excel制作一个模板
Set book = exl.Workbooks.Open("c:\temp1.xls")
Set sheet = book.Worksheets(1)
book.Application.DisplayAlerts = False
'在excel的格子中写入你想打印的内容
With sheet

'这里使用
Range("A1").Interior.Color = RGB(0, 255, 0)

'这里使用

End With

book.Save
book.Close
Set book = Nothing
exl.Quit
Set exl = Nothing