请教高手，在VB中如何选择激活另外一个工作表
比如   
在Sheets("总表").Select如何选择下面的表
Sheets("成绩表").Select这是VBA中的代码

Private Sub Command7_Click()
 Dim EXAPP As Excel.Application
 Dim WB As Excel.Workbook
 Dim sht As Excel.Worksheet
 Set EXAPP = CreateObject("excel.application")
 Set WB = EXAPP.Workbooks.Open("d:\成绩表.xls")
 Set sht = WB.Worksheets("总表")
    sht.Rows("2:2").Select
    sht.Range("C2").Activate
    sht.Range("C2").AutoFilter
   sht.Range("C2").AutoFilter Field:=5, Criteria1:="1"
  Sheets("成绩表").Activate[/color]
    Sheets.Add
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "1"
    Sheets("总表").Select
    Cells.Select
    Selection.Copy
    Sheets("1").Select
    Cells.Select
    ActiveSheet.Paste
    Cells.Select
    Sheets("总表").Select
    Rows("2:2").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
红色部分出错！！，我也不知道，这里是选择成绩表，但是就是提示错误！就是成绩表那里出错了！

[ 本帖最后由 lx5656 于 2015-5-20 17:34 编辑 ]

我试了，换是这句出错误，提示未找到方法或数据成员

谢谢！这个语句对了，我抓紧时间改下面的语句，谢谢了

Sheets.Add
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "1"
    Sheets("总表").Select
    Cells.Select
    Selection.Copy
    Sheets("1").Select
    Cells.Select
    ActiveSheet.Paste
    Cells.Select
    Sheets("总表").Select
    Rows("2:2").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
为什么增加工作表会出错？

谢谢高手，问题解决

WB.Sheets.Add
    WB.Sheets("Sheet1").Activate
    WB.Sheets("Sheet1").Name = "1"
 Set sht = WB.Worksheets("总表")
    sht.Activate
    WB.Sheets("总表").Activate
    sht.Cells.Activate
  WB.Sheets("总表").Copy
Set sht = WB.Worksheets("1")
   WB.Sheets("1").Activate
  sht.Paste
这句错误，我用了很多方法都出错，我总感觉粘贴和复制都有错误，但是有不知道错误是什么。。。