VB中如何选择工作表 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → VB中如何选择工作表

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 4114 人关注过本帖

标题：VB中如何选择工作表

只看楼主加入收藏

lx5656

等　级：新手上路
帖　子：29
专家分：0
注　册：2015-4-15
结帖率：33.33%

楼主

问题点数：0 回复次数：11

VB中如何选择工作表

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

搜索更多相关主题的帖子: 工作表　成绩表　如何　

2015-05-20 17:17

HVB6

等　级：贵宾
威　望：15
帖　子：331
专家分：561
注　册：2013-10-30

第 2 楼

得分:0

回复楼主 lx5656

Sheets("总表").Select如何选择下面的表
Sheets("成绩表").Select这是VBA中的代码
改为
Sheets("总表").Activate
Sheets("成绩表").Activate

2015-05-20 17:29

lx5656

等　级：新手上路
帖　子：29
专家分：0
注　册：2015-4-15

第 3 楼

得分:0

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 编辑 ]

2015-05-20 17:32

HVB6

等　级：贵宾
威　望：15
帖　子：331
专家分：561
注　册：2013-10-30

第 4 楼

得分:0

回复 3楼 lx5656

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"
  sht.Sheets("成绩表").Activate
    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

2015-05-20 17:42

lx5656

等　级：新手上路
帖　子：29
专家分：0
注　册：2015-4-15

第 5 楼

得分:0

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

2015-05-20 17:47

HVB6

等　级：贵宾
威　望：15
帖　子：331
专家分：561
注　册：2013-10-30

第 6 楼

得分:0

回复 5楼 lx5656

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"
Set sht = WB.Worksheets("成绩表")
  sht.Activate
    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

2015-05-20 17:50

lx5656

等　级：新手上路
帖　子：29
专家分：0
注　册：2015-4-15

第 7 楼

得分:0

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

2015-05-20 17:54

lx5656

等　级：新手上路
帖　子：29
专家分：0
注　册：2015-4-15

第 8 楼

得分:0

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
为什么增加工作表会出错？

2015-05-20 18:02

HVB6

等　级：贵宾
威　望：15
帖　子：331
专家分：561
注　册：2013-10-30

第 9 楼

得分:0

回复 8楼 lx5656

WB.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

收到的鲜花