请问一下用VB怎么任意设置单元格的背景?
还有一个问题怎么拷贝一个sheet,然后建立另一个(要包括里面的数据)谢谢啦~

解决方案 »

  1.   

    问题2:
        Sheets("Sheet1").Select
        Sheets("Sheet1").Copy Before:=Sheets(1)
        Sheets("Sheet1 (2)").Select
        Sheets("Sheet1 (2)").Name = "SheetNew"
      

  2.   

    问题2:
    把Sheet1的数据拷贝到新的Sheet里,并命名新的Sheet为SheetNew
    Private Sub Command1_Click()
        Dim objExcel As New Excel.Application
        Dim objBook As New Excel.Workbook
        Dim objSheet As New Excel.Worksheet
        
        Set objBook = objExcel.Workbooks.Open("c:\test.xls", , True)    objExcel.Visible = True
        
        objExcel.Sheets("Sheet1").Select
        objExcel.Sheets("Sheet1").Copy Before:=Sheets(1)  '复制数据
        objExcel.Sheets("Sheet1 (2)").Select
        objExcel.Sheets("Sheet1 (2)").Name = "SheetNew"  '重新命名新的工作表
        
        Set objExcel = Nothing
        Set objBook = NothingEnd Sub
      

  3.   

    设置背景色:objExcel.Sheets("Sheet1").Range("A1:B3").Interior.ColorIndex = 4objExcel.Sheets("Sheet1").Range("C4:G8").Interior.ColorIndex = 35