打开Excle的时候,有时候不需要显示Miscrosoft Excle,如下图标记,想把标记内的内容替换为:管理系统
操作代码:
Public Sub 修改标题() Application.Caption = "管理系统" MsgBox "Excle标题已经被修改为:" & Application.Caption & "!下面将恢复原标题!" Application.Caption = vbNullString End Sub
操作结果如下:
点击上图修改后出现弹窗:
打开Excle的时候,有时候不需要显示Miscrosoft Excle,如下图标记,想把标记内的内容替换为:管理系统
操作代码:
Public Sub 修改标题() Application.Caption = "管理系统" MsgBox "Excle标题已经被修改为:" & Application.Caption & "!下面将恢复原标题!" Application.Caption = vbNullString End Sub
操作结果如下:
点击上图修改后出现弹窗:
转载于:https://www.cnblogs.com/OliverQin/p/7324979.html