[已解决]求助:如何提取当前工作表名称,并按此名称查询.(其他代码已有)

hzjdtll

Sub PE大小头()


   Application.ScreenUpdating = False

  Sheets("PE大小头").Range("a5:p58").ClearContents    '首先清除Sheets("PE大小头")工作表中上回查询的历史数据


n = 5        'n指行数,因为查询表内第一行是标题,所以从第2行开始存放数据


   For i = 5 To Sheets("数据源").Range("b65536").End(xlUp).Row    '从Sheets("数据源")工作表的第2行开始查询


        If Sheets("数据源").Cells(i, "I") = "PE大小头" Then  ''设置查询条件,
Sheets("数据源").Range("a" & i & ":P" & i).Copy Sheets("PE大小头").Range("a" & n)




            n = n + 1    'n+1,n行已写入数据,n号往下移一行



       End If

   Next i


End Sub


问题:
当前工作表名称为"PE大小头",因为我有类似的表二十几个,各名称不同,如何自动提取当前工作表的名称,并按此名称查询单元格的数据并复制.
即把上面语句中的查询条件"PE大小头"换为一个变量(当前工作表名称),切换到另一个工作表时,自动提取工作表名称,并按此名查询.
求语句!

最佳答案

月排行榜 / 总排行榜

cbg2008

2013-3-6 18:19

hzjdtll 发表于 2013-3-6 18:07
附件已经上传,在顶楼.

好了，现在我把"PE三通"表中的按钮指定宏为"PE大小头"，都可以执行了。
130223材料总帐（调试）.rar (24.41 KB, 下载次数: 28)

2013-3-6 18:19 上传

点击文件名下载附件

跳转到最佳答案楼层

cbg2008

把Sheets("PE大小头")改成Activesheet
把"PE大小头"改成Activesheet.Name

cbg2008

运行之前手工选择一下当前工作表就可以，也可以在程序中选择工作表

hzjdtll

cbg2008 发表于 2013-3-6 17:45
把Sheets("PE大小头")改成Activesheet
把"PE大小头"改成Activesheet.Name

不行啊,运行程序没反应,不知是什么原因

cbg2008

hzjdtll 发表于 2013-3-6 17:53
不行啊,运行程序没反应,不知是什么原因

最好上传文件，没文件猜起来麻烦

hzjdtll

附件已上传,求帮助

hzjdtll

cbg2008 发表于 2013-3-6 17:56
最好上传文件，没文件猜起来麻烦

附件已经上传,在顶楼.

cbg2008

hzjdtll 发表于 2013-3-6 18:07
附件已经上传,在顶楼.

好了，现在我把"PE三通"表中的按钮指定宏为"PE大小头"，都可以执行了。
130223材料总帐（调试）.rar (24.41 KB, 下载次数: 28)

2013-3-6 18:19 上传

点击文件名下载附件

hzjdtll

cbg2008 发表于 2013-3-6 18:19
好了，现在我把"PE三通"表中的按钮指定宏为"PE大小头"，都可以执行了。

呵呵,太好了,谢谢你了.帮了我大忙.