エクセルのプロパティの「タイトル」欄

質問

「タイトル」欄は、本来は手入力する部分ですが、「名前を付けて保存」したときのファイル名が自動的にセットされる方法はありますか？
例えば「2001年4月売上明細.xls」ならば「2001年4月売上明細」となってほしいです。
ＷＯＲＤ及びＰＰＴはそうなりますが、ＥＸＣＥＬは空白となってしまいます。
また、登録済みファイルを呼び出したあと、名前を変えて保存するときは、タイトルもその新しいファイル名に塗り変わってほしいです。ＷＯＲＤ、ＰＰＴも前のままとなります。

回答No.1

s-mariko · ベストアンサー

回答ないようなので、作ってみました。
以下のマクロを個人マクロブックに登録して使ってみてください。

＃Excelの名前を付けて保存と同じような機能で、プロパティを埋める
というマクロです。

Sub savewithTitleProperty()

Dim fname, prpTitle As String

fname = Application.GetSaveAsFilename(initialfilename:=fname, _
fileFilter:="Microsoft Excel ブック (*.xls), *.xls", _
Title:="ファイル名を付けて保存")

prpTitle = fname
While InStr(prpTitle, "\") <> 0
prpTitle = Right(prpTitle, Len(prpTitle) - InStr(prpTitle, "\"))
Wend
prpTitle = Left(prpTitle, Len(prpTitle) - 4)

ActiveWorkbook.BuiltinDocumentProperties(1) = prpTitle
ActiveWorkbook.SaveAs FileName:=fname

End Sub