怎么在VB中调用EXCEL OBJECT更改SHEET中某一单元格的背景色(在线等)

Question

如题

Answer 1

Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet    Set xlApp = CreateObject("Excel.Application") '?建EXCEL?象
    Set xlBook = xlApp.Workbooks.Open("c:\222.xls") '打?已?存在的EXCEL工件簿文件
    xlApp.Visible = True '?置EXCEL?象可?（或不可?）
    Set xlSheet = xlBook.Worksheets("sheet1") '?置活?工作表
    
    xlSheet.Range("Q1:V1").Select
    xlSheet.Range("Q1:V1").Interior.Color = 6

Answer 2

楼上正解,要注意在VB中引用Excel对象：Microsoft Excel 9.0 Object Libaray,否则出错.

Answer 3

测试通过
引用Excel 10.0 对象库Private Sub Command2_Click()
    Dim xlapp As New Excel.Application
    Dim xlbook  As Excel.Workbook
    Dim xlsheet As Excel.Worksheet
    
    xlapp.Caption = "test"
    Set xlbook = xlapp.Workbooks.Add
    Set xlsheet = xlbook.Worksheets(1)
    
    xlapp.Range("A1").Select
    With Selection.Interior
        .ColorIndex = 46
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    xlapp.Visible = True
End Sub