3

TIP-PBI.xltmというマクロ対応テンプレートがあります。このテンプレートに基づいてドキュメントを作成すると、Excelは自動的にTIP-PBI1という名前を付けます。ただし、カスタム名を付けたいと思います。

Workbookの.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 に答える