3

我有一个名为 TIP-PBI.xltm 的启用宏的模板。当我基于此模板创建文档时，Excel 会自动将其命名为 TIP-PBI1。但是，我想给它一个自定义名称。

我想我可以通过修改工作簿的 .Title 属性来做到这一点。为此，在启动时 Workbook_Open 事件启动，并执行以下操作：

Private Sub Workbook_Open()
    Dim strPBI As String
    strPBI = InputBox$("Enter PBI", "Enter PBI")

    ThisWorkbook.Title = "TIP-PBI-" & strPBI
End Sub

但是，这无济于事。

如何在启动时更改文档的标题？

4

2 回答 2

6

更改工作簿名称的唯一方法是保存它（ref），这样您就可以执行类似的操作

ThisWorkbook.SaveAs ThisWorkbook.Path & "" & FileName & ".xls"

如果您只想建议一个名称，那么您可以使用GetSaveAsFilename或

Application.FileDialog(msoFileDialogSaveAs).InitialFileName = ThisWorkbook.Path & "" & FileName & ".xls"
于 2012-07-06T22:49:25.557 回答
1

如果新工作簿是从模板创建的，则它采用模板名称。因此，在我希望设置新工作簿名称的情况下，我将一个虚拟模板复制到所需的名称，然后根据重命名的模板打开新工作簿。

 strFile = "C:\Temp\" & strnewname & ".xltx "

 FileCopy "C:\Temp\Dummy.xltx", strFile

 'Open template to new workbook

 Workbooks.Open Filename:=strFile

 Kill strFile  'delete renamed template
于 2014-03-04T11:23:36.810 回答