EXCEL如何用超链接打开一个新工作本时关闭之前的工作本

Question

例如现在BOOK1有个链接到BOOK2，我想点击此链接时能够在打开BOOK2的同时关闭BOOK1，请问如何处理？
BOOK1和BOOK2只是举例，请给我个通用的公式，谢谢
没错，我想要的就是VBA的语言要怎么写。。。不胜感激。。

Answer 1

如你所说，把以下代码复制到BOOK1的VBA的THISWORKBOOK代码窗口。就可以实现你的要求

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

Workbooks("BOOK2.xls").Activate
Workbooks("BOOK1.xls").Close savechanges:=True

End Sub

如果EXCEL的文件名不确定，而你例子中的BOOK1是最后打开的一个EXCEL文件，也可以用下面的代码，就可以实现不管BOOK1是什么名字都可以关闭。

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

Workbooks(Workbooks.Count).Activate
Workbooks(Workbooks.Count - 1).Close savechanges:=True

End Sub

希望对你有帮助。

Answer 2

这种操作需要VBA编程，公式是不可能有这种功能的