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

我有一个名为TIP-PBI.xltm的macros启用模板。 当我基于此模板创build文档时，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" 

如果你只是想build议一个名字，那么你可以使用GetSaveAsFilename或

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

Answer 2

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

  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