セルの値を使ってブック名にするには

ブックを保存するとき「名前を付けて保存」で別名を付けることが出来ます。VBAではWorkbookオブジェクトのSaveAsメソッドを使うことで名前を付けて保存をすることが出来ます。

SaveAsメソッドの詳細については「VBAでブックに名前を付けて保存する（SaveAs）」をご参照ください。

通常のExcelでの「名前を付けて保存」を行う場合は、保存時のダイアログが表示され、そこでブック名を入力して保存する操作になりますが、事前にセルに保存したいブック名を書いておき、それを使ってブックの保存を行うことも可能です。

このような方法を採用する場合、以下のようないくつかのルールを決めておく必要があります。

  1. ブック名を書くセルはA1セルとする。
  2. ブック名はフルパスで指定する。
  3. 同名のブックが存在する場合は上書きダイアログを表示せずに強制的に上書きする。
  4. マクロを実行する際には名前を付けて保存するブックをアクティブにしておく。

などです。後述するマクロはこのルールに従っています。

なお、ブック名をフルパスで書く理由ですが、ブック名だけの場合はカレントフォルダに保存されてしまうため、それを避けるのが目的です。

セルの値を使ってブック名を保存するコード

以下のコードは、マクロブック（ここではmacro.xlsmとします）に保存しておきます。

そして、名前を付けて保存したいブックは別に用意します。そのため、ブックが２つ開いている状態でマクロを実行することになります。

名前を付けて保存したいブックは、新規ブックでも既存ブックでもどちらでも構いません。

コードの説明

コメントに大体書いていますが、考え方を補足として説明します。

Excelで扱うブックには、通常のブック（.xlsx）とマクロブック（.xlsm）の２つがあります。

WorkbookオブジェクトのSaveAsメソッドは、ファイル形式を指定する引数としてFileFormat引数があります。このFileFormat引数は省略することが可能ですが、省略した場合は通常のブック（.xlsx）として保存するように扱われます。

そのため、FileFormat引数を省略している状態で、マクロブックの.xlsmのファイル名で保存しようとするとエラーになります。

このエラーを避けるために、A1セルに書いてある拡張子がxlsmであればマクロブックとみなし、そうでなければ通常ブックとみなすようにしてSaveAsメソッドのFileFormat引数を指定するようにしています。

使い方

  1. まず、macro.xlsmの標準モジュールに上記コードを書きます。
  2. 次に、macro.xlsmの一番左のシートのA1セルに、名前を付けて保存したいブックのフルパスを書きます。
  3. 名前を付けて保存したいブックをアクティブにします。まだこの時点で新規ブックの「Book1」とか既に存在しているブックを開いた状態のどちらでも構いません。
  4. あとは、macro.xlsmの標準モジュールに書いてあるSaveByCellValue関数を実行します。

実行後に、A1セルに指定したブック名で保存されます。

もし、macro.xlsmがアクティブの状態で実行すると、macro.xlsmがA1セルに指定したブック名で保存されます。そうならないようにガードを掛けてもいいのですが、コードが長くなるのでやっていません。