自身のブック名を変更したい

質問

こんばんは。

Sub test()
ActiveWorkbook.Name = "変更後ブック名.xls"
End Sub

とすると
「.Name =」の部分が
コンパイルエラーになります。
（値の取得のみ可能なプロパティに値を設定することはできません。）

現在開いているブックの名前を変更するコードを教えてください。
ご教授よろしくお願い致します。

回答No.1

hige_082 · ベストアンサー

こう言う事かな？
＞ActiveWorkbook.Name = "変更後ブック名.xls"
を
'名前を付けて保存
ActiveWorkbook.SaveAs Filename:="変更後ブック名.xls"
と変更する

お礼

こう言うことです！
有難うございました。

回答No.2

有田 賢治（@ARIKEN43）

a5sd4gさん 今日は！
>Sub test()
>ActiveWorkbook.Name = "変更後ブック名.xls"
>End Sub
>とすると「.Name =」の部分がコンパイルエラーになります。
■ブック・シート名を取得・変更↓
http://www.asahi-net.or.jp/~ZN3Y-NGI/YNxv202.html#3
内容：ブック・シート名関連のサンプルマクロが出ています。
■マクロ講座11回　ブックを開くマクロ↓
http://kokodane.com/macro_kouza.htm
内容：たとえば、Cドライブにある、Book1.xlsを開くマクロは、記録してみましょう。以下のようになります。(参考にして下さい)
画面上部のメニューが有りますので右の「エクセルマクロ講座」をクリックして下さい。

お礼

有難うございました。