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

发布网友发布时间：2022-05-15 14:05

共2个回答

热心网友时间：2023-10-26 15:40

如你所说，把以下代码复制到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

希望对你有帮助。

热心网友时间：2023-10-26 15:41

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