Question

我有一个名为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

然而，这没有任何作用。

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

Answer 1

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

的操作

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

如果您只想建议名称，则可以使用GetSaveAsFilename或

Application.FileDialog(msoFileDialogSaveAs).InitialFileName = ThisWorkbook.Path & "" & FileName & ".xls"

Answer 2

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

 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

如何在Excel中更改文档的名称？

2 个答案: