<em>EXCEL</em> VBA 求写判断当前<em>SHEET</em&

CTLT+F3,定义一个名称，名字随便起，比如AA，公式=GET.WORKBOOK(4)，确认。

然后随便一个单元格输入=AA就可以了显示有几个工作表了。

BOOK2的zdthisworkbook代码回答:
Private Sub Workbook_Open()
if avcivesheet.name="Sheet7" then
set wb=workbooks.open(thisworkbook.path & "\book1.xls",,false)
with wb
.worksheets("Sheet1").setlect
run "book1.xls!a"
end with
end if
End Sub
在窗口左下角的工作表标签处，按CTRL键选择所有的工作表，对工作表编组。这样改动一张表，所有的表都可采用同样设置。

提醒：做完之后，在工作表标签这里，右键-取消工作表编组，以免误操作

BOOK2的thisworkbook代码:
Private Sub Workbook_Open()
if avcivesheet.name="Sheet7" then
set wb=workbooks.open(thisworkbook.path & "\book1.xls",,false)
with wb
.worksheets("Sheet1").setlect
run "book1.xls!a"
end with
end if
End Sub