VBA设置Excel标题栏，Application.Caption属性

 

Option Explicit

'返回或设置一个 String 值，它代表出现在 Microsoft Excel 主窗口标题栏中显示的名称。

Sub GetTheTitle()
    MsgBox Application.Caption, , "获取标题"
End Sub

'注意2016中测试发现不会全改标题，仅在文件名后显示此标题
Sub ModifyTheTitle()
    Application.Caption = "修改标题"
End Sub

'设置标题为空，则可恢复标题栏
Sub RrestoreTheTitle()
    Application.Caption = Empty
End Sub