能否更改 EXCEL 的窗口标题？

cg1

EXCEL 里面打开文档以后标题栏会显示

Microsoft Excel - book1.xls

等等，能否我打开 BOOK1.XLS 的时候在标题栏不显示 BOOK1.XLS 而显示其他的信息呢？

breezy

同问，application.caption="新标题",只能更改前面的Microsoft Excel，后面的文件名好像更改不了。

yuanzhuping

QUOTE:

以下是引用cg1在2007-9-5 10:12:28的发言：

EXCEL 里面打开文档以后标题栏会显示

Microsoft Excel - book1.xls

等等，能否我打开 BOOK1.XLS 的时候在标题栏不显示 BOOK1.XLS 而显示其他的信息呢？

把工作簿的文件名改成你要显示的信息。

cg1

把工作簿的文件名改成你要显示的信息。

楼上的高手，请看一下我的题目好么？“能否我打开 BOOK1.XLS 的时候在标题栏不显示 BOOK1.XLS 而显示其他的信息呢？”

yuanzhuping

用application.caption="XXX",只能把前面的Microsoft Excel改变，后面的Book1,就是工作簿的名称，如果不改文件名好像没有办法改变。

热浪2006

QUOTE:

以下是引用cg1在2007-9-5 10:12:28的发言：

EXCEL 里面打开文档以后标题栏会显示

Microsoft Excel - book1.xls

等等，能否我打开 BOOK1.XLS 的时候在标题栏不显示 BOOK1.XLS 而显示其他的信息呢？

变通做法（只是最右端有3个点，不注意看不太出来）：

   Application.Caption = "XXXXXXX" & String(80, "　")'注意："　"是全角空格

andysky

QUOTE:

以下是引用热浪2006在2007-9-5 15:02:17的发言：

变通做法（只是最右端有3个点，不注意看不太出来）：

   Application.Caption = "XXXXXXX" & String(80, "　")'注意："　"是全角空格

好思路。不过空格可以用这个Space (80)精减一些。

[此贴子已经被作者于2007-9-5 15:34:35编辑过]

yxy博

模块中:

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

ThisWorbook中

Private Sub Workbook_Open()
Dim hWndForm As Long
  hWndForm = FindWindow("XLMAIN", Application.Caption)
  SetWindowText hWndForm, "文件名"

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim hWndForm As Long
  hWndForm = FindWindow("XLMAIN", Application.Caption)
  SetWindowText hWndForm, "文件名"
End Sub

breezy

QUOTE:

以下是引用andysky在2007-9-5 15:12:17的发言：

好思路。不过空格可以用这个Space (80)精减一些。

 

space(80)是半角的空格，用space(160)就行啦~

热浪2006

QUOTE:

以下是引用andysky在2007-9-5 15:12:17的发言：

好思路。不过空格可以用这个Space (80)精减一些。

我试过，不行的！