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

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"