1,ALT+F11打开VBA编辑器2,然后插入一个模块3,加入下面的代码Sub tt()Application.Caption = ThisWorkbook.NameEnd Sub
装个OFFICE TAB能解决你的问题,真心好用。
以上。
Private Sub Worksheet_Activate()Application.Caption = ActiveWorkbook.NameEnd Sub