第1个回答 2010-11-26
我写了个样例,也许对你有帮助:
Sub Macro1()
Dim mySheetName As String, myWookBookName As String
'得到当前工作表名
mySheetName = ActiveSheet.Name
'切换到 Sheet2 工作表(当前文件中要存在 Sheet2)
Sheets("Sheet2").Select
'回到原工作表
Sheets(mySheetName).Select
'得到当前工作簿名
myWookBookName = ActiveWindow.Caption
'切换到另一个工作簿(如果已打开了另一个文件,就会切过去。)
ActiveWindow.ActivateNext
'回到原工作簿
Windows(myWookBookName).Activate
End Sub
有疑问,请Hi我或给我发百度消息
GoodLuck!