[已解决]标题栏显示全称

xdwy81129 · 发表于 2011-1-30 21:54

如图，希望标题栏把当前的工作簿地址也加上去，而不是只显示B1.xls

未命名.JPG

谢谢解答

最佳答案

老糊涂

2011-1-30 22:05

Private Sub Workbook_Open()
ActiveWindow.Caption = ActiveWorkbook.FullName
End Sub

老糊涂 · 发表于 2011-1-30 22:05

Private Sub Workbook_Open()
ActiveWindow.Caption = ActiveWorkbook.FullName
End Sub

xdwy81129 · 发表于 2011-1-30 22:06

回复老糊涂的帖子

啊，只可以代码解决，不可以设置成永久性的吗？？？？

老糊涂 · 发表于 2011-1-30 22:09

用VBA对这工作簿就是永久性的，只要打开工作簿就会连路径及文件名一起显示在标题栏

xdwy81129 · 发表于 2011-1-30 22:10

回复老糊涂的帖子

我是想对所有的工作簿都这样

老糊涂 · 发表于 2011-1-30 22:13

xdwy81129 发表于 2011-1-30 22:10
回复老糊涂的帖子

我是想对所有的工作簿都这样

要对所有excel都显示，则要将改变excel软件啦

xdwy81129 · 发表于 2011-1-30 22:16

回复老糊涂的帖子

好像应该在一个电脑上应该是可以的吧，我想

老糊涂 · 发表于 2011-1-30 22:19

要改变微软的软件是比较困难的，就像EXCEL工作簿的图标，要改变很不容易

xdwy81129 · 发表于 2011-1-30 22:21

啊，这样的呀
晕了，原来只可以用宏解决，不可以通过excel自己的设置解决!!!

老糊涂 · 发表于 2011-1-30 22:29

代码解决也不难，所有你希望显示全路径的工作簿贴上代码就行

		自动登录	找回密码
密码			注册